diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-05-02 12:16:46 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-05-02 12:16:46 +0000 |
| commit | 46a75c30d0cd73243c56a05f7789ba60b4e7a93e (patch) | |
| tree | 620b7178f858f21bb865d1060a2e1722b2e4acef /lisp/recentf.el | |
| parent | 62cbacdefde2e15638dea9a0014df22efebcaa5e (diff) | |
| download | emacs-46a75c30d0cd73243c56a05f7789ba60b4e7a93e.tar.gz emacs-46a75c30d0cd73243c56a05f7789ba60b4e7a93e.tar.bz2 emacs-46a75c30d0cd73243c56a05f7789ba60b4e7a93e.zip | |
(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)) |