Mercurial > hg > xemacs-beta

comparison lisp/build-report.el @ 243:f220cc83d72e r20-5b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b20
author cvs
date Mon, 13 Aug 2007 10:17:07 +0200
parents 85a06df23a9a
children 70ad99077275
comparison
equal deleted inserted replaced
242:fc816b73a05f 243:f220cc83d72e
48 ;;; Code: 48 ;;; Code:
49 49
50 (require 'config) 50 (require 'config)
51 (provide 'build-report) 51 (provide 'build-report)
52 52
53 ;; Due to recommandation by developers on xemacs-beta@xemacs.org, 53 ;; Due to recommendation by developers on xemacs-beta@xemacs.org,
54 ;; release versions are to be checked out using `co -u -kv ...'. 54 ;; release versions are to be checked out using `co -u -kv ...'.
55 (defconst build-report-version 55 (defconst build-report-version
56 "1.35" 56 "1.35"
57 "Version number of build-report.") 57 "Version number of build-report.")
58 58
280 (insert "> " build-report-installation-file 280 (insert "> " build-report-installation-file
281 " does not exist!\n\n")) 281 " does not exist!\n\n"))
282 (buffer-string))) 282 (buffer-string)))
283 283
284 (defun build-report-keep () 284 (defun build-report-keep ()
285 "build-report-internal fuction of no general value." 285 "build-report-internal function of no general value."
286 (mapconcat '(lambda (item) item) 286 (mapconcat '(lambda (item) item)
287 (cons "^--\\[\\[\\|\\]\\]$" build-report-keep-regexp) "\\|")) 287 (cons "^--\\[\\[\\|\\]\\]$" build-report-keep-regexp) "\\|"))
288 288
289 (defun build-report-delete () 289 (defun build-report-delete ()
290 "build-report-internal fuction of no general value." 290 "build-report-internal function of no general value."
291 (mapconcat '(lambda (item) item) 291 (mapconcat '(lambda (item) item)
292 build-report-delete-regexp "\\|")) 292 build-report-delete-regexp "\\|"))
293 293
294 ;;; build-report.el ends here 294 ;;; build-report.el ends here