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

(lm-with-file): Don't visit the file,

Browse source 
just use insert-file-contents in temp buffer.

(lm-get-header-re): Added surrounding \\( and \\) around the header,
as in for lm-history-header 'Change Log\\|History'.
This commit is contained in:
Richard M. Stallman 2003-09-22 15:23:53 +00:00
parent 9dbd7d6674
commit a94d391acd
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -180,8 +180,8 @@ Leading comment characters and whitespace should be in regexp group 1."
If called with optional MODE and with value `section',
return section regexp instead."
(if (eq mode 'section)
(concat "^;;;;* " header ":[ \t]*$")
(concat lm-header-prefix header "[ \t]*:[ \t]*")))
(concat "^;;;;* \\(" header "\\):[ \t]*$")
(concat lm-header-prefix "\\(" header "\\)[ \t]*:[ \t]*")))
(defun lm-get-package-name ()
"Return package name by looking at the first line."
@ -296,15 +296,14 @@ The returned value is a list of strings, one per line."
;; These give us smart access to the header fields and commentary
(defmacro lm-with-file (file &rest body)
"Make a buffer with FILE current, and execute BODY.
If FILE isn't in a buffer, load it in, and kill it after BODY is executed."
"Execute BODY in a buffer containing the contents of FILE.
If FILE is nil, just return nil."
(let ((filesym (make-symbol "file")))
`(save-excursion
(let ((,filesym ,file))
(if ,filesym (set-buffer (find-file-noselect ,filesym)))
(prog1 (progn ,@body)
(if (and ,filesym (not (get-buffer-window (current-buffer) t)))
(kill-buffer (current-buffer))))))))
`(let ((,filesym ,file))
(when ,filesym
(with-temp-buffer
(insert-file-contents ,filesym)
,@body)))))
(put 'lm-with-file 'lisp-indent-function 1)
(put 'lm-with-file 'edebug-form-spec t)