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

case that the arg DEFAULT is symbol.

2 files changed, 10 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 527304be32f..9e7354cae7f 100644
--- 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 775b5808a11..1b35f86ef6a 100644
--- 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