From 4752de83493df806b8cce0ff430f62fdcda46db2 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 13 Jun 2019 03:12:03 +0200 Subject: [PATCH] Avoid string-make-multibyte in ps-mode.el * lisp/progmodes/ps-mode.el (ps-mode-octal-region): Avoid usage of string-make-multibyte, but work in both unibyte and multibyte buffers. --- lisp/progmodes/ps-mode.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index 0ea2bee0aa2..989a9941b44 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -737,11 +737,10 @@ Only one `%' is removed, and it has to be in the first column." (setq i 0) (while (re-search-forward "[\200-\377]" (marker-position endm) t) (setq i (1+ i)) - (backward-char) - (insert (format "\\%03o" (string-to-char - (string-make-unibyte - (buffer-substring (point) (1+ (point))))))) - (delete-char 1)) + (replace-match (format "\\%03o" + (multibyte-char-to-unibyte + (char-after (1- (point))))) + t t)) (message "%d change%s made" i (if (= i 1) "" "s")) (set-marker endm nil))))) -- 2.39.5