Commit f64ce788 authored by Dave Love's avatar Dave Love
Browse files

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

:require to defcustom.
parent 7fb91890
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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment