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

[Kenichi Handa]

Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.79 
emacs/lisp/international/mule-diag.el:1.80
*** emacs/lisp/international/mule-diag.el:1.79  Thu Sep 19 01:06:16 2002
--- emacs/lisp/international/mule-diag.el       Wed Sep 25 04:11:03 2002
***************
*** 84,90 ****
  but still shows the full information."
    (interactive "P")
    (help-setup-xref (list #'list-character-sets arg) (interactive-p))
!   (with-output-to-temp-buffer (help-buffer)
      (with-current-buffer standard-output
        (if arg
          (list-character-sets-2)
--- 84,90 ----
  but still shows the full information."
    (interactive "P")
    (help-setup-xref (list #'list-character-sets arg) (interactive-p))
!   (with-output-to-temp-buffer "*Character Set List*"
      (with-current-buffer standard-output
        (if arg
          (list-character-sets-2)
***************
*** 487,494 ****
  characters encoded by various Emacs coding systems which correspond to
  PC `codepages' and other coded character sets.  See `non-iso-charset-alist'."
    (interactive (list (read-charset "Character set: ")))
!   (with-output-to-temp-buffer "*Help*"
      (with-current-buffer standard-output
        (setq indent-tabs-mode nil)
        (set-buffer-multibyte t)
        (cond ((charsetp charset)
--- 487,500 ----
  characters encoded by various Emacs coding systems which correspond to
  PC `codepages' and other coded character sets.  See `non-iso-charset-alist'."
    (interactive (list (read-charset "Character set: ")))
!   (with-output-to-temp-buffer "*Character List*"
      (with-current-buffer standard-output
+       (setq mode-line-format (copy-sequence mode-line-format))
+       (let ((slot (memq 'mode-line-buffer-identification mode-line-format)))
+       (if slot
+           (setcdr slot
+                   (cons (format " (%s)" charset)
+                         (cdr slot)))))
        (setq indent-tabs-mode nil)
        (set-buffer-multibyte t)
        (cond ((charsetp charset)