diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-13 02:48:41 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-13 02:48:41 +0200 |
| commit | 5b7ec43c6103dcaa6687773f626e81dae4fdda19 (patch) | |
| tree | fa766fd32c3fa7813eb4bc1486fa9e90bad97f00 /lisp | |
| parent | b334124a23f24b4d66da62fc99d92ebdefdd0756 (diff) | |
| download | emacs-5b7ec43c6103dcaa6687773f626e81dae4fdda19.tar.gz emacs-5b7ec43c6103dcaa6687773f626e81dae4fdda19.tar.bz2 emacs-5b7ec43c6103dcaa6687773f626e81dae4fdda19.zip | |
Add ps-mode-tests.el and remove a compilation warning
* lisp/progmodes/ps-mode.el (ps-mode-octal-region): Remove a
string-make-unibyte that apparently had no effect here.
* test/lisp/progmodes/ps-mode-tests.el: New file.
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." (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))))))) + (insert (format "\\%03o" (string-to-char + (buffer-substring (point) (1+ (point)))))) (delete-char 1)) (message "%d change%s made" i (if (= i 1) "" "s")) (set-marker endm nil))))) |