comparison lisp/subr.el @ 16311:a56a8c6f2d8f

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

16310:c987c025d448

The value returned is the value of the last form in BODY."
  `(save-current-buffer
    (set-buffer ,buffer)
    . ,body))

(defvar save-match-data-internal)

;; We use save-match-data-internal as the local variable because
;; that works ok in practice (people should not use that variable elsewhere).
;; We used to use an uninterned symbol; the compiler handles that properly

16311:a56a8c6f2d8f

The value returned is the value of the last form in BODY."
  `(save-current-buffer
    (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
;; that works ok in practice (people should not use that variable elsewhere).
;; We used to use an uninterned symbol; the compiler handles that properly