From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 30 Aug 2021 01:14:08 +0000 (+0200)
Subject: Make some non-ASCII work in ebnf2ps
X-Git-Tag: emacs-28.0.90~1261
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c221f17b1ce448ed52b37e9e380a99f22b30963c;p=emacs.git

Make some non-ASCII work in ebnf2ps

* lisp/progmodes/ebnf2ps.el (ebnf-print-buffer): Make non-ASCII
work slightly better (bug#39663).
---

diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 884104a16f7..3be3d7032db 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -2244,8 +2244,14 @@ the PostScript image in a file with that name.  If FILENAME is a
 number, prompt the user for the name of the file to save in."
   (interactive (list (ps-print-preprint current-prefix-arg)))
   (ebnf-log-header "(ebnf-print-buffer %S)" filename)
-  (ebnf-print-region (point-min) (point-max) filename))
-
+  (cl-letf (((symbol-function 'ps-output-string)
+             ;; Make non-ASCII work (sort of).
+             (lambda (string)
+               (ps-output t (and string
+                                 (encode-coding-string
+                                  (decode-coding-string string 'utf-8)
+                                  'iso-8859-1))))))
+    (ebnf-print-region (point-min) (point-max) filename)))
 
 ;;;###autoload
 (defun ebnf-print-region (from to &optional filename)