From 9e1b128cd06ba6bd3d9c9dbefa88f35d2003d056 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 30 Sep 2003 12:47:04 +0000 Subject: [PATCH] (lm-with-file): When FILE is nil, run BODY in current buffer. --- lisp/emacs-lisp/lisp-mnt.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index 893d95db05c..aeb7fb2258d 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -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) -- 2.39.2