projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reformatted.
[chise/xemacs-chise.git-]
/
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
;; 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
;; Version: 1.35
;; Keywords: internal
@@
-138,7
+138,7
@@
available."
;; Bandaid
(when (featurep 'mime-setup)
;; No (defvaralias ...) so far. Thanks to "Didier Verna"
;; 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
;; `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
(prompts build-report-prompts))
(progn
(while prompts
+ (defvar hist)
(setq prompt (caar prompts))
(setq hist (cdar prompts))
(setq prompts (cdr prompts))
(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"
(progn
(mime-edit-insert-tag
"text"
- "plain"
+ "plain"
(concat
"\nContent-Disposition: attachment;"
" filename=\""
(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))
(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)
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)))
(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."
(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"
(progn
(mime-edit-insert-tag
"text"
- "plain"
+ "plain"
(concat
"\nContent-Disposition: attachment;"
" filename=\""
(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."
(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."
(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
build-report-delete-regexp "\\|"))
;;; build-report.el ends here