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

:require to defcustom.

2 files changed, 15 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d9374996379..76f654be4b6 100644
--- 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 07895c7ea9f..aef080334bd 100644
--- 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.