Commit 873a4be1 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(select-safe-coding-system): Call pop-to-buffer inside

save-window-excursion and save-excursion.
parent 6d2413b8
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment