# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 984740513 0
# Node ID 99b5339c07ae80470ad8205ed26fe110f851081b
# Parent  7276cd2a01171c3e859a2fd54f442eea2bf258d4
(select-safe-coding-system): Fix typo: symbol-name -> symbol-value.

diff -r 7276cd2a0117 -r 99b5339c07ae lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Fri Mar 16 11:01:23 2001 +0000
+++ b/lisp/international/mule-cmds.el	Fri Mar 16 11:01:53 2001 +0000
@@ -589,7 +589,7 @@
   (let ((tail coding-category-list)
 	preferred base)
     (while (and tail
-		(not (setq preferred (symbol-name (car tail)))))
+		(not (setq preferred (symbol-value (car tail)))))
       (setq tail (cdr tail)))
     (and (coding-system-p preferred)
 	 (setq base (coding-system-base preferred))