Mercurial > emacs
diff lisp/recentf.el @ 60740:1e67e22bcc1b
(recentf-cleanup-remote): New variable.
(recentf-cleanup): Use it to conditionally check availablity of
remote files.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 19 Mar 2005 14:09:29 +0000 |
parents | aac0a33f5772 |
children | 5bb0c1e05b1b |
line wrap: on
line diff
--- a/lisp/recentf.el Sat Mar 19 14:01:52 2005 +0000 +++ b/lisp/recentf.el Sat Mar 19 14:09:29 2005 +0000 @@ -255,6 +255,11 @@ If it returns nil, the filename is left unchanged." :group 'recentf :type 'function) + +(defcustom recentf-cleanup-remote t + "*non-nil means to auto cleanup remote files." + :group 'recentf + :type 'boolean) ;;; Utilities ;; @@ -1169,7 +1174,10 @@ (message "Cleaning up the recentf list...") (let (newlist) (dolist (f recentf-list) - (if (and (recentf-include-p f) (recentf-file-readable-p f)) + (if (and (recentf-include-p f) + (or (and (file-remote-p f) + (not recentf-cleanup-remote)) + (recentf-file-readable-p f))) (push f newlist) (message "File %s removed from the recentf list" f))) (setq recentf-list (nreverse newlist))