emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Bug: Org 9.2.1 table issues [9.2.1 (9.2.1-dist @ /Users/nick/.em


From: Nick Helm
Subject: Re: [O] 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

Eric S Fraga <address@hidden> 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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]