mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-26 07:33:47 +00:00
* lisp/subr.el (internal-temp-output-buffer-show): Rename from
temp-output-buffer-show, since previously compiled files expect this name.
This commit is contained in:
parent
ea1d4aaca0
commit
4ff5b1b293
@ -1,3 +1,8 @@
|
||||
2012-10-23 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* subr.el (internal-temp-output-buffer-show): Rename from
|
||||
temp-output-buffer-show, since previously compiled files expect this name.
|
||||
|
||||
2012-10-23 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* image.el (image-type-from-file-name): If multiple types match,
|
||||
|
@ -3151,7 +3151,7 @@ in which case `save-window-excursion' cannot help."
|
||||
(unwind-protect (progn ,@body)
|
||||
(set-window-configuration ,c)))))
|
||||
|
||||
(defun temp-output-buffer-show (buffer)
|
||||
(defun internal-temp-output-buffer-show (buffer)
|
||||
"Internal function for `with-output-to-temp-buffer'."
|
||||
(with-current-buffer buffer
|
||||
(set-buffer-modified-p nil)
|
||||
@ -3235,7 +3235,7 @@ if it uses `temp-buffer-show-function'."
|
||||
(run-hooks 'temp-buffer-setup-hook)))))
|
||||
(standard-output ,buf))
|
||||
(prog1 (progn ,@body)
|
||||
(temp-output-buffer-show ,buf)))))
|
||||
(internal-temp-output-buffer-show ,buf)))))
|
||||
|
||||
(defmacro with-temp-file (file &rest body)
|
||||
"Create a new buffer, evaluate BODY there, and write the buffer to FILE.
|
||||
|
Loading…
Reference in New Issue
Block a user