X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbuild-report.el;h=66ef27f4744d615324fb858e5181b29cc281be42;hb=9dab7627f5aa4b82bc092df9dacb1c401ced0e5e;hp=1700496c64ff80d540d2f3530aba6317afa09e1e;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/build-report.el b/lisp/build-report.el
index 1700496..66ef27f 100644
--- a/lisp/build-report.el
+++ b/lisp/build-report.el
@@ -2,8 +2,8 @@
 
 ;; Copyright (C) 1997 Adrian Aichner
 
-;; Author: Adrian Aichner, Teradyne GmbH Munich <aichner@ecf.teradyne.com>
-;; Date: Sun., Apr. 20, 1997.
+;; Author: Adrian Aichner <adrian@xemacs.org>
+;; Date: Sun., Apr. 20, 1997, 1998, 1999.
 ;; Version: 1.35
 ;; Keywords: internal
 
@@ -169,6 +169,7 @@ make output and errors and leaves point at the beginning of the mail text.
 	 (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 @@ created by the XEmacs Beta configure process."
 
 (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