(with-output-to-string): New macro.

diff --git a/lisp/subr.el b/lisp/subr.el
index c1ab778f38a25749c69c69622fbc2b0d6db9f072..34cd3e7abe0b0dc4bad4fed589015bb7b31da2db 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -740,6 +740,21 @@ The value returned is the value of the last form in BODY."
     (set-buffer ,buffer)
     . ,body))
 
+(defmacro with-output-to-string (&rest body)
+  "Execute BODY, return the text it sent to `standard-output', as a string."
+  `(let ((standard-output (get-buffer-create " *string-output*")))
+     (save-excursion
+       (set-buffer standard-output)
+       (buffer-disable-undo (current-buffer))
+       (let ((inhibit-read-only t))
+        (erase-buffer))
+       (setq buffer-read-only nil))
+     (let ((standard-output standard-output))
+       ,@body)
+     (save-excursion
+       (set-buffer standard-output)
+       (buffer-string))))
+
 (defvar save-match-data-internal)
 
 ;; We use save-match-data-internal as the local variable because