From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nick Helm <nick@tenpoint.co.nz>
Subject: Re: Bug: Org 9.2.1 table issues [9.2.1 (9.2.1-dist @
 /Users/nick/.emacs.d/lisp/org-9.2.1/)]
Date: Tue, 19 Feb 2019 11:46:55 +0000
Message-ID: <m21s44ngpe.fsf@tenpoint.co.nz>
References: <m2k1i199mx.fsf@tenpoint.co.nz> <874l95qq9c.fsf@nicolasgoaziou.fr>
	<m2mumwdsp8.fsf@tenpoint.co.nz> <87ftsmti8p.fsf@nicolasgoaziou.fr>
	<m2zhqtbjnl.fsf@tenpoint.co.nz> <87mumsss1k.fsf@nicolasgoaziou.fr>
	<m2y36c927l.fsf@tenpoint.co.nz> <874l90son2.fsf@nicolasgoaziou.fr>
	<m2k1hwjwml.fsf@tenpoint.co.nz> <xuu64l90ytpk.fsf@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([209.51.188.92]:37367)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <nick@tenpoint.co.nz>) id 1gw3rf-0003Q8-J8
	for emacs-orgmode@gnu.org; Tue, 19 Feb 2019 06:47:08 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <nick@tenpoint.co.nz>) id 1gw3re-0003nm-P0
	for emacs-orgmode@gnu.org; Tue, 19 Feb 2019 06:47:07 -0500
Received: from mail-eopbgr1360107.outbound.protection.outlook.com
	([40.107.136.107]:11360
	helo=AUS01-ME1-obe.outbound.protection.outlook.com)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32)
	(Exim 4.71) (envelope-from <nick@tenpoint.co.nz>) id 1gw3re-0003jJ-6U
	for emacs-orgmode@gnu.org; Tue, 19 Feb 2019 06:47:06 -0500
In-Reply-To: <xuu64l90ytpk.fsf@gmail.com> (Eric S. Fraga's message of "Tue, 19
	Feb 2019 10:10:31 +0000")
Content-Language: en-US
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode/>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: "emacs-orgmode@gnu.org" <emacs-orgmode@gnu.org>
Cc: Eric S Fraga <esflists@gmail.com>, Nicolas Goaziou <mail@nicolasgoaziou.fr>

Eric S Fraga <esflists@gmail.com> writes:

> On Tuesday, 19 Feb 2019 at 03:16, Nick Helm wrote:
>
> [...]
>
>> Great, got it sorted now. Thanks again for your time.
>
> It would be great, for others that may be interested, if you could post
> your solution to this list.

Sure, patch below. It's a bit crude, but it works for 9.2.1-dist (needs
changes for today's master):

--- a/lisp/org-table.el	2019-02-19 14:06:13.000000000 +1300
+++ b/lisp/org-table.el	2019-02-19 14:07:58.000000000 +1300
@@ -3938,7 +3938,7 @@
     (list (org-table--make-shrinking-overlay
 	   start end
 	   (concat (make-string (max 0 (1+ width)) ?-)
-		   org-table-shrunk-column-indicator)
+		   "-")
 	   "")))
    (t
     ;; If the field is not empty, consider using two overlays: one for
@@ -3962,7 +3962,7 @@
 		  ;; white space characters to the right overlay.
 		  (org-table--make-shrinking-overlay
 		   (1- end) end (concat (make-string (- width w) ?\s)
-					org-table-shrunk-column-indicator)
+					" ")
 		   contents)
 		;; Find cut location so that WIDTH characters are visible.
 		(org-table--make-shrinking-overlay
@@ -3979,7 +3979,10 @@
 			   ((pred (< width)) (setq upper mean))
 			   (_ (setq lower mean)))))
 		     upper))
-		 end org-table-shrunk-column-indicator contents)))))
+		 end (if (> (length contents) width)
+               org-table-shrunk-column-indicator
+             " ")
+       contents)))))
       (delq nil (list pre-overlay post-overlay))))))
=20
 (defun org-table--read-column-selection (select max)