(lm-verify): Make it work with

directories.  Not sure anybody uses this anymore, though.

lisp/ChangeLog

+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

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