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

Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
line wrap: on
line diff
--- a/lisp/prim/cmdloop.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/prim/cmdloop.el	Mon Aug 13 08:46:35 2007 +0200
@@ -134,8 +134,9 @@
   "Redisplay the last error-message.  See the variable `last-error'."
   (interactive)
   (with-displaying-help-buffer
-    (princ "Last error was:\n" standard-output)
-    (display-error last-error standard-output)))
+   (lambda ()
+     (princ "Last error was:\n" standard-output)
+     (display-error last-error standard-output))))
 
 
 ;;#### Must be done later in the loadup sequence