Mercurial > emacs

changeset 21801:4e224c003b52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ps-output-string-prim): Don't quote multibyte characters.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 28 Apr 1998 13:53:50 +0000
parents d4b4f44ce8da
children fc97ab2c8e64
files lisp/ps-print.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-print.el	Tue Apr 28 13:50:24 1998 +0000
+++ b/lisp/ps-print.el	Tue Apr 28 13:53:50 1998 +0000
@@ -2931,8 +2931,10 @@
   ;; (, ) and \.
   (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp)))
     (let ((special (following-char)))
-      (delete-char 1)
-      (insert (aref ps-string-escape-codes special))))
+      (if (> (char-bytes special) 1)
+	  (forward-char)
+	(delete-char 1)
+	(insert (aref ps-string-escape-codes special)))))
   (goto-char (point-max))
   (insert ")"))				;insert end-string delimiter