master 2252081: Fix folding of non-ASCII lines when printing to Postscript

[Lars Ingebrigtsen]

branch: master
commit 22520811e2054df1d7a61691faa2c203bf3bbda0
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix folding of non-ASCII lines when printing to Postscript
    
    * lisp/ps-mule.el (ps-mule-plot-string): Fix folding of non-ASCII
    Latin-1 lines (bug#17758).
---
 lisp/ps-mule.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index a8b5210..ab8af40 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -673,7 +673,7 @@ the sequence."
                        (not (vectorp (aref (nth 2 composition) 0))))
                   (car composition)
                 to))
-        (ascii-or-latin-1 "[\000-\377]+")
+        (ascii-or-latin-1 "[\000-ÿ]+")
         (run-width 0)
         (endpos nil)
         (font-spec-table (aref ps-mule-font-spec-tables
@@ -699,6 +699,7 @@ the sequence."
                 (setq composition (find-composition (point) to nil t))
                 (setq stop (if composition (car composition) to)))))
 
+            ;; We fold lines that contain ASCII or Latin-1.
            ((looking-at ascii-or-latin-1)
             (let ((nchars (- (min (match-end 0) stop) (point))))
               (setq width (* average-width nchars))
@@ -710,6 +711,7 @@ the sequence."
                 (setq run-width (+ run-width width))
                 (forward-char nchars))))
 
+            ;; Don't fold other lines.  (But why?)
            (t
             (while (and (< (point) stop) (not endpos))
               (setq width (char-width (following-char)))