Explorar o código

org-string-width: Handle undefined behaviour in older Emacs

* lisp/org-macs.el (org-string-width): Force older Emacs treating
invisible text with ellipsis as zero-width.  Newer Emacs versions do
exactly this.
Ihor Radchenko %!s(int64=3) %!d(string=hai) anos
pai
achega
2e3566e1e9
Modificáronse 1 ficheiros con 10 adicións e 1 borrados
  1. 10 1
      lisp/org-macs.el

+ 10 - 1
lisp/org-macs.el

@@ -926,7 +926,16 @@ Return width in pixels when PIXELS is non-nil."
     (with-temp-buffer
       (setq-local display-line-numbers nil)
       (setq-local buffer-invisibility-spec
-                  current-invisibility-spec)
+                  (if (listp current-invisibility-spec)
+                      (mapcar (lambda (el)
+                                ;; Consider elipsis to have 0 width.
+                                ;; It is what Emacs 28+ does, but we have
+                                ;; to force it in earlier Emacs versions.
+                                (if (and (consp el) (cdr el))
+                                    (list (car el))
+                                  el))
+                              current-invisibility-spec)
+                    current-invisibility-spec))
       (setq-local char-property-alias-alist
                   current-char-property-alias-alist)
       (let (pixel-width symbol-width)