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

[Richard M. Stallman]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.203 
emacs/lisp/international/mule-cmds.el:1.204
*** emacs/lisp/international/mule-cmds.el:1.203 Thu Sep 12 22:15:41 2002
--- emacs/lisp/international/mule-cmds.el       Sun Sep 22 20:20:15 2002
***************
*** 723,731 ****
        (let ((window-configuration (current-window-configuration)))
        (save-excursion
          ;; Make sure the offending buffer is displayed.
!         (when (and default-coding-system (not (stringp from)))
            (pop-to-buffer bufname)
!           (goto-char (apply 'min (mapcar #'(lambda (x) (car (cadr x)))
                                           default-coding-system))))
          ;; Then ask users to select one from CODINGS.
          (with-output-to-temp-buffer "*Warning*"
--- 723,732 ----
        (let ((window-configuration (current-window-configuration)))
        (save-excursion
          ;; Make sure the offending buffer is displayed.
!         (when (and (consp default-coding-system) (not (stringp from)))
            (pop-to-buffer bufname)
!           ;; The `or' is because sometimes (car (cadr x)) is nil.
!           (goto-char (apply 'min (mapcar #'(lambda (x) (or (car (cadr x)) 
(point-max)))
                                           default-coding-system))))
          ;; Then ask users to select one from CODINGS.
          (with-output-to-temp-buffer "*Warning*"