Mercurial > emacs
comparison lisp/international/mule-diag.el @ 36989:ce090eb0edda
(describe-coding-system): For raw-text and emacs-mule, don't add
anymore text about what charsets they can encode.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 26 Mar 2001 04:11:28 +0000 |
| parents | e154e666c9ed |
| children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
| 36988:c904b89720f8 | 36989:ce090eb0edda |
|---|---|
| 727 (princ prewrite) | 727 (princ prewrite) |
| 728 (princ "\n"))) | 728 (princ "\n"))) |
| 729 (save-excursion | 729 (save-excursion |
| 730 (set-buffer standard-output) | 730 (set-buffer standard-output) |
| 731 (let ((charsets (coding-system-get coding-system 'safe-charsets))) | 731 (let ((charsets (coding-system-get coding-system 'safe-charsets))) |
| 732 (when charsets | 732 (when (and (not (memq (coding-system-base coding-system) |
| 733 '(raw-text emacs-mule))) | |
| 734 charsets) | |
| 733 (if (eq charsets t) | 735 (if (eq charsets t) |
| 734 (insert "This coding system can encode all charsets.\n") | 736 (insert "This coding system can encode all charsets except for |
| 737 eight-bit-control and eight-bit-graphic.\n") | |
| 735 (insert "This coding system encodes the following charsets:\n ") | 738 (insert "This coding system encodes the following charsets:\n ") |
| 736 (while charsets | 739 (while charsets |
| 737 (insert " " (symbol-name (car charsets))) | 740 (insert " " (symbol-name (car charsets))) |
| 738 (search-backward (symbol-name (car charsets))) | 741 (search-backward (symbol-name (car charsets))) |
| 739 (help-xref-button 0 #'describe-character-set (car charsets)) | 742 (help-xref-button 0 #'describe-character-set (car charsets)) |