Commit 6a2968b9 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Avoind string-as-multibyte in ps-output-string-prim

* lisp/ps-print.el (ps-output-string-prim): Avoid
`string-as-multibyte', and encode as utf-8 instead if multibyte.
parent ab263a79
Pipeline #1697 failed with stage
in 90 minutes and 1 second
......@@ -4612,7 +4612,9 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
(defsubst ps-output-string-prim (string)
(insert "(") ;insert start-string delimiter
(save-excursion ;insert string
(insert (string-as-unibyte string)))
(insert (if (multibyte-string-p string)
(encode-coding-string string 'utf-8)
string)))
;; Find and quote special characters as necessary for PS
;; This skips everything except control chars, non-ASCII chars, (, ) and \.
(while (progn (skip-chars-forward " -'*-[]-~") (not (eobp)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment