Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/minibuf.el	Mon Aug 13 09:59:07 2007 +0200
+++ b/lisp/prim/minibuf.el	Mon Aug 13 10:00:02 2007 +0200
@@ -308,6 +308,10 @@
 
 (define-error 'input-error "Keyboard input error")
 
+(put 'input-error 'display-error
+     #'(lambda (error-object stream)
+	 (princ (cadr error-object) stream)))
+
 (defun read-from-minibuffer (prompt &optional initial-contents
                                     keymap
                                     readp