diff options
author | Kenichi Handa <[email protected]> | 2002-08-07 12:21:25 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2002-08-07 12:21:25 +0000 |
commit | 873a4be1ef32ab8e016501feec5d6482a1e7c3aa (patch) | |
tree | c2b4c91a2dcb173590b6b1ec14331db59b0f0e0e /lisp/international/mule-cmds.el | |
parent | 6d2413b84e8637ef5c772fd5fc3f6f9154be0a24 (diff) |
(select-safe-coding-system): Call pop-to-buffer inside
save-window-excursion and save-excursion.
Diffstat (limited to 'lisp/international/mule-cmds.el')
-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 1b59acdf67..0493bbfc4e 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -676,15 +676,15 @@ and TO is ignored." (coding-system-category elt))) (push elt l)))) - ;; Make sure the offending buffer is displayed. - (or (stringp from) - (pop-to-buffer bufname)) - (save-excursion - (goto-char (unencodable-char-position - from to (mapcar #'car default-coding-system))) - ;; Then ask users to select one form CODINGS. - (unwind-protect - (save-window-excursion + (unwind-protect + (save-window-excursion + (save-excursion + ;; Make sure the offending buffer is displayed. + (unless (stringp from) + (pop-to-buffer bufname) + (goto-char (unencodable-char-position + from to (mapcar #'car default-coding-system)))) + ;; Then ask users to select one from CODINGS. (with-output-to-temp-buffer "*Warning*" (save-excursion (set-buffer standard-output) |