emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals-release/org cd967ce006: org-odt-plain-text: Fix `fill-c


From: ELPA Syncer
Subject: [elpa] externals-release/org cd967ce006: org-odt-plain-text: Fix `fill-column' value
Date: Fri, 13 Jan 2023 03:58:03 -0500 (EST)

branch: externals-release/org
commit cd967ce006726a56df49885c83b27e9bf4bd7c4c
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-odt-plain-text: Fix `fill-column' value
    
    * lisp/ox-odt.el (org-odt-plain-text): Use `most-positive-fixnum' to
    unfill plain text elements.  `point-max' is not a safe large value
    because, for example, Han script symbols often occupy two columns.
    
    Reported-by: Cantoraz Chou <cantoraz@gmail.com>
    Link: 
https://orgmode.org/list/CAJg5Zf00e+A_kuBmRh+h68u+3g_Cb_bLqRhR4rpFH=nenXvTdw@mail.gmail.com
---
 lisp/ox-odt.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el
index 1c233a266a..949c8f9b5b 100644
--- a/lisp/ox-odt.el
+++ b/lisp/ox-odt.el
@@ -2935,7 +2935,7 @@ contextual information."
                       (trailing (and (string-match (rx (1+ blank) eos) output)
                                      (match-string 0 output))))
                   ;; Unfill, retaining leading/trailing space.
-                  (let ((fill-column (point-max)))
+                  (let ((fill-column most-positive-fixnum))
                     (fill-region (point-min) (point-max)))
                   (concat leading (buffer-string) trailing))))))
     ;; Return value.



reply via email to

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