diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/ps-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index 92824b63e68..cf09b98b491 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el | |||
| @@ -738,7 +738,8 @@ Only one `%' is removed, and it has to be in the first column." | |||
| 738 | (while (re-search-forward "[\200-\377]" (marker-position endm) t) | 738 | (while (re-search-forward "[\200-\377]" (marker-position endm) t) |
| 739 | (setq i (1+ i)) | 739 | (setq i (1+ i)) |
| 740 | (backward-char) | 740 | (backward-char) |
| 741 | (insert (format "\\%03o" (string-to-char (string-make-unibyte (buffer-substring (point) (1+ (point))))))) | 741 | (insert (format "\\%03o" (string-to-char |
| 742 | (buffer-substring (point) (1+ (point)))))) | ||
| 742 | (delete-char 1)) | 743 | (delete-char 1)) |
| 743 | (message "%d change%s made" i (if (= i 1) "" "s")) | 744 | (message "%d change%s made" i (if (= i 1) "" "s")) |
| 744 | (set-marker endm nil))))) | 745 | (set-marker endm nil))))) |