diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/recentf.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5ef1861b443..38c4e9fa585 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-05-02 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change) + + * recentf.el (recentf-cleanup): Swap tests for exclusion and + accessibility. + 2003-05-01 Eduardo Mu,Aq(Boz <emufer@terra.es> (tiny change) * ls-lisp.el (ls-lisp-format-file-size): New function to implement 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)) |