comparison lisp/build-report.el @ 4021:cef5f57bb9e2

[xemacs-hg @ 2007-06-21 13:39:08 by aidan] '(lambda ...) -> #'(lambda ...), for the sake of style and the byte compiler.
author aidan
date Thu, 21 Jun 2007 13:39:36 +0000
parents b34066456742
children eb82fbb675ea
comparison
equal deleted inserted replaced
4020:77df2f1e36fd 4021:cef5f57bb9e2
1 ;;; build-report.el --- Automatically formatted build reports for XEmacs 1 ;;; build-report.el --- Automatically formatted build reports for XEmacs
2 2
3 ;; Copyright (C) 1997-2003 Adrian Aichner 3 ;; Copyright (C) 1997-2003 Adrian Aichner
4 4
5 ;; Author: Adrian Aichner <adrian@xemacs.org> 5 ;; Author: Adrian Aichner <adrian@xemacs.org>
6 ;; Date: $Date: 2005/10/21 10:34:35 $ 6 ;; Date: $Date: 2007/06/21 13:39:10 $
7 ;; Version: $Revision: 1.14 $ 7 ;; Version: $Revision: 1.15 $
8 ;; Keywords: internal 8 ;; Keywords: internal
9 9
10 ;; This file is part of XEmacs. 10 ;; This file is part of XEmacs.
11 11
12 ;; XEmacs is free software; you can redistribute it and/or modify 12 ;; XEmacs is free software; you can redistribute it and/or modify
518 518
519 (defun build-report-delete () 519 (defun build-report-delete ()
520 "Concatenate elements of `build-report-delete-regexp' and a general 520 "Concatenate elements of `build-report-delete-regexp' and a general
521 MIME tag REGEXP. The result is a REGEXP string matching either of the 521 MIME tag REGEXP. The result is a REGEXP string matching either of the
522 REGEXPs in `build-report-delete-regexp' or a general MIME tag REGEXP." 522 REGEXPs in `build-report-delete-regexp' or a general MIME tag REGEXP."
523 (mapconcat '(lambda (item) item) 523 (mapconcat #'identity
524 build-report-delete-regexp "\\|")) 524 build-report-delete-regexp "\\|"))
525 525
526 (defun build-report-installation-data (&optional file) 526 (defun build-report-installation-data (&optional file)
527 "Return a list of XEmacs installation data containing MAJOR_NUMBER 527 "Return a list of XEmacs installation data containing MAJOR_NUMBER
528 MINOR_NUMBER BETA_STRING CODENAME CONFIGURATION SRCDIR from FILE, 528 MINOR_NUMBER BETA_STRING CODENAME CONFIGURATION SRCDIR from FILE,