diff options
| author | Kenichi Handa | 2002-08-07 12:21:25 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2002-08-07 12:21:25 +0000 |
| commit | 873a4be1ef32ab8e016501feec5d6482a1e7c3aa (patch) | |
| tree | c2b4c91a2dcb173590b6b1ec14331db59b0f0e0e | |
| parent | 6d2413b84e8637ef5c772fd5fc3f6f9154be0a24 (diff) | |
| download | emacs-873a4be1ef32ab8e016501feec5d6482a1e7c3aa.tar.gz emacs-873a4be1ef32ab8e016501feec5d6482a1e7c3aa.zip | |
(select-safe-coding-system): Call pop-to-buffer inside
save-window-excursion and save-excursion.
| -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) |