[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Kenichi Handa]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.200 
emacs/lisp/international/mule-cmds.el:1.201
*** emacs/lisp/international/mule-cmds.el:1.200 Mon Aug  5 12:34:53 2002
--- emacs/lisp/international/mule-cmds.el       Wed Aug  7 08:21:25 2002
***************
*** 676,690 ****
                          (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
              (with-output-to-temp-buffer "*Warning*"
                (save-excursion
                  (set-buffer standard-output)
--- 676,690 ----
                          (coding-system-category elt)))
            (push elt l))))
  
!       (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)