This commit was manufactured by cvs2svn to create branch 'XEmacs-21_4'.

[chise/xemacs-chise.git.1] / lisp / build-report.el

diff --git a/lisp/build-report.el b/lisp/build-report.el
index 1700496..3f89157 100644 (file)
--- 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
 
@@ -138,7 +138,7 @@ available."
 ;; Bandaid
 (when (featurep 'mime-setup)
   ;; No (defvaralias ...) so far. Thanks to "Didier Verna"
-  ;; <verna@inf.enst.fr> for reporting my incorrect defvaraliasing of
+  ;; <didier@xemacs.org> for reporting my incorrect defvaraliasing of
   ;; `mime-editor/insert-tag'.
   ;; Thanks to Jens-Ulrik Holger Petersen
   ;; <petersen@kurims.kyoto-u.ac.jp> for suggesting the conditional
@@ -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))
@@ -212,7 +213,7 @@ The make process output must have been saved in
              (progn
                (mime-edit-insert-tag
                 "text"
-                "plain" 
+                "plain"
                 (concat
                  "\nContent-Disposition: attachment;"
                  " filename=\""
@@ -228,7 +229,7 @@ The make process output must have been saved in
          (goto-char (point-min))
          (delete-matching-lines (build-report-delete))
          (goto-char (point-min))
-         (insert "> Contents of " 
+         (insert "> Contents of "
                  build-report-make-output-file
                  "\n> keeping lines matching\n> \""
                  (build-report-keep)
@@ -238,7 +239,7 @@ The make process output must have been saved in
       (insert "> " build-report-make-output-file
              " does not exist!\n\n"))
     (buffer-string)))
-      
+
 (defun build-report-insert-installation-file (where all)
   "Inserts the contents of the `build-report-installation-file'
 created by the XEmacs Beta configure process."
@@ -257,7 +258,7 @@ created by the XEmacs Beta configure process."
              (progn
                (mime-edit-insert-tag
                 "text"
-                "plain" 
+                "plain"
                 (concat
                  "\nContent-Disposition: attachment;"
                  " filename=\""
@@ -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