Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
413:901169e5ca31 414:da8ed4261e83
388 ;; buffer local. 388 ;; buffer local.
389 (input-method (completing-read prompt input-method-alist 389 (input-method (completing-read prompt input-method-alist
390 nil t nil 'input-method-history) 390 nil t nil 'input-method-history)
391 ;;default) 391 ;;default)
392 )) 392 ))
393 (if (string-equal input-method "")
394 (setq input-method default))
393 (if (> (length input-method) 0) 395 (if (> (length input-method) 0)
394 input-method 396 input-method
395 (if inhibit-null 397 (if inhibit-null
396 (error "No valid input method is specified"))))) 398 (error "No valid input method is specified")))))
397 399