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).

diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index a8b5210e965d6e93dba0a2fa30e252edbc6b5ec7..ab8af40628af9be6201f096216d4c03d3f7ab20c 100644 (file)
--- 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)))