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 <>
* dired-aux.el (dired-file-set-difference): Use lexical-scoping.
2014-04-05 Leo Liu <>
* emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression): Add
* emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression):
Add define-compilation-mode.
2014-04-04 João Távora <>
......@@ -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))))
(equal (car file1) (car file2))
(not (eval predicate))))))
(let* ((file2 (car list))
(fa1 (car (cddr file1)))
(fa2 (car (cddr file2))))
(not (equal (car file1) (car file2)))
(eval predicate
`((fa1 . ,fa1)
(fa2 . ,fa2)
(size1 . ,(nth 7 fa1))
(size2 . ,(nth 7 fa2))
. ,(float-time (nth 5 fa1)))
. ,(float-time (nth 5 fa2)))
(setq list (cdr list)))
(setq res (cons file1 res))))
(push file1 res)))
(nreverse res))))
(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