From 873a4be1ef32ab8e016501feec5d6482a1e7c3aa Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 7 Aug 2002 12:21:25 +0000 Subject: [PATCH] (select-safe-coding-system): Call pop-to-buffer inside save-window-excursion and save-excursion. --- lisp/international/mule-cmds.el | 18 +++++++++--------- 1 file 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." (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) -- 2.39.2