procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(recentf-cleanup): Swap tests for exclusion and accessibility.

Browse source
This commit is contained in:
Juanma Barranquero 2003-05-02 12:16:46 +00:00
parent 62cbacdefd
commit 46a75c30d0
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

4
lisp/recentf.el
View file

@ -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))