Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 4020:77df2f1e36fd | 4021:cef5f57bb9e2 |
|---|---|
| 531 (fc-pattern-add-size copy (funcall new-size-proc size)) | 531 (fc-pattern-add-size copy (funcall new-size-proc size)) |
| 532 (if (fc-try-font font device) | 532 (if (fc-try-font font device) |
| 533 (fc-name-unparse copy)))))))) | 533 (fc-name-unparse copy)))))))) |
| 534 | 534 |
| 535 (defun x-find-smaller-font-xft (font &optional device) | 535 (defun x-find-smaller-font-xft (font &optional device) |
| 536 (x-find-xft-font-of-size font '(lambda (old-size) (- old-size 1.0)) device)) | 536 (x-find-xft-font-of-size font #'(lambda (old-size) (- old-size 1.0)) device)) |
| 537 | 537 |
| 538 (defun x-find-smaller-font-core (font &optional device) | 538 (defun x-find-smaller-font-core (font &optional device) |
| 539 (x-frob-font-size font nil device)) | 539 (x-frob-font-size font nil device)) |
| 540 | 540 |
| 541 (defun x-find-larger-font (font &optional device) | 541 (defun x-find-larger-font (font &optional device) |
| 548 (x-find-larger-font-core font device) | 548 (x-find-larger-font-core font device) |
| 549 (x-find-larger-font-xft font device)) | 549 (x-find-larger-font-xft font device)) |
| 550 (x-find-larger-font-core font device))) | 550 (x-find-larger-font-core font device))) |
| 551 | 551 |
| 552 (defun x-find-larger-font-xft (font &optional device) | 552 (defun x-find-larger-font-xft (font &optional device) |
| 553 (x-find-xft-font-of-size font '(lambda (old-size) (+ old-size 1.0)) device)) | 553 (x-find-xft-font-of-size font #'(lambda (old-size) (+ old-size 1.0)) device)) |
| 554 | 554 |
| 555 (defun x-find-larger-font-core (font &optional device) | 555 (defun x-find-larger-font-core (font &optional device) |
| 556 (x-frob-font-size font t device)) | 556 (x-frob-font-size font t device)) |
| 557 | 557 |
| 558 (defalias 'x-make-face-bold 'make-face-bold) | 558 (defalias 'x-make-face-bold 'make-face-bold) |