diff options
| author | Lars Ingebrigtsen | 2019-06-13 02:54:24 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-13 02:54:24 +0200 |
| commit | 986e333eaafd581f3d4d97793723a9333fce9790 (patch) | |
| tree | 9b1c5cb2244a9c49de45d621793e28cb98241faf | |
| parent | 5b7ec43c6103dcaa6687773f626e81dae4fdda19 (diff) | |
| download | emacs-986e333eaafd581f3d4d97793723a9333fce9790.tar.gz emacs-986e333eaafd581f3d4d97793723a9333fce9790.zip | |
Revert previous ps-mode.el change
* lisp/progmodes/ps-mode.el (ps-mode-octal-region): Revert
previous change because the `string-make-unibyte' insertion was
the previous single change (in 2013) to this file, so it must have
some subtle meaning or other.
| -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 cf09b98b491..0ea2bee0aa2 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el | |||
| @@ -739,7 +739,8 @@ Only one `%' is removed, and it has to be in the first column." | |||
| 739 | (setq i (1+ i)) | 739 | (setq i (1+ i)) |
| 740 | (backward-char) | 740 | (backward-char) |
| 741 | (insert (format "\\%03o" (string-to-char | 741 | (insert (format "\\%03o" (string-to-char |
| 742 | (buffer-substring (point) (1+ (point)))))) | 742 | (string-make-unibyte |
| 743 | (buffer-substring (point) (1+ (point))))))) | ||
| 743 | (delete-char 1)) | 744 | (delete-char 1)) |
| 744 | (message "%d change%s made" i (if (= i 1) "" "s")) | 745 | (message "%d change%s made" i (if (= i 1) "" "s")) |
| 745 | (set-marker endm nil))))) | 746 | (set-marker endm nil))))) |