(read-input-method-name): Handle the

case that the arg DEFAULT is symbol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 527304be32f1300468a10512f19d69182b55ee01..9e7354cae7fb67a41b14bba27c25dfea6631b2fc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+1999-10-26  Kenichi Handa  <handa@etl.go.jp>
+
+       * international/mule-cmds.el (read-input-method-name): Handle the
+       case that the arg DEFAULT is symbol.
+
+       * international/mule-diag.el (mule-diag): Handle the case that
+       default-input-method is symbol.
+
 1999-10-26  Gerd Moellmann  <gerd@gnu.org>
 
        * textmodes/tildify.el: New file.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 775b5808a11816f617cf1ec222ccd6c2125f2b5d..1b35f86ef6a0c239d5cf5efe6a313c6c48549652 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -892,6 +892,8 @@ The return value is a string."
         (input-method (completing-read prompt input-method-alist
                                        nil t nil 'input-method-history
                                        default)))
+    (if (and input-method (symbolp input-method))
+       (setq input-method (symbol-name input-method)))
     (if (> (length input-method) 0)
        input-method
       (if inhibit-null