diff options
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 |