APPROVE COMMIT NOTE: This patch has been committed. lisp/ChangeLog addition: 2007-06-21 Aidan Kehoe <kehoea(a)parhasard.net&gt; * mule/devan-util.el (devanagari-reorder-glyphs-for-composition): * mule/ethio-util.el (ethio-fidel-to-sera-buffer): '(lambda ...) -> #'(lambda ..), for the sake of style and the byte compiler. 2007-06-21 Aidan Kehoe <kehoea(a)parhasard.net&gt; * build-report.el (build-report-delete): * cus-edit.el (custom-face): * custom.el (custom-theme-reset-variables): * fontconfig.el (fc-find-available-font-families): * fontconfig.el (fc-find-available-weights-for-family): * select.el (select-convert-from-integer): * x-faces.el (x-find-smaller-font-xft): * x-faces.el (x-find-larger-font-xft): '(lambda ...) -> #'(lambda ..), for the sake of style and the byte compiler. tests/ChangeLog addition: 2007-06-21 Aidan Kehoe <kehoea(a)parhasard.net&gt; * gtk/event-stream-tests.el (timer-check): '(lambda ...) -> #'(lambda ..), for the sake of style and the byte compiler. 2007-06-21 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/weak-tests.el (p): * automated/weak-tests.el (inner_cons): '(lambda ...) -> #'(lambda ..), for the sake of style and the byte compiler. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: tests/gtk/event-stream-tests.el =================================================================== RCS tests/automated/weak-tests.el =================================================================== RCS lisp/mule/ethio-util.el =================================================================== RCS lisp/mule/devan-util.el =================================================================== RCS lisp/x-faces.el =================================================================== RCS lisp/select.el =================================================================== RCS lisp/fontconfig.el =================================================================== RCS lisp/custom.el =================================================================== RCS lisp/cus-edit.el =================================================================== RCS lisp/build-report.el =================================================================== RCS Index: lisp/build-report.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/build-report.el,v retrieving revision 1.14 diff -u -r1.14 build-report.el --- lisp/build-report.el 2005/10/21 10:34:35 1.14 +++ lisp/build-report.el 2007/06/21 13:36:42 ＠＠ -520,7 +520,7 ＠＠ "Concatenate elements of `build-report-delete-regexp' and a general MIME tag REGEXP. The result is a REGEXP string matching either of the REGEXPs in `build-report-delete-regexp' or a general MIME tag REGEXP." - (mapconcat '(lambda (item) item) + (mapconcat #'identity build-report-delete-regexp "\\|")) (defun build-report-installation-data (&optional file) Index: lisp/cus-edit.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cus-edit.el,v retrieving revision 1.23 diff -u -r1.23 cus-edit.el --- lisp/cus-edit.el 2005/02/03 04:29:33 1.23 +++ lisp/cus-edit.el 2007/06/21 13:36:42 ＠＠ -2544,8 +2544,8 ＠＠ "Customize face." :sample-face 'custom-face-tag-face :help-echo "Set or reset this face" -:documentation-property '(lambda (face) - (face-doc-string face)) +:documentation-property #'(lambda (face) + (face-doc-string face)) :value-create 'custom-face-value-create :action 'custom-face-action :custom-category 'face Index: lisp/custom.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/custom.el,v retrieving revision 1.13 diff -u -r1.13 custom.el --- lisp/custom.el 2005/02/03 04:29:33 1.13 +++ lisp/custom.el 2007/06/21 13:36:43 ＠＠ -1042,9 +1042,9 ＠＠ This means reset VARIABLE to its value in TO-THEME." (custom-check-theme theme) - (mapcar '(lambda (arg) - (apply 'custom-theme-reset-internal arg) - (custom-push-theme 'theme-value (car arg) theme 'reset (cadr arg))) + (mapcar #'(lambda (arg) + (apply 'custom-theme-reset-internal arg) + (custom-push-theme 'theme-value (car arg) theme 'reset (cadr arg))) args)) (defun custom-reset-variables (&rest args) Index: lisp/fontconfig.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/fontconfig.el,v retrieving revision 1.4 diff -u -r1.4 fontconfig.el --- lisp/fontconfig.el 2006/04/25 14:01:53 1.4 +++ lisp/fontconfig.el 2007/06/21 13:36:43 ＠＠ -481,8 +481,8 ＠＠ (fc-list-fonts-pattern-objects device pattern objectset))) (fc-delete-duplicates (mapcar - '(lambda (pattern) - (fc-pattern-get-family pattern 0)) + #'(lambda (pattern) + (fc-pattern-get-family pattern 0)) (if filter-fun (fc-filter all-fonts filter-fun) all-fonts)))))) ＠＠ -496,10 +496,10 ＠＠ (if style (fc-pattern-add-style pattern style)) (mapcar - '(lambda (pattern) - (let ((fc-weight-constant (fc-pattern-get-weight pattern 0))) - (if fc-weight-constant - (fc-font-weight-translate-from-constant fc-weight-constant)))) + #'(lambda (pattern) + (let ((fc-weight-constant (fc-pattern-get-weight pattern 0))) + (if fc-weight-constant + (fc-font-weight-translate-from-constant fc-weight-constant)))) (fc-list-fonts-pattern-objects device pattern objectset)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Index: lisp/select.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/select.el,v retrieving revision 1.16 diff -u -r1.16 select.el --- lisp/select.el 2005/11/16 07:22:40 1.16 +++ lisp/select.el 2007/06/21 13:36:43 ＠＠ -727,17 +727,17 ＠＠ ((listp value) ; list (if (cdr value) - (mapcar '(lambda (x) - (select-convert-from-integer selection type x)) + (mapcar #'(lambda (x) + (select-convert-from-integer selection type x)) value) (select-convert-from-integer selection type (car value)))) ((vectorp value) ; vector (if (eq (length value) 1) (select-convert-from-integer selection type (aref value 0)) - (mapvector '(lambda (x) - (select-convert-from-integer selection type x)) - value))) + (mapvector #'(lambda (x) + (select-convert-from-integer selection type x)) + value))) (t nil) )) Index: lisp/x-faces.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/x-faces.el,v retrieving revision 1.28 diff -u -r1.28 x-faces.el --- lisp/x-faces.el 2007/04/22 19:58:33 1.28 +++ lisp/x-faces.el 2007/06/21 13:36:43 ＠＠ -533,7 +533,7 ＠＠ (fc-name-unparse copy)))))))) (defun x-find-smaller-font-xft (font &optional device) - (x-find-xft-font-of-size font '(lambda (old-size) (- old-size 1.0)) device)) + (x-find-xft-font-of-size font #'(lambda (old-size) (- old-size 1.0)) device)) (defun x-find-smaller-font-core (font &optional device) (x-frob-font-size font nil device)) ＠＠ -550,7 +550,7 ＠＠ (x-find-larger-font-core font device))) (defun x-find-larger-font-xft (font &optional device) - (x-find-xft-font-of-size font '(lambda (old-size) (+ old-size 1.0)) device)) + (x-find-xft-font-of-size font #'(lambda (old-size) (+ old-size 1.0)) device)) (defun x-find-larger-font-core (font &optional device) (x-frob-font-size font t device)) Index: lisp/mule/devan-util.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/devan-util.el,v retrieving revision 1.5 diff -u -r1.5 devan-util.el --- lisp/mule/devan-util.el 2004/11/15 20:15:22 1.5 +++ lisp/mule/devan-util.el 2007/06/21 13:36:43 ＠＠ -1057,7 +1057,7 ＠＠ (setq ordered-glyphs (append ordered-glyphs (list (assq glyph devanagari-composition-rules)))))) - (sort ordered-glyphs '(lambda (x y) (< (car (cdr x)) (car (cdr y))))))) + (sort ordered-glyphs #'(lambda (x y) (< (car (cdr x)) (car (cdr y))))))) ;;(devanagari-compose-to-one-glyph "$(5"5!X![(B") => "4$(6!Xv#"5t%![0!X"5![1(B" Index: lisp/mule/ethio-util.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/ethio-util.el,v retrieving revision 1.8 diff -u -r1.8 ethio-util.el --- lisp/mule/ethio-util.el 2006/04/29 18:55:32 1.8 +++ lisp/mule/ethio-util.el 2007/06/21 13:36:44 ＠＠ -1056,10 +1056,10 ＠＠ (aset ethio-fidel-to-sera-map 463 "?")) (mapcar - '(lambda (x) - (aset (aref ethio-fidel-to-sera-map x) - 2 - (if ethio-W-sixth-always ?' ?u))) + #'(lambda (x) + (aset (aref ethio-fidel-to-sera-map x) + 2 + (if ethio-W-sixth-always ?' ?u))) '(77 93 141 181 197 277 440 441 442 443 444 457)) (if (ethio-prefer-amharic-p) cvs server: lisp/mule/european.el is a new entry, no comparison available Index: tests/automated/weak-tests.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/automated/weak-tests.el,v retrieving revision 1.4 diff -u -r1.4 weak-tests.el --- tests/automated/weak-tests.el 2003/11/01 14:55:00 1.4 +++ tests/automated/weak-tests.el 2007/06/21 13:36:44 ＠＠ -55,8 +55,8 ＠＠ (let* ((p (cons 3 4)) (finalized-p nil) (eph1 (make-ephemeron (cons 1 2) p - '(lambda (value) - (setq finalized-p t)))) + #'(lambda (value) + (setq finalized-p t)))) (eph2 (make-ephemeron p p))) (Assert (eq p (ephemeron-ref (make-ephemeron (cons 1 2) p)))) (Assert (ephemeron-p (make-ephemeron (cons 1 2) p))) ＠＠ -233,7 +233,7 ＠＠ (make-ephemeron inner_cons (cons 1 2) '(lambda (v) t)) - '(lambda (v) t)))) + #'(lambda (v) t)))) (Assert (ephemeron-ref (ephemeron-ref weak1))) (garbage-collect) ;; assure the inner ephis are still there Index: tests/gtk/event-stream-tests.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/gtk/event-stream-tests.el,v retrieving revision 1.2 diff -u -r1.2 event-stream-tests.el --- tests/gtk/event-stream-tests.el 2001/04/12 18:24:57 1.2 +++ tests/gtk/event-stream-tests.el 2007/06/21 13:36:44 ＠＠ -29,7 +29,7 ＠＠ ; Make sure that timer handlers are run during, not after sit-for: (defun timer-check () - (add-timeout 2 '(lambda (ignore) (message "timer ran")) nil) + (add-timeout 2 #'(lambda (ignore) (message "timer ran")) nil) (sit-for 5) (message "after sit-for")) -- On the quay of the little Black Sea port, where the rescued pair came once more into contact with civilization, Dobrinton was bitten by a dog which was assumed to be mad, though it may only have been indiscriminating. (Saki) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches