Mercurial > hg > xemacs-beta
diff lisp/fontconfig.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 | 316fddbf58e2 |
| children | f5693b5f7f2d |
line wrap: on
line diff
--- a/lisp/fontconfig.el Wed Jun 20 21:51:09 2007 +0000 +++ b/lisp/fontconfig.el Thu Jun 21 13:39:36 2007 +0000 @@ -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)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;