mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

(lm-verify): Make it work with

Browse source 
directories.  Not sure anybody uses this anymore, though.
This commit is contained in:
David Kastrup 2007-12-09 14:47:24 +00:00
parent 316be4e813
commit 0e250bf878
2 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-12-09 David Kastrup <dak@gnu.org>
* emacs-lisp/lisp-mnt.el (lm-verify): Make it work with
directories. Not sure anybody uses this anymore, though.
2007-12-09 Vinicius Jose Latorre <viniciusjl@ig.com.br> 2007-12-09 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* printing.el: Fix pr-interface-map initialization. Replace * printing.el: Fix pr-interface-map initialization. Replace

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

@ -511,18 +511,17 @@ copyright notice is allowed."
(if (and file (file-directory-p file)) (if (and file (file-directory-p file))
(setq ret (setq ret
(with-temp-buffer (with-temp-buffer
(mapcar (dolist (f (directory-files file nil "\\.el\\'")
(lambda (f) (buffer-string))
(if (string-match ".*\\.el\\'" f) (when (file-regular-p f)
(let ((status (lm-verify f))) (let ((status (lm-verify f)))
(insert f ":") (insert f ":")
(if status (if status
(lm-insert-at-column lm-comment-column status (lm-insert-at-column lm-comment-column status
"\n") "\n")
(if showok (if showok
(lm-insert-at-column lm-comment-column (lm-insert-at-column lm-comment-column
"OK\n")))))) "OK\n"))))))))
(directory-files file))))
(lm-with-file file (lm-with-file file
(setq name (lm-get-package-name)) (setq name (lm-get-package-name))
(setq ret (setq ret