From 71527e5d449cf02b946f4b375dd556ec163f946d Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 25 Jan 2001 22:12:23 +0000 Subject: [PATCH] (describe-char-after): Doc fix. (describe-coding-system): Tweak the English text. --- lisp/international/mule-diag.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 5901717e3fe..43e12708560 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -511,7 +511,8 @@ detailed meanings of these arguments." ;;;###autoload (defun describe-char-after (&optional pos) - "Display information of in current buffer at position POS. + "Display information about the character at POS in the current buffer. +POS defaults to point. The information includes character code, charset and code points in it, syntax, category, how the character is encoded in a file, which font is being used for displaying the character." @@ -713,15 +714,15 @@ which font is being used for displaying the character." (t (princ "invalid\n"))))) (let ((postread (coding-system-get coding-system 'post-read-conversion))) (when postread - (princ "After decoding a text normally,") - (princ " perform post-conversion by the function: ") + (princ "After decoding text normally,") + (princ " perform post-conversion using the function: ") (princ "\n ") (princ postread) (princ "\n"))) (let ((prewrite (coding-system-get coding-system 'pre-write-conversion))) (when prewrite - (princ "Before encoding a text normally,") - (princ " perform pre-conversion by the function: ") + (princ "Before encoding text normally,") + (princ " perform pre-conversion using the function: ") (princ "\n ") (princ prewrite) (princ "\n"))) @@ -731,7 +732,7 @@ which font is being used for displaying the character." (when charsets (if (eq charsets t) (insert "This coding system can encode all charsets.\n") - (insert "This coding system encode the following charsets:\n ") + (insert "This coding system encodes the following charsets:\n ") (while charsets (insert " " (symbol-name (car charsets))) (search-backward (symbol-name (car charsets))) @@ -1149,7 +1150,7 @@ This shows which font is used for which character(s)." (interactive (if (not (and window-system (fboundp 'fontset-list))) (error "No fontsets being used") - (let ((fontset-list (append + (let ((fontset-list (nconc (mapcar 'list (fontset-list)) (mapcar (lambda (x) (list (cdr x))) fontset-alias-alist))) -- 2.11.4.GIT