X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbuild-report.el;h=e2093050f31f85831600b7b7e362bf1fd8403bbe;hb=8b6b965da075da197b3d654db3405aa6846bd3d8;hp=b3797f380bdc05c2f54610da267d4f0a41a33d19;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/build-report.el b/lisp/build-report.el
index b3797f3..e209305 100644
--- a/lisp/build-report.el
+++ b/lisp/build-report.el
@@ -1,10 +1,8 @@
 ;;; build-report.el --- Automatically formatted build reports for XEmacs
 
-;; Copyright (C) 1997 Adrian Aichner
+;; Copyright (C) 1997-2001 Adrian Aichner
 
 ;; Author: Adrian Aichner <adrian@xemacs.org>
-;; Date: Sun., Apr. 20, 1997-2000.
-;; Version: $Revision: 1.5.2.6 $
 ;; Keywords: internal
 
 ;; This file is part of XEmacs.
@@ -87,8 +85,9 @@ xemacs_codename\\s-*=\\s-*\"\\([^\"]+\\)\""
   :group 'build)
 
 (defcustom build-report-destination
-  (quote ("XEmacs Build Reports List <xemacs-build-reports@xemacs.org>"
-          "XEmacs Beta List <xemacs-beta@xemacs.org>"))
+  (list
+   "XEmacs Build Reports List <xemacs-buildreports@xemacs.org>"
+   "XEmacs Beta List <xemacs-beta@xemacs.org>")
   "*The list of mail addresses XEmacs Build Reports should most likely
 go to."
   :type '(repeat
@@ -98,12 +97,22 @@ go to."
   :group 'build-report)
 
 (defcustom build-report-keep-regexp
-  (quote ("^\\(cd\\|n?make\\)\\s-" "errors?" "warnings?"
-          "pure.*\\(space\\|size\\)" "hides\\b" "strange" "shadowings"
-          "^Compil\\(ing\\s-+in\\|ation\\)" "^Using" "not\\s-+found"
-          "^While\\s-+compiling.*\\(\n\\s-+.+\\)*" "^Note:"
-          "Installing" "[Ff]ile(s) copied"
-          "\\s-+tests\\s-+"))
+  (list
+   "^\\(cd\\|n?make\\)\\s-"
+   "errors?"
+   "warnings?"
+   "pure.*\\(space\\|size\\)"
+   "hides\\b"
+   "strange"
+   "shadowings"
+   "^Compil\\(ing\\s-+in\\|ation\\)"
+   "^Using"
+   "not\\s-+found"
+   "^While\\s-+compiling.*\\(\n\\s-+.+\\)*"
+   "^Note:"
+   "Installing"
+   "[Ff]ile(s) copied"
+   "\\s-+tests\\s-+")
   "*Regexp of make process output lines to keep in the report."
   :type '(repeat
           :custom-show t
@@ -112,7 +121,10 @@ go to."
   :group 'build-report)
 
 (defcustom build-report-delete-regexp
-  (quote ("confl.*with.*auto-inlining" "^Formatting:"))
+  (list
+   "confl.*with.*auto-inlining"
+   "^Formatting:"
+   "(100%) tests successful")
   "*Regexp of make process output lines to delete from the report."
   :type '(repeat
           :custom-show t
@@ -136,7 +148,12 @@ go to."
   :group 'build-report)
 
 (defcustom build-report-make-output-files
-  (quote ("beta.err"))
+  (list
+   "beta.err"
+   "xemacs-make-all.err" 
+   "xemacs-make-check-temacs.err"
+   "xemacs-make-check.err"
+   "xemacs-make-install.err")
   "*List of Filenames where stdout and stderr of XEmacs make process
 have been stored.  These are relative to
 `build-report-make-output-dir`.  You'll have to run make with output
@@ -145,7 +162,7 @@ may use following alias
 
 alias mk 'make \!* >>&\! \!$.err &'
 
-under csh, so that you get beta.err went you run `mk beta'."
+under csh, so that you get beta.err when you run `mk beta'."
   :type '(repeat
           :custom-show t
           :documentation-shown t
@@ -252,19 +269,22 @@ under csh, so that you get beta.err went you run `mk beta'."
 
 ;;;###autoload
 (defun build-report (&rest args)
-  "Composes a fresh mail message with the contents of the built XEmacs
-Installation file and excerpts from XEmacs make output.
-`compose-mail' is used to create the mail message.  Point is left at
-the beginning of the mail text.  You may add some personal notes if
-you like and send the report.
-See also
-  `compose-mail', `mail-user-agent',
-  `build-report-destination',
-  `build-report-keep-regexp',
-  `build-report-delete-regexp',
-  `build-report-make-output-dir',
-  `build-report-make-output-files', and
-  `build-report-installation-file'."
+  "Report build information including Installation and make output.
+
+Prompts for status (usually \"Success\" or \"Failure\").  Then uses
+`compose-mail' to create a mail message.  The Subject header contains
+status and version information.  Point is left at the beginning of the
+mail text.  Add some notes if you like, and send the report.
+
+Looks for Installation and the make output file (`beta.err' by
+default, customizable via `build-report-make-output-files') in the
+build directory of the running XEmacs by default (customizable via
+`build-report-make-output-dir').  The output from make is filtered
+through `build-report-keep-regexp' and `build-report-delete-regexp'
+before including in the message.
+
+See also `mail-user-agent', `build-report-destination', and
+`build-report-installation-file'."
   ;; `interactive' form returns value for formal parameter `args'.
   (interactive
    (let (prompt