From 0e250bf8782b236076a03f470eab9ce3a26bccb5 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sun, 9 Dec 2007 14:47:24 +0000
Subject: (lm-verify): Make it work with directories. Not sure anybody uses
this anymore, though.
---
lisp/emacs-lisp/lisp-mnt.el | 23 +++++++++++------------
1 file changed, 11 insertions(+), 12 deletions(-)
(limited to 'lisp/emacs-lisp/lisp-mnt.el')
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
--
cgit v1.2.3