From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 28 Apr 1998 13:53:50 +0000 (+0000)
Subject: (ps-output-string-prim): Don't quote multibyte characters.
X-Git-Tag: emacs-20.3~1276
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb58920cd30cf0911974047027c8aff7644a9bac;p=emacs.git

(ps-output-string-prim): Don't quote multibyte characters.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 212c10b1977..cb2ab1d686d 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -2931,8 +2931,10 @@ page-height == bm + print-height + tm - ho - hh
   ;; (, ) 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