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) |