mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -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>
* 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))
(setq ret
(with-temp-buffer
(mapcar
(lambda (f)
(if (string-match ".*\\.el\\'" f)
(let ((status (lm-verify f)))
(insert f ":")
(if status
(lm-insert-at-column lm-comment-column status
"\n")
(if showok
(lm-insert-at-column lm-comment-column
"OK\n"))))))
(directory-files file))))
(dolist (f (directory-files file nil "\\.el\\'")
(buffer-string))
(when (file-regular-p f)
(let ((status (lm-verify f)))
(insert f ":")
(if status
(lm-insert-at-column lm-comment-column status
"\n")
(if showok
(lm-insert-at-column lm-comment-column
"OK\n"))))))))
(lm-with-file file
(setq name (lm-get-package-name))
(setq ret