2:42 p.m.
APPROVE COMMIT
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2007-06-21 Aidan Kehoe <kehoea(a)parhasard.net>
* 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>
* 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>
* 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>
* 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