mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(recentf-cleanup-remote): New variable.

Browse Source 
(recentf-cleanup): Use it to conditionally check availablity of
remote files.
This commit is contained in:
Eli Zaretskii 2005-03-19 14:10:46 +00:00
parent 1b1556b11a
commit 068f123a5f
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2005-03-19 Michael R. Mauger <mmaug@yahoo.com>
* recentf.el (recentf-cleanup-remote): New variable.
(recentf-cleanup): Use it to conditionally check availablity of
remote files.
2005-03-19 Joe Edmonds <joe-bugs-debian-org@elem.com> (tiny change)
* emacs-lisp/lisp-mode.el (lisp-mode-variables): Recognize `@' in

10
lisp/recentf.el
View File

@ -255,6 +255,11 @@ It is passed a filename to give a chance to transform it.
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 @@ empty `file-name-history' with the recent list."
(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))