procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/dired-aux.el (dired-file-set-difference): Use lexical-scoping.

Browse source
This commit is contained in:
Stefan Monnier 2014-04-06 14:15:09 -04:00
parent faa5217493
commit 7b656e4a55
2 changed files with 22 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,7 +1,11 @@
2014-04-06 Stefan Monnier <monnier@iro.umontreal.ca>
* dired-aux.el (dired-file-set-difference): Use lexical-scoping.
2014-04-05 Leo Liu <sdl.web@gmail.com>
* emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression): Add
define-compilation-mode.
* emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression):
Add define-compilation-mode.
2014-04-04 João Távora <joaotavora@gmail.com>

27
lisp/dired-aux.el
View file

@ -215,19 +215,24 @@ condition. Two file items are considered to match if they are equal
(dolist (file1 list1)
(unless (let ((list list2))
(while (and list
(not (let* ((file2 (car list))
(fa1 (car (cddr file1)))
(fa2 (car (cddr file2)))
(size1 (nth 7 fa1))
(size2 (nth 7 fa2))
(mtime1 (float-time (nth 5 fa1)))
(mtime2 (float-time (nth 5 fa2))))
(and
(equal (car file1) (car file2))
(not (eval predicate))))))
(let* ((file2 (car list))
(fa1 (car (cddr file1)))
(fa2 (car (cddr file2))))
(or
(not (equal (car file1) (car file2)))
(eval predicate
`((fa1 . ,fa1)
(fa2 . ,fa2)
(size1 . ,(nth 7 fa1))
(size2 . ,(nth 7 fa2))
(mtime1
. ,(float-time (nth 5 fa1)))
(mtime2
. ,(float-time (nth 5 fa2)))
)))))
(setq list (cdr list)))
list)
(setq res (cons file1 res))))
(push file1 res)))
(nreverse res))))
(defun dired-files-attributes (dir)