Mercurial > hg > xemacs-beta
diff lisp/x-faces.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 | 049dc907c17a |
| children | 4f2243a0dc04 |
line wrap: on
line diff
--- a/lisp/x-faces.el Wed Jun 20 21:51:09 2007 +0000 +++ b/lisp/x-faces.el Thu Jun 21 13:39:36 2007 +0000 @@ -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))