Mercurial > hg > xemacs-beta

comparison lisp/build-report.el @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children de805c49cfc1
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
136 136
137 ;; Symbol Name mappings from TM to SEMI serving as Compatibility 137 ;; Symbol Name mappings from TM to SEMI serving as Compatibility
138 ;; Bandaid 138 ;; Bandaid
139 (when (featurep 'mime-setup) 139 (when (featurep 'mime-setup)
140 ;; No (defvaralias ...) so far. Thanks to "Didier Verna" 140 ;; No (defvaralias ...) so far. Thanks to "Didier Verna"
141 ;; <verna@inf.enst.fr> for reporting my incorrect defvaraliasing of 141 ;; <didier@xemacs.org> for reporting my incorrect defvaraliasing of
142 ;; `mime-editor/insert-tag'. 142 ;; `mime-editor/insert-tag'.
143 ;; Thanks to Jens-Ulrik Holger Petersen 143 ;; Thanks to Jens-Ulrik Holger Petersen
144 ;; <petersen@kurims.kyoto-u.ac.jp> for suggesting the conditional 144 ;; <petersen@kurims.kyoto-u.ac.jp> for suggesting the conditional
145 ;; aliasing of SEMI functions. 145 ;; aliasing of SEMI functions.
146 (unless (fboundp 'mime-edit-content-beginning) 146 (unless (fboundp 'mime-edit-content-beginning)
211 (progn 211 (progn
212 (if (featurep 'mime-setup) 212 (if (featurep 'mime-setup)
213 (progn 213 (progn
214 (mime-edit-insert-tag 214 (mime-edit-insert-tag
215 "text" 215 "text"
216 "plain" 216 "plain"
217 (concat 217 (concat
218 "\nContent-Disposition: attachment;" 218 "\nContent-Disposition: attachment;"
219 " filename=\"" 219 " filename=\""
220 (file-name-nondirectory 220 (file-name-nondirectory
221 build-report-make-output-file) 221 build-report-make-output-file)
227 (goto-char (point-min)) 227 (goto-char (point-min))
228 (delete-non-matching-lines (build-report-keep)) 228 (delete-non-matching-lines (build-report-keep))
229 (goto-char (point-min)) 229 (goto-char (point-min))
230 (delete-matching-lines (build-report-delete)) 230 (delete-matching-lines (build-report-delete))
231 (goto-char (point-min)) 231 (goto-char (point-min))
232 (insert "> Contents of " 232 (insert "> Contents of "
233 build-report-make-output-file 233 build-report-make-output-file
234 "\n> keeping lines matching\n> \"" 234 "\n> keeping lines matching\n> \""
235 (build-report-keep) 235 (build-report-keep)
236 "\"\n> and then deleting lines matching\n> \"" 236 "\"\n> and then deleting lines matching\n> \""
237 (build-report-delete) 237 (build-report-delete)
238 "\"\n\n")) 238 "\"\n\n"))
239 (insert "> " build-report-make-output-file 239 (insert "> " build-report-make-output-file
240 " does not exist!\n\n")) 240 " does not exist!\n\n"))
241 (buffer-string))) 241 (buffer-string)))
242 242
243 (defun build-report-insert-installation-file (where all) 243 (defun build-report-insert-installation-file (where all)
244 "Inserts the contents of the `build-report-installation-file' 244 "Inserts the contents of the `build-report-installation-file'
245 created by the XEmacs Beta configure process." 245 created by the XEmacs Beta configure process."
246 (goto-char where) 246 (goto-char where)
247 (with-temp-buffer 247 (with-temp-buffer
256 (if all "all runs" "most recent run"))) 256 (if all "all runs" "most recent run")))
257 (if (featurep 'mime-setup) 257 (if (featurep 'mime-setup)
258 (progn 258 (progn
259 (mime-edit-insert-tag 259 (mime-edit-insert-tag
260 "text" 260 "text"
261 "plain" 261 "plain"
262 (concat 262 (concat
263 "\nContent-Disposition: attachment;" 263 "\nContent-Disposition: attachment;"
264 " filename=\"" 264 " filename=\""
265 (file-name-nondirectory 265 (file-name-nondirectory
266 build-report-installation-file) 266 build-report-installation-file)