# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 927721658 0
# Node ID 284b97841fa1987e8efec88ae423dbcf397bc38c
# Parent  856a475f3fc3a8f29e0b90c155c4f88ab67e0638
(find-coding-systems-for-charsets):
Typo fixed; prefered->preferred.

diff -r 856a475f3fc3 -r 284b97841fa1 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed May 26 08:05:50 1999 +0000
+++ b/lisp/international/mule-cmds.el	Wed May 26 12:27:38 1999 +0000
@@ -348,12 +348,12 @@
       '(undecided)
     (setq charsets (delq 'composition charsets))
     (let ((l (coding-system-list 'base-only))
-	  (charset-prefered-codings
+	  (charset-preferred-codings
 	   (mapcar (function
 		    (lambda (x)
 		      (if (eq x 'unknown)
 			  'raw-text
-			(get-charset-property x 'prefered-coding-system))))
+			(get-charset-property x 'preferred-coding-system))))
 		   charsets))
 	  (priorities (mapcar (function (lambda (x) (symbol-value x)))
 			      coding-category-list))
@@ -367,13 +367,13 @@
 		 (or (eq safe t)
 		     (find-coding-systems-region-subset-p charsets safe)))
 	    ;; We put the higher priority to coding systems included
-	    ;; in CHARSET-PREFERED-CODINGS, and within them, put the
+	    ;; in CHARSET-PREFERRED-CODINGS, and within them, put the
 	    ;; higher priority to coding systems which support smaller
 	    ;; number of charsets.
 	    (let ((priority
 		   (+ (if (coding-system-get coding 'mime-charset) 4096 0)
 		      (lsh (length (memq coding priorities)) 7)
-		      (if (memq coding charset-prefered-codings) 64 0)
+		      (if (memq coding charset-preferred-codings) 64 0)
 		      (if (> (coding-system-type coding) 0) 32 0)
 		      (if (consp safe) (- 32 (length safe)) 0))))
 	      (setq codings (cons (cons priority coding) codings)))))