diff options
| -rw-r--r-- | lisp/international/mule-cmds.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 1b59acdf67a..0493bbfc4e7 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -676,15 +676,15 @@ and TO is ignored." | |||
| 676 | (coding-system-category elt))) | 676 | (coding-system-category elt))) |
| 677 | (push elt l)))) | 677 | (push elt l)))) |
| 678 | 678 | ||
| 679 | ;; Make sure the offending buffer is displayed. | 679 | (unwind-protect |
| 680 | (or (stringp from) | 680 | (save-window-excursion |
| 681 | (pop-to-buffer bufname)) | 681 | (save-excursion |
| 682 | (save-excursion | 682 | ;; Make sure the offending buffer is displayed. |
| 683 | (goto-char (unencodable-char-position | 683 | (unless (stringp from) |
| 684 | from to (mapcar #'car default-coding-system))) | 684 | (pop-to-buffer bufname) |
| 685 | ;; Then ask users to select one form CODINGS. | 685 | (goto-char (unencodable-char-position |
| 686 | (unwind-protect | 686 | from to (mapcar #'car default-coding-system)))) |
| 687 | (save-window-excursion | 687 | ;; Then ask users to select one from CODINGS. |
| 688 | (with-output-to-temp-buffer "*Warning*" | 688 | (with-output-to-temp-buffer "*Warning*" |
| 689 | (save-excursion | 689 | (save-excursion |
| 690 | (set-buffer standard-output) | 690 | (set-buffer standard-output) |