# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 940942811 0
# Node ID 598f252b76f20e1def092599ef86160d814c79cb
# Parent  88faf40281cd98e2d890ea42b84820dce0f62c53
(read-input-method-name): Handle the
case that the arg DEFAULT is symbol.

diff -r 88faf40281cd -r 598f252b76f2 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Tue Oct 26 12:53:53 1999 +0000
+++ b/lisp/international/mule-cmds.el	Tue Oct 26 13:00:11 1999 +0000
@@ -892,6 +892,8 @@
 	 (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