From c221f17b1ce448ed52b37e9e380a99f22b30963c Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 30 Aug 2021 03:14:08 +0200 Subject: [PATCH] Make some non-ASCII work in ebnf2ps * lisp/progmodes/ebnf2ps.el (ebnf-print-buffer): Make non-ASCII work slightly better (bug#39663). --- lisp/progmodes/ebnf2ps.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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) -- 2.39.2