From 46a75c30d0cd73243c56a05f7789ba60b4e7a93e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 2 May 2003 12:16:46 +0000 Subject: [PATCH] (recentf-cleanup): Swap tests for exclusion and accessibility. --- lisp/ChangeLog | 5 +++++ 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 (tiny change) + + * recentf.el (recentf-cleanup): Swap tests for exclusion and + accessibility. + 2003-05-01 Eduardo Mu,Aq(Boz (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)) -- 2.39.2