Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 306:9ea74add5d37 r21-0b51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b51
author cvs
date Mon, 13 Aug 2007 10:41:58 +0200
parents 4b85ae5eabfb
children afd57c14dfc8
comparison
equal deleted inserted replaced
305:18920a7e9a86 306:9ea74add5d37
1461 (setq num (condition-case () 1461 (setq num (condition-case ()
1462 (let ((minibuffer-completion-table nil)) 1462 (let ((minibuffer-completion-table nil))
1463 (read-from-minibuffer 1463 (read-from-minibuffer
1464 prompt (if num (prin1-to-string num)) nil t 1464 prompt (if num (prin1-to-string num)) nil t
1465 t)) ;no history 1465 t)) ;no history
1466 (input-error nil)
1466 (invalid-read-syntax nil) 1467 (invalid-read-syntax nil)
1467 (end-of-file nil))) 1468 (end-of-file nil)))
1468 (or (funcall pred num) (beep))) 1469 (or (funcall pred num) (beep)))
1469 num)) 1470 num))
1470 1471