Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
785 ;; This binding is necessary because input-method-history is 785 ;; This binding is necessary because input-method-history is
786 ;; buffer local. 786 ;; buffer local.
787 (input-method (completing-read prompt input-method-alist 787 (input-method (completing-read prompt input-method-alist
788 nil t nil 'input-method-history 788 nil t nil 'input-method-history
789 default))) 789 default)))
790 (if (and input-method (symbolp input-method))
791 (setq input-method (symbol-name input-method)))
790 (if (> (length input-method) 0) 792 (if (> (length input-method) 0)
791 input-method 793 input-method
792 (if inhibit-null 794 (if inhibit-null
793 (error "No valid input method is specified"))))) 795 (error "No valid input method is specified")))))
794 796