(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 d937499637..76f654be4b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-03-07  Dave Love  <[email protected]>
 
+	* 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 07895c7ea9..aef080334b 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.