mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(describe-coding-system): Change the

Browse Source 
format of showing safe charsets.
This commit is contained in:
Kenichi Handa 1998-01-22 01:42:20 +00:00
parent dbea676644
commit 0691ad6147
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/international/mule-diag.el
View File

@ -215,12 +215,14 @@ but contains full information about each character sets."
(princ "\n")))
(let ((charsets (coding-system-get coding-system 'safe-charsets)))
(when charsets
(princ "This coding system is mainly for the following charsets:\n")
(princ " ")
(while charsets
(if (eq charsets t)
(princ "This coding system can encode charsets:\n")
(princ "This coding system encode the following charsets:\n")
(princ " ")
(princ (car charsets))
(setq charsets (cdr charsets)))))
(while charsets
(princ " ")
(princ (car charsets))
(setq charsets (cdr charsets))))))
(save-excursion
(set-buffer standard-output)
(help-mode)))))