Mercurial > hg > xemacs-beta

diff lisp/mule/mule-cmds.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 95016f13131a
children
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el	Mon Aug 13 11:25:03 2007 +0200
+++ b/lisp/mule/mule-cmds.el	Mon Aug 13 11:26:11 2007 +0200
@@ -787,6 +787,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