Commit 97b14492 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

anymore text about what charsets they can encode.
parent 9edbff6c
...@@ -729,9 +729,12 @@ which font is being used for displaying the character." ...@@ -729,9 +729,12 @@ which font is being used for displaying the character."
(save-excursion (save-excursion
(set-buffer standard-output) (set-buffer standard-output)
(let ((charsets (coding-system-get coding-system 'safe-charsets))) (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) (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 ") (insert "This coding system encodes the following charsets:\n ")
(while charsets (while charsets
(insert " " (symbol-name (car charsets))) (insert " " (symbol-name (car charsets)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment