;; 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
(prompts build-report-prompts))
(progn
(while prompts
+ (defvar hist)
(setq prompt (caar prompts))
(setq hist (cdar prompts))
(setq prompts (cdr prompts))
(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