From: David Kastrup <dak@gnu.org>
Date: Sun, 9 Dec 2007 14:47:24 +0000 (+0000)
Subject: (lm-verify): Make it work with
X-Git-Tag: emacs-pretest-23.0.90~8990
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e250bf8782b236076a03f470eab9ce3a26bccb5;p=emacs.git

(lm-verify): Make it work with
directories.  Not sure anybody uses this anymore, though.
---

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