[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mnt.el,v

[David Kastrup]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     David Kastrup <dak>     07/12/09 14:47:26

Index: emacs-lisp/lisp-mnt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/lisp-mnt.el,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -b -r1.55 -r1.56
--- emacs-lisp/lisp-mnt.el      8 Dec 2007 01:02:27 -0000       1.55
+++ emacs-lisp/lisp-mnt.el      9 Dec 2007 14:47:23 -0000       1.56
@@ -511,9 +511,9 @@
     (if (and file (file-directory-p file))
        (setq ret
              (with-temp-buffer
-               (mapcar
-                (lambda (f)
-                  (if (string-match ".*\\.el\\'" f)
+               (dolist (f (directory-files file nil "\\.el\\'")
+                          (buffer-string))
+                 (when (file-regular-p f)
                       (let ((status (lm-verify f)))
                         (insert f ":")
                         (if status
@@ -521,8 +521,7 @@
                                                  "\n")
                           (if showok
                               (lm-insert-at-column lm-comment-column
-                                                   "OK\n"))))))
-                (directory-files file))))
+                                                "OK\n"))))))))
       (lm-with-file file
        (setq name (lm-get-package-name))
        (setq ret