Mercurial > hg > xemacs-beta

diff lisp/build-report.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 70ad99077275
children 74fd4e045ea6
line wrap: on
line diff
--- a/lisp/build-report.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/build-report.el	Mon Aug 13 11:07:10 2007 +0200
@@ -169,6 +169,7 @@
 	 (prompts build-report-prompts))
      (progn
        (while prompts
+	 (defvar hist)
 	 (setq prompt (caar prompts))
 	 (setq hist (cdar prompts))
 	 (setq prompts (cdr prompts))
@@ -283,12 +284,12 @@
 
 (defun build-report-keep ()
   "build-report-internal function of no general value."
-  (mapconcat '(lambda (item) item)
+  (mapconcat #'identity
 	     (cons "^--\\[\\[\\|\\]\\]$" build-report-keep-regexp) "\\|"))
 
 (defun build-report-delete ()
   "build-report-internal function of no general value."
-  (mapconcat '(lambda (item) item)
+  (mapconcat #'identity
 	     build-report-delete-regexp "\\|"))
 
 ;;; build-report.el ends here