[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el,v
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el,v |
Date: |
Tue, 23 Sep 2008 17:26:45 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Romain Francoise <rfrancoise> 08/09/23 17:26:43
Index: subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.606
retrieving revision 1.607
diff -u -b -r1.606 -r1.607
--- subr.el 7 Sep 2008 09:15:43 -0000 1.606
+++ subr.el 23 Sep 2008 17:26:43 -0000 1.607
@@ -2586,12 +2586,13 @@
(declare (indent 0) (debug t))
`(let ((standard-output
(get-buffer-create (generate-new-buffer-name " *string-output*"))))
+ (unwind-protect
+ (progn
(let ((standard-output standard-output))
,@body)
(with-current-buffer standard-output
- (prog1
- (buffer-string)
- (kill-buffer nil)))))
+ (buffer-string)))
+ (kill-buffer standard-output))))
(defmacro with-local-quit (&rest body)
"Execute BODY, allowing quits to terminate BODY but not escape further.