(lm-verify): Make it work with

directories.  Not sure anybody uses this anymore, though.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e257cd9..5c44fc0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index bf7c414..8d098a4 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -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