Mercurial > emacs
comparison lisp/recentf.el @ 81935:66d338352087
* recentf.el (recentf-keep-default-predicate): Adapt call of
`file-remote-p'.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Tue, 17 Jul 2007 21:08:21 +0000 |
parents | 5608c829dbac |
children | b98604865ea0 a1be62cbd32a |
comparison
equal
deleted
inserted
replaced
81934:7a3210e699fe | 81935:66d338352087 |
---|---|
101 | 101 |
102 (defun recentf-keep-default-predicate (file) | 102 (defun recentf-keep-default-predicate (file) |
103 "Return non-nil if FILE should be kept in the recent list. | 103 "Return non-nil if FILE should be kept in the recent list. |
104 It handles the case of remote files as well." | 104 It handles the case of remote files as well." |
105 (cond | 105 (cond |
106 ((file-remote-p file t) (file-readable-p file)) | 106 ((file-remote-p file nil t) (file-readable-p file)) |
107 ((file-remote-p file)) | 107 ((file-remote-p file)) |
108 ((file-readable-p file)))) | 108 ((file-readable-p file)))) |
109 | 109 |
110 (defcustom recentf-keep | 110 (defcustom recentf-keep |
111 '(recentf-keep-default-predicate) | 111 '(recentf-keep-default-predicate) |