Mercurial > hg > xemacs-beta

comparison lisp/prim/minibuf.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 6075d714658b
children e45d5e7c476e
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
305 :type '(choice (const :tag "Any" nil) 305 :type '(choice (const :tag "Any" nil)
306 integer) 306 integer)
307 :group 'minibuffer) 307 :group 'minibuffer)
308 308
309 (define-error 'input-error "Keyboard input error") 309 (define-error 'input-error "Keyboard input error")
310
311 (put 'input-error 'display-error
312 #'(lambda (error-object stream)
313 (princ (cadr error-object) stream)))
310 314
311 (defun read-from-minibuffer (prompt &optional initial-contents 315 (defun read-from-minibuffer (prompt &optional initial-contents
312 keymap 316 keymap
313 readp 317 readp
314 history 318 history