Mercurial > emacs
changeset 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 | 5381eb4b34ac |
| children | cc26330ec1a9 |
| files | lisp/recentf.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
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))