From 46a75c30d0cd73243c56a05f7789ba60b4e7a93e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 2 May 2003 12:16:46 +0000 Subject: (recentf-cleanup): Swap tests for exclusion and accessibility. --- lisp/recentf.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/recentf.el') 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)) -- cgit v1.2.3