Mercurial > hg > xemacs-beta

comparison lisp/cmdloop.el @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 6330739388db
children 558f606b08ae
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
145 (t 'command-error))) 145 (t 'command-error)))
146 (display-error error-object t) 146 (display-error error-object t)
147 147
148 (if (noninteractive) 148 (if (noninteractive)
149 (progn 149 (progn
150 (message "XEmacs exiting.") 150 (message "%s exiting." emacs-program-name)
151 (kill-emacs -1))) 151 (kill-emacs -1)))
152 t)) 152 t))
153 153
154 (defun describe-last-error () 154 (defun describe-last-error ()
155 "Redisplay the last error-message. See the variable `last-error'." 155 "Redisplay the last error-message. See the variable `last-error'."