Mercurial > hg > xemacs-beta

diff lisp/mule/mule-cmds.el @ 347:7c94d56991e1 r21-1-3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-3
author cvs
date Mon, 13 Aug 2007 10:53:48 +0200
parents 4f79e16b1112
children 7347b34c275b
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el	Mon Aug 13 10:53:20 2007 +0200
+++ b/lisp/mule/mule-cmds.el	Mon Aug 13 10:53:48 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