Commit 0e250bf8 authored by David Kastrup's avatar David Kastrup

(lm-verify): Make it work with

directories.  Not sure anybody uses this anymore, though.
parent 316be4e8
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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment