Mercurial > hg > xemacs-beta

comparison lisp/finder.el @ 5118:e0db3c197671 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents e29fcfd8df5f
children 308d34e9f07d
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
170 (insert ";; Keywords: help\n") 170 (insert ";; Keywords: help\n")
171 (insert ";;; Commentary:\n") 171 (insert ";;; Commentary:\n")
172 (insert ";; Don't edit this file. It's generated by finder.el\n\n") 172 (insert ";; Don't edit this file. It's generated by finder.el\n\n")
173 (insert ";;; Code:\n") 173 (insert ";;; Code:\n")
174 (insert "\n(defconst finder-package-info '(\n") 174 (insert "\n(defconst finder-package-info '(\n")
175 (mapcar 175 (mapc
176 (lambda (d) 176 (lambda (d)
177 (mapcar 177 (mapcar
178 (lambda (f) 178 (lambda (f)
179 (when (and (not (member f processed)) (file-readable-p f)) 179 (when (and (not (member f processed)) (file-readable-p f))
180 (let (summary keystart keywords) 180 (let (summary keystart keywords)
241 (defun finder-list-keywords () 241 (defun finder-list-keywords ()
242 "Display descriptions of the keywords in the Finder buffer." 242 "Display descriptions of the keywords in the Finder buffer."
243 (interactive) 243 (interactive)
244 (setq buffer-read-only nil) 244 (setq buffer-read-only nil)
245 (erase-buffer) 245 (erase-buffer)
246 (mapcar 246 (mapc
247 (lambda (assoc) 247 (lambda (assoc)
248 (let ((keyword (car assoc))) 248 (let ((keyword (car assoc)))
249 (insert (symbol-name keyword)) 249 (insert (symbol-name keyword))
250 (finder-insert-at-column 14 (concat (cdr assoc) "\n")) 250 (finder-insert-at-column 14 (concat (cdr assoc) "\n"))
251 (cons (symbol-name keyword) keyword))) 251 (cons (symbol-name keyword) keyword)))
264 (erase-buffer) 264 (erase-buffer)
265 (let ((id (intern key))) 265 (let ((id (intern key)))
266 (insert 266 (insert
267 "The following packages match the keyword `" key "':\n\n") 267 "The following packages match the keyword `" key "':\n\n")
268 (setq finder-headmark (point)) 268 (setq finder-headmark (point))
269 (mapcar 269 (mapc
270 (lambda (x) 270 (lambda (x)
271 (if (memq id (car (cdr (cdr x)))) 271 (if (memq id (car (cdr (cdr x))))
272 (progn 272 (progn
273 (insert (car x)) 273 (insert (car x))
274 (finder-insert-at-column 16 (concat (car (cdr x)) "\n"))))) 274 (finder-insert-at-column 16 (concat (car (cdr x)) "\n")))))