diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2003-05-02 12:13:14 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2003-05-02 12:13:14 +0000 |
commit | a07c94462c88d9d2ea8e0e1f90c2893986a19210 (patch) | |
tree | 3a9967051971999b06f80cf52ec10a643a139a33 /lisp/recentf.el | |
parent | d6304d7a4373b4c1c4ae0607173a24072a4c8b69 (diff) | |
download | emacs-a07c94462c88d9d2ea8e0e1f90c2893986a19210.tar.gz |
(recentf-cleanup): Swap tests for exclusion and accessibility.
Diffstat (limited to 'lisp/recentf.el')
-rw-r--r-- | lisp/recentf.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/recentf.el b/lisp/recentf.el index 698e848ce6a..4bfcf79aa3a 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el @@ -8,7 +8,7 @@ ;; Maintainer: FSF ;; Keywords: files -(defconst recentf-version "$Revision$") +(defconst recentf-version "$Revision: 1.23 $") ;; This file is part of GNU Emacs. @@ -1127,7 +1127,7 @@ Read data from the file specified by `recentf-save-file'." (message "Cleaning up the recentf list...") (let (newlist) (dolist (f recentf-list) - (if (and (file-readable-p f) (recentf-include-p f)) + (if (and (recentf-include-p f) (file-readable-p f)) (push f newlist) (message "File %s removed from the recentf list" f))) (setq recentf-list (nreverse newlist)) |