Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
346:dd0986ffd2cf 347:7c94d56991e1
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