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

[Eli Zaretskii]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.182 
emacs/lisp/international/mule-cmds.el:1.183
*** emacs/lisp/international/mule-cmds.el:1.182 Sun Feb  3 05:32:13 2002
--- emacs/lisp/international/mule-cmds.el       Fri Feb  8 06:59:42 2002
***************
*** 599,604 ****
--- 599,605 ----
  
    (let ((codings (find-coding-systems-region from to))
        (coding-system nil)
+       (bufname (buffer-name))
        (l default-coding-system))
      (if (eq (car codings) 'undecided)
        ;; Any coding system is ok.
***************
*** 625,630 ****
--- 626,634 ----
              (setcar l mime-charset))
          (setq l (cdr l))))
  
+       ;; Make sure the offending buffer is displayed.
+       (or (stringp from)
+         (pop-to-buffer bufname))
        ;; Then ask users to select one form CODINGS.
        (unwind-protect
          (save-window-excursion
***************
*** 632,646 ****
              (save-excursion
                (set-buffer standard-output)
                (if (not default-coding-system)
!                   (insert "No default coding systems to try.")
!                 (insert "These default coding systems were tried")
!                 (if (stringp from)
!                     (insert " to encode \""
!                             (if (> (length from) 10)
!                                 (substring from 0 10)
!                               from)
!                             "...\""))
!                 (insert ":\n")
                  (let ((pos (point))
                        (fill-prefix "  "))
                    (mapcar (function (lambda (x)
--- 636,653 ----
              (save-excursion
                (set-buffer standard-output)
                (if (not default-coding-system)
!                   (insert "No default coding systems to try for "
!                           (if (stringp from)
!                               (format "string \"%s\"." from)
!                             (format "buffer `%s'." bufname)))
!                 (insert
!                  "These default coding systems were tried to encode"
!                  (if (stringp from)
!                      (concat " \"" (if (> (length from) 10)
!                                        (concat (substring from 0 10) "...\"")
!                                      (concat from "\"")))
!                    (format " text\nin the buffer `%s'" bufname))
!                  ":\n")
                  (let ((pos (point))
                        (fill-prefix "  "))
                    (mapcar (function (lambda (x)