diff options
author | Eli Zaretskii <[email protected]> | 1998-04-28 13:53:50 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 1998-04-28 13:53:50 +0000 |
commit | bb58920cd30cf0911974047027c8aff7644a9bac (patch) | |
tree | 5d0682b53cfebf85c0552fd6add9da7f6beecab7 /lisp/ps-print.el | |
parent | 0140c6007b26bb13428eb16c5f8c3c94e38fb1a1 (diff) |
(ps-output-string-prim): Don't quote multibyte characters.
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r-- | lisp/ps-print.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 212c10b197..cb2ab1d686 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 |