Mercurial > emacs

comparison lisp/finder.el @ 84870:19e1cc64b115

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(finder-compile-keywords): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 25 Sep 2007 11:06:40 +0000
parents 76e7ca025173
children 107ccd98fa12 14c4a6aac623
comparison
equal deleted inserted replaced
84869:9ee30350a5a4 84870:19e1cc64b115
132 (insert ";; This file is part of GNU Emacs.\n") 132 (insert ";; This file is part of GNU Emacs.\n")
133 (insert ";;; Commentary:\n") 133 (insert ";;; Commentary:\n")
134 (insert ";; Don't edit this file. It's generated by finder.el\n\n") 134 (insert ";; Don't edit this file. It's generated by finder.el\n\n")
135 (insert ";;; Code:\n") 135 (insert ";;; Code:\n")
136 (insert "\n(setq finder-package-info '(\n") 136 (insert "\n(setq finder-package-info '(\n")
137 (mapcar 137 (mapc
138 (lambda (d) 138 (lambda (d)
139 (when (file-exists-p (directory-file-name d)) 139 (when (file-exists-p (directory-file-name d))
140 (message "Directory %s" d) 140 (message "Directory %s" d)
141 (mapcar 141 (mapcar
142 (lambda (f) 142 (lambda (f)