(lm-verify): Make it work with

directories.  Not sure anybody uses this anymore, though.

2 files changed, 16 insertions, 12 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e257cd96b91..5c44fc072ef 100644
--- 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 bf7c4147309..8d098a443fe 100644
--- 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