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

(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

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