Mercurial > hg > xemacs-beta

diff lisp/mule/mule-cmds.el @ 414:da8ed4261e83 r21-2-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-15
author cvs
date Mon, 13 Aug 2007 11:21:38 +0200
parents 697ef44129c6
children 95016f13131a
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el	Mon Aug 13 11:20:44 2007 +0200
+++ b/lisp/mule/mule-cmds.el	Mon Aug 13 11:21:38 2007 +0200
@@ -390,6 +390,8 @@
 					nil t nil 'input-method-history)
 		       ;;default)
 		       ))
+    (if (string-equal input-method "")
+	(setq input-method default))
     (if (> (length input-method) 0)
 	input-method
       (if inhibit-null