diff options
| author | Kenichi Handa | 2007-06-16 02:16:18 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2007-06-16 02:16:18 +0000 |
| commit | 46c0471835d2f73670a847df0b86fd0e5c3ff5da (patch) | |
| tree | 58251de48bc8d6d8f3b1fba231b00d6e645a0526 | |
| parent | f67240751eb1b6a298faa0bb6c800e2a48c89ca5 (diff) | |
| download | emacs-46c0471835d2f73670a847df0b86fd0e5c3ff5da.tar.gz emacs-46c0471835d2f73670a847df0b86fd0e5c3ff5da.zip | |
(select-safe-coding-system-interactively): Fix printing of
rejected and unsafe coding-systems.
| -rw-r--r-- | lisp/international/mule-cmds.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 702fab36d2b..5ffd0174b7b 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -715,7 +715,7 @@ DEFAULT is the coding system to use by default in the query." | |||
| 715 | (let ((pos (point)) | 715 | (let ((pos (point)) |
| 716 | (fill-prefix " ")) | 716 | (fill-prefix " ")) |
| 717 | (dolist (x (append rejected unsafe)) | 717 | (dolist (x (append rejected unsafe)) |
| 718 | (princ " ") (princ (car x))) | 718 | (princ " ") (princ x)) |
| 719 | (insert "\n") | 719 | (insert "\n") |
| 720 | (fill-region-as-paragraph pos (point))) | 720 | (fill-region-as-paragraph pos (point))) |
| 721 | (when rejected | 721 | (when rejected |