Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mnt.el @ 87208:87e24ce4f26a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lm-verify): Make it work with directories. Not sure anybody uses this anymore, though.
author David Kastrup <dak@gnu.org>
date Sun, 09 Dec 2007 14:47:24 +0000
parents e50a2e215441
children 107ccd98fa12 2fcaae6177a5
comparison
equal deleted inserted replaced
87207:d5142579b974 87208:87e24ce4f26a
509 (let* ((ret (and verbose "Ok")) 509 (let* ((ret (and verbose "Ok"))
510 name) 510 name)
511 (if (and file (file-directory-p file)) 511 (if (and file (file-directory-p file))
512 (setq ret 512 (setq ret
513 (with-temp-buffer 513 (with-temp-buffer
514 (mapcar 514 (dolist (f (directory-files file nil "\\.el\\'")
515 (lambda (f) 515 (buffer-string))
516 (if (string-match ".*\\.el\\'" f) 516 (when (file-regular-p f)
517 (let ((status (lm-verify f))) 517 (let ((status (lm-verify f)))
518 (insert f ":") 518 (insert f ":")
519 (if status 519 (if status
520 (lm-insert-at-column lm-comment-column status 520 (lm-insert-at-column lm-comment-column status
521 "\n") 521 "\n")
522 (if showok 522 (if showok
523 (lm-insert-at-column lm-comment-column 523 (lm-insert-at-column lm-comment-column
524 "OK\n")))))) 524 "OK\n"))))))))
525 (directory-files file))))
526 (lm-with-file file 525 (lm-with-file file
527 (setq name (lm-get-package-name)) 526 (setq name (lm-get-package-name))
528 (setq ret 527 (setq ret
529 (cond 528 (cond
530 ((null name) 529 ((null name)