Eric S Fraga <esfli...@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))))))
(defun org-table--read-column-selection (select max)
