Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 420:41dbb7a9d5f2 r21-2-18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-18
author cvs
date Mon, 13 Aug 2007 11:24:09 +0200
parents e804706bfb8c
children 11054d720c21
comparison
equal deleted inserted replaced
419:66615b78f1a5 420:41dbb7a9d5f2
332 (prog1 332 (prog1
333 (buffer-string) 333 (buffer-string)
334 (erase-buffer)))) 334 (erase-buffer))))
335 335
336 (defmacro with-current-buffer (buffer &rest body) 336 (defmacro with-current-buffer (buffer &rest body)
337 "Execute the forms in BODY with BUFFER as the current buffer. 337 "Temporarily make BUFFER the current buffer and execute the forms in BODY.
338 The value returned is the value of the last form in BODY. 338 The value returned is the value of the last form in BODY.
339 See also `with-temp-buffer'." 339 See also `with-temp-buffer'."
340 `(save-current-buffer 340 `(save-current-buffer
341 (set-buffer ,buffer) 341 (set-buffer ,buffer)
342 ,@body)) 342 ,@body))