Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/finder.el	Sat Dec 26 00:20:27 2009 -0600
+++ b/lisp/finder.el	Sat Dec 26 21:18:49 2009 -0600
@@ -172,7 +172,7 @@
       (insert ";; Don't edit this file.  It's generated by finder.el\n\n")
       (insert ";;; Code:\n")
       (insert "\n(defconst finder-package-info '(\n")
-      (mapcar
+      (mapc
        (lambda (d)
 	 (mapcar
 	  (lambda (f) 
@@ -243,7 +243,7 @@
   (interactive)
   (setq buffer-read-only nil)
   (erase-buffer)
-  (mapcar
+  (mapc
    (lambda (assoc)
      (let ((keyword (car assoc)))
        (insert (symbol-name keyword))
@@ -266,7 +266,7 @@
     (insert
      "The following packages match the keyword `" key "':\n\n")
     (setq finder-headmark (point))
-    (mapcar
+    (mapc
      (lambda (x)
        (if (memq id (car (cdr (cdr x))))
 	   (progn