procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lm-with-file): When FILE is nil, run BODY in current buffer.

Browse source
This commit is contained in:
Richard M. Stallman 2003-09-30 12:47:04 +00:00
parent e927088b53
commit 9e1b128cd0
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/lisp-mnt.el
View file

@ -297,12 +297,14 @@ The returned value is a list of strings, one per line."
(defmacro lm-with-file (file &rest body)
"Execute BODY in a buffer containing the contents of FILE.
If FILE is nil, just return nil."
If FILE is nil, execute BODY in the current buffer."
(let ((filesym (make-symbol "file")))
`(let ((,filesym ,file))
(when ,filesym
(with-temp-buffer
(insert-file-contents ,filesym)
(if ,filesym
(with-temp-buffer
(insert-file-contents ,filesym)
,@body)
(save-excursion
,@body)))))
(put 'lm-with-file 'lisp-indent-function 1)
(put 'lm-with-file 'edebug-form-spec t)