Mercurial > emacs
changeset 46829:fb00e3e4754d
(select-safe-coding-system): Call pop-to-buffer inside
save-window-excursion and save-excursion.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 07 Aug 2002 12:21:25 +0000 |
| parents | 666afeb4879e |
| children | fa2c544d95fd |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Aug 07 12:21:05 2002 +0000 +++ b/lisp/international/mule-cmds.el Wed Aug 07 12:21:25 2002 +0000 @@ -676,15 +676,15 @@ (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)