Mercurial > hg > xemacs-beta

comparison lisp/cmdloop.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
128 "*Non-nil means that errors will cause the region to be deactivated." 128 "*Non-nil means that errors will cause the region to be deactivated."
129 :type 'boolean 129 :type 'boolean
130 :group 'editing-basics) 130 :group 'editing-basics)
131 131
132 (defun command-error (error-object) 132 (defun command-error (error-object)
133 (let ((inhibit-quit t) 133 (let* ((old-debug-on-error debug-on-error)
134 (debug-on-error nil) 134 (inhibit-quit t)
135 (etype (car-safe error-object))) 135 (debug-on-error nil)
136 (etype (car-safe error-object)))
136 (setq quit-flag nil) 137 (setq quit-flag nil)
137 (setq standard-output t) 138 (setq standard-output t)
138 (setq standard-input t) 139 (setq standard-input t)
139 (setq executing-kbd-macro nil) 140 (setq executing-kbd-macro nil)
140 (and errors-deactivate-region 141 (and errors-deactivate-region
159 (t 'command-error))) 160 (t 'command-error)))
160 (display-error error-object t) 161 (display-error error-object t)
161 162
162 (if (noninteractive) 163 (if (noninteractive)
163 (progn 164 (progn
164 (message "%s exiting." emacs-program-name) 165 (if old-debug-on-error
166 (progn
167 (message "Backtrace:\n\n")
168 (backtrace)
169 (message "\n")))
170 (message "%s exiting\n." emacs-program-name)
165 (kill-emacs -1))) 171 (kill-emacs -1)))
166 t)) 172 t))
167 173
168 (defun describe-last-error () 174 (defun describe-last-error ()
169 "Redisplay the last error-message. See the variable `last-error'." 175 "Redisplay the last error-message. See the variable `last-error'."