Mercurial > hg > xemacs-beta

comparison lisp/prim/cmdloop.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
132 132
133 (defun describe-last-error () 133 (defun describe-last-error ()
134 "Redisplay the last error-message. See the variable `last-error'." 134 "Redisplay the last error-message. See the variable `last-error'."
135 (interactive) 135 (interactive)
136 (with-displaying-help-buffer 136 (with-displaying-help-buffer
137 (princ "Last error was:\n" standard-output) 137 (lambda ()
138 (display-error last-error standard-output))) 138 (princ "Last error was:\n" standard-output)
139 (display-error last-error standard-output))))
139 140
140 141
141 ;;#### Must be done later in the loadup sequence 142 ;;#### Must be done later in the loadup sequence
142 ;(define-key (symbol-function 'help-command) "e" 'describe-last-error) 143 ;(define-key (symbol-function 'help-command) "e" 'describe-last-error)
143 144