Commit 7b656e4a authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent faa52174
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> 2014-04-05 Leo Liu <sdl.web@gmail.com>
   
* emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression): Add * emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression):
define-compilation-mode. Add define-compilation-mode.
   
2014-04-04 João Távora <joaotavora@gmail.com> 2014-04-04 João Távora <joaotavora@gmail.com>
   
......
...@@ -215,19 +215,24 @@ condition. Two file items are considered to match if they are equal ...@@ -215,19 +215,24 @@ condition. Two file items are considered to match if they are equal
(dolist (file1 list1) (dolist (file1 list1)
(unless (let ((list list2)) (unless (let ((list list2))
(while (and list (while (and list
(not (let* ((file2 (car list)) (let* ((file2 (car list))
(fa1 (car (cddr file1))) (fa1 (car (cddr file1)))
(fa2 (car (cddr file2))) (fa2 (car (cddr file2))))
(size1 (nth 7 fa1)) (or
(size2 (nth 7 fa2)) (not (equal (car file1) (car file2)))
(mtime1 (float-time (nth 5 fa1))) (eval predicate
(mtime2 (float-time (nth 5 fa2)))) `((fa1 . ,fa1)
(and (fa2 . ,fa2)
(equal (car file1) (car file2)) (size1 . ,(nth 7 fa1))
(not (eval predicate)))))) (size2 . ,(nth 7 fa2))
(mtime1
. ,(float-time (nth 5 fa1)))
(mtime2
. ,(float-time (nth 5 fa2)))
)))))
(setq list (cdr list))) (setq list (cdr list)))
list) list)
(setq res (cons file1 res)))) (push file1 res)))
(nreverse res)))) (nreverse res))))
(defun dired-files-attributes (dir) (defun dired-files-attributes (dir)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment