/[emacs]/emacs/lisp/recentf.el
ViewVC logotype

Diff of /emacs/lisp/recentf.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by kfstorm, Wed Feb 9 15:50:41 2005 UTC revision 1.34 by eliz, Sat Mar 19 14:09:29 2005 UTC
# Line 255  It is passed a filename to give a chance Line 255  It is passed a filename to give a chance
255  If it returns nil, the filename is left unchanged."  If it returns nil, the filename is left unchanged."
256    :group 'recentf    :group 'recentf
257    :type 'function)    :type 'function)
258    
259    (defcustom recentf-cleanup-remote t
260      "*non-nil means to auto cleanup remote files."
261      :group 'recentf
262      :type  'boolean)
263    
264  ;;; Utilities  ;;; Utilities
265  ;;  ;;
# Line 1169  empty `file-name-history' with the recen Line 1174  empty `file-name-history' with the recen
1174    (message "Cleaning up the recentf list...")    (message "Cleaning up the recentf list...")
1175    (let (newlist)    (let (newlist)
1176      (dolist (f recentf-list)      (dolist (f recentf-list)
1177        (if (and (recentf-include-p f) (recentf-file-readable-p f))        (if (and (recentf-include-p f)
1178                   (or (and (file-remote-p f)
1179                            (not recentf-cleanup-remote))
1180                       (recentf-file-readable-p f)))
1181            (push f newlist)            (push f newlist)
1182          (message "File %s removed from the recentf list" f)))          (message "File %s removed from the recentf list" f)))
1183      (setq recentf-list (nreverse newlist))      (setq recentf-list (nreverse newlist))

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26