diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
| commit | 4f91a8160fe71295b7ad4d6e3f90f004caa3546c (patch) | |
| tree | c0f3f767b785559ee0387e7cfb54a2a1aa06bcd5 /lisp/thumbs.el | |
| parent | 782fc81943849d699d74c3039be80d4068bb3422 (diff) | |
| download | emacs-4f91a8160fe71295b7ad4d6e3f90f004caa3546c.tar.gz | |
Don't quote lambda expressions with `quote'.
Diffstat (limited to 'lisp/thumbs.el')
| -rw-r--r-- | lisp/thumbs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/thumbs.el b/lisp/thumbs.el index b251ca60246..7a505758408 100644 --- a/lisp/thumbs.el +++ b/lisp/thumbs.el @@ -226,7 +226,7 @@ reached." (let ((fattribs-list (file-attributes f))) `(,(nth 4 fattribs-list) ,(nth 7 fattribs-list) ,f))) (directory-files (thumbs-thumbsdir) t (image-file-name-regexp))) - '(lambda (l1 l2) (time-less-p (car l1) (car l2))))) + (lambda (l1 l2) (time-less-p (car l1) (car l2))))) (dirsize (apply '+ (mapcar (lambda (x) (cadr x)) files-list)))) (while (> dirsize thumbs-thumbsdir-max-size) (progn |