# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 975651604 0
# Node ID ebb2d5e5973e0b4ffb4e389a1a79d66c9ee9ed90
# Parent  b9883c4e5688bec81d611fedbdc22577ff5fc459
(describe-char-after): Fix typo.
(describe-character-set, non-iso-charset-alist): Fix typo.

diff -r b9883c4e5688 -r ebb2d5e5973e lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Fri Dec 01 06:19:31 2000 +0000
+++ b/lisp/international/mule-diag.el	Fri Dec 01 06:20:04 2000 +0000
@@ -278,7 +278,7 @@
 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 @@
 		(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 @@
 			(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 @@
 	      (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)
 			     ", ")