# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 952460849 0
# Node ID 0e8cc641145e07be394afb092c18e2cc2e277ccc
# Parent  b4b10eeb9695250b747962477c5eea3fbc875e3e
(recentf-keep-non-readable-files-p): Add :set,
:require to defcustom.

diff -r b4b10eeb9695 -r 0e8cc641145e lisp/recentf.el
--- a/lisp/recentf.el	Tue Mar 07 20:04:42 2000 +0000
+++ b/lisp/recentf.el	Tue Mar 07 20:27:29 2000 +0000
@@ -141,11 +141,18 @@
   "*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.