/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.79 by monnier, Thu Sep 19 05:06:16 2002 UTC revision 1.80 by handa, Wed Sep 25 08:11:03 2002 UTC
# Line 84  With prefix arg, the output format gets Line 84  With prefix arg, the output format gets
84  but still shows the full information."  but still shows the full information."
85    (interactive "P")    (interactive "P")
86    (help-setup-xref (list #'list-character-sets arg) (interactive-p))    (help-setup-xref (list #'list-character-sets arg) (interactive-p))
87    (with-output-to-temp-buffer (help-buffer)    (with-output-to-temp-buffer "*Character Set List*"
88      (with-current-buffer standard-output      (with-current-buffer standard-output
89        (if arg        (if arg
90            (list-character-sets-2)            (list-character-sets-2)
# Line 487  This can list both Emacs `official' (ISO Line 487  This can list both Emacs `official' (ISO
487  characters encoded by various Emacs coding systems which correspond to  characters encoded by various Emacs coding systems which correspond to
488  PC `codepages' and other coded character sets.  See `non-iso-charset-alist'."  PC `codepages' and other coded character sets.  See `non-iso-charset-alist'."
489    (interactive (list (read-charset "Character set: ")))    (interactive (list (read-charset "Character set: ")))
490    (with-output-to-temp-buffer "*Help*"    (with-output-to-temp-buffer "*Character List*"
491      (with-current-buffer standard-output      (with-current-buffer standard-output
492          (setq mode-line-format (copy-sequence mode-line-format))
493          (let ((slot (memq 'mode-line-buffer-identification mode-line-format)))
494            (if slot
495                (setcdr slot
496                        (cons (format " (%s)" charset)
497                              (cdr slot)))))
498        (setq indent-tabs-mode nil)        (setq indent-tabs-mode nil)
499        (set-buffer-multibyte t)        (set-buffer-multibyte t)
500        (cond ((charsetp charset)        (cond ((charsetp charset)

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26