changeset 26190:598f252b76f2

(read-input-method-name): Handle the case that the arg DEFAULT is symbol.
author Kenichi Handa <handa@m17n.org>
date Tue, 26 Oct 1999 13:00:11 +0000
parents 88faf40281cd
children a1a3ade8b6ea
files lisp/international/mule-cmds.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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