From: Dave Love <fx@gnu.org>
Date: Tue, 7 Mar 2000 20:31:06 +0000 (+0000)
Subject: (recentf-keep-non-readable-files-p): Add :set,
X-Git-Tag: emacs-pretest-21.0.90~4731
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f64ce7889690184570fbdc5b13461a0901db8170;p=emacs.git

(recentf-keep-non-readable-files-p): Add :set,
:require to defcustom.
---

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.