(recentf-keep-non-readable-files-p): Add :set,

:require to defcustom.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d937499..76f654b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-03-07  Dave Love  <fx@gnu.org>
 
+       * recentf.el (recentf-keep-non-readable-files-p): Add :set,
+       :require to defcustom.
+
        * emacs-lisp/cl.el: Remove expt, delete, rassoc from autoloads
        lists.
 

diff --git a/lisp/recentf.el b/lisp/recentf.el
index 07895c7..aef0803 100644 (file)
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -141,11 +141,18 @@ displayed in the menu and must return a new list of filenames."
   "*If nil (default), non-readable files are not kept in `recentf-list'."
   :group 'recentf
   :type 'boolean
-  :set  '(lambda (sym val)
-           (if val
-               (remove-hook 'kill-buffer-hook 'recentf-remove-file-hook)
-             (add-hook 'kill-buffer-hook 'recentf-remove-file-hook))
-           (custom-set-default sym val)))
+
+(defcustom recentf-keep-non-readable-files-p nil
+  "*If nil (default), non-readable files are not kept in `recentf-list'."
+  :group 'recentf
+  :type 'boolean
+  :require 'recentf
+  :initialize 'custom-initialize-default
+  :set  (lambda (sym val)
+         (if val
+             (remove-hook 'kill-buffer-hook 'recentf-remove-file-hook)
+           (add-hook 'kill-buffer-hook 'recentf-remove-file-hook))
+         (custom-set-default sym val))))
 
 (defcustom recentf-mode nil
   "Toggle recentf mode.