From a584be024c78d1fedcd03ccd3b9e28f92ec87db3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 1 Dec 2000 06:20:04 +0000 Subject: [PATCH] (describe-char-after): Fix typo. (describe-character-set, non-iso-charset-alist): Fix typo. --- lisp/international/mule-diag.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 44115dfe3c8..2e493be5c65 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -278,7 +278,7 @@ NON-ISO-CHARSET is a name (symbol) of the non-ISO charset. CHARSET-LIST is a list of Emacs' charsets into which characters of NON-ISO-CHARSET are mapped. -TRANSLATION-METHOD is a translatin table (symbol) to translate a +TRANSLATION-METHOD is a translation table (symbol) to translate a character code of NON-ISO-CHARSET to the corresponding Emacs character code. It can also be a function to call with one argument, a character code in NON-ISO-CHARSET. @@ -491,7 +491,7 @@ detailed meanings of these arguments." (if (= (aref info 2) 1) (format "%d\n" (aref info 3)) (format "%dx%d\n" (aref info 3) (aref info 3)))) - (insert "the final char of ISO2022's desgination sequence: ") + (insert "the final char of ISO2022's designation sequence: ") (if (aref info 8) (insert (format "`%c'\n" (aref info 8))) (insert "not assigned\n")) @@ -501,7 +501,7 @@ detailed meanings of these arguments." (charset-multibyte-form-string charset))) (let ((coding (plist-get (aref info 14) 'preferred-coding-system))) (when coding - (insert (format "prefered coding system: %s\n" coding)) + (insert (format "preferred coding system: %s\n" coding)) (search-backward (symbol-name coding)) (help-xref-button 0 #'describe-coding-system coding "mouse-2, RET: describe this coding system"))) @@ -593,7 +593,7 @@ which font is being used for displaying the character." (insert " " clm)) (insert "\n"))) (when composition - (insert "\nComposed with the following characerter(s) " + (insert "\nComposed with the following character(s) " (mapconcat (lambda (x) (format "`%c'" x)) (substring composed 1) ", ") -- 2.39.5