[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mnt.el,v
From: |
David Kastrup |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mnt.el,v |
Date: |
Sun, 09 Dec 2007 14:47:26 +0000 |
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