mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 19:42:53 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
save-window-excursion and save-excursion.
This commit is contained in:
Kenichi Handa 2002-08-07 12:21:25 +00:00
parent 6d2413b84e
commit 873a4be1ef
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/international/mule-cmds.el
View file

@ -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)