procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(describe-coding-system): For raw-text and emacs-mule, don't add

Browse source 
anymore text about what charsets they can encode.
This commit is contained in:
Kenichi Handa 2001-03-26 04:11:28 +00:00
parent 9edbff6c6f
commit 97b14492ef
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/international/mule-diag.el
View file

@ -729,9 +729,12 @@ which font is being used for displaying the character."
(save-excursion
(set-buffer standard-output)
(let ((charsets (coding-system-get coding-system 'safe-charsets)))
(when charsets
(when (and (not (memq (coding-system-base coding-system)
'(raw-text emacs-mule)))
charsets)
(if (eq charsets t)
(insert "This coding system can encode all charsets.\n")
(insert "This coding system can encode all charsets except for
eight-bit-control and eight-bit-graphic.\n")
(insert "This coding system encodes the following charsets:\n ")
(while charsets
(insert " " (symbol-name (car charsets)))