Mercurial > hg > xemacs-beta

comparison lisp/lisp-mnt.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents a300bb07d72d
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
447 ret 447 ret
448 (progn 448 (progn
449 (switch-to-buffer (get-buffer-create "*lm-verify*")) 449 (switch-to-buffer (get-buffer-create "*lm-verify*"))
450 (erase-buffer) 450 (erase-buffer)
451 (mapcar 451 (mapcar
452 '(lambda (f) 452 #'(lambda (f)
453 (if (string-match ".*\\.el$" f) 453 (if (string-match ".*\\.el$" f)
454 (let ((status (lm-verify f))) 454 (let ((status (lm-verify f)))
455 (if status 455 (if status
456 (progn 456 (progn
457 (insert f ":") 457 (insert f ":")
458 (lm-insert-at-column lm-comment-column status "\n")) 458 (lm-insert-at-column lm-comment-column status "\n"))
459 (and showok 459 (and showok
460 (progn 460 (progn
461 (insert f ":") 461 (insert f ":")
462 (lm-insert-at-column lm-comment-column "OK\n"))))))) 462 (lm-insert-at-column lm-comment-column "OK\n")))))))
463 (directory-files file)) 463 (directory-files file))
464 )) 464 ))
465 (save-excursion 465 (save-excursion
466 (if file 466 (if file
467 (find-file file)) 467 (find-file file))