From 876cea9c0c4c317f99dc104a83472fc9e954556c Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 9 Jun 1998 02:33:11 +0000 Subject: [PATCH] Modify comments. --- emu.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/emu.el b/emu.el index e13a8f1..2491547 100644 --- a/emu.el +++ b/emu.el @@ -285,7 +285,16 @@ Executes BODY just like `progn'." (progn (,@ body)) (set-buffer orig-buffer))))) -;; This macro was imported XEmacs 21. +;; This macro was imported Emacs 20.2. +(defmacro-maybe with-current-buffer (buffer &rest body) + "Execute the forms in BODY with BUFFER as the current buffer. +The value returned is the value of the last form in BODY. +See also `with-temp-buffer'." + (` (save-current-buffer + (set-buffer (, buffer)) + (,@ body)))) + +;; This macro was imported Emacs 20.2. (defmacro-maybe with-temp-buffer (&rest forms) "Create a temporary buffer, and evaluate FORMS there like `progn'. See also `with-temp-file' and `with-output-to-string'." @@ -298,15 +307,6 @@ See also `with-temp-file' and `with-output-to-string'." (and (buffer-name (, temp-buffer)) (kill-buffer (, temp-buffer)))))))) -;; This macro was imported XEmacs 21. -(defmacro-maybe with-current-buffer (buffer &rest body) - "Execute the forms in BODY with BUFFER as the current buffer. -The value returned is the value of the last form in BODY. -See also `with-temp-buffer'." - (` (save-current-buffer - (set-buffer (, buffer)) - (,@ body)))) - ;; This function was imported from XEmacs 21. (defun-maybe split-string (string &optional pattern) "Return a list of substrings of STRING which are separated by PATTERN. -- 1.7.10.4