Mercurial > hg > xemacs-beta

comparison lisp/build-report.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 70ad99077275
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
167 hist 167 hist
168 arg 168 arg
169 (prompts build-report-prompts)) 169 (prompts build-report-prompts))
170 (progn 170 (progn
171 (while prompts 171 (while prompts
172 (defvar hist)
172 (setq prompt (caar prompts)) 173 (setq prompt (caar prompts))
173 (setq hist (cdar prompts)) 174 (setq hist (cdar prompts))
174 (setq prompts (cdr prompts)) 175 (setq prompts (cdr prompts))
175 (setq arg (cons (read-string prompt "" 'hist) arg))) 176 (setq arg (cons (read-string prompt "" 'hist) arg)))
176 arg))) 177 arg)))
281 " does not exist!\n\n")) 282 " does not exist!\n\n"))
282 (buffer-string))) 283 (buffer-string)))
283 284
284 (defun build-report-keep () 285 (defun build-report-keep ()
285 "build-report-internal function of no general value." 286 "build-report-internal function of no general value."
286 (mapconcat '(lambda (item) item) 287 (mapconcat #'identity
287 (cons "^--\\[\\[\\|\\]\\]$" build-report-keep-regexp) "\\|")) 288 (cons "^--\\[\\[\\|\\]\\]$" build-report-keep-regexp) "\\|"))
288 289
289 (defun build-report-delete () 290 (defun build-report-delete ()
290 "build-report-internal function of no general value." 291 "build-report-internal function of no general value."
291 (mapconcat '(lambda (item) item) 292 (mapconcat #'identity
292 build-report-delete-regexp "\\|")) 293 build-report-delete-regexp "\\|"))
293 294
294 ;;; build-report.el ends here 295 ;;; build-report.el ends here