Mercurial > emacs
changeset 35585:a185af43bdf4
(describe-char-after): Doc fix.
(describe-coding-system): Tweak the English text.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 25 Jan 2001 22:12:23 +0000 |
| parents | 498bcc1e7c00 |
| children | 6c84d7800dd2 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Thu Jan 25 21:02:37 2001 +0000 +++ b/lisp/international/mule-diag.el Thu Jan 25 22:12:23 2001 +0000 @@ -511,7 +511,8 @@ ;;;###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 @@ (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 @@ (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 @@ (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)))