Mercurial > emacs

comparison lisp/recentf.el @ 28042:0e8cc641145e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(recentf-keep-non-readable-files-p): Add :set, :require to defcustom.
author Dave Love <fx@gnu.org>
date Tue, 07 Mar 2000 20:27:29 +0000
parents 27dffce74906
children 48db2ba485bf
comparison
equal deleted inserted replaced
28041:b4b10eeb9695 28042:0e8cc641145e
139 139
140 (defcustom recentf-keep-non-readable-files-p nil 140 (defcustom recentf-keep-non-readable-files-p nil
141 "*If nil (default), non-readable files are not kept in `recentf-list'." 141 "*If nil (default), non-readable files are not kept in `recentf-list'."
142 :group 'recentf 142 :group 'recentf
143 :type 'boolean 143 :type 'boolean
144 :set '(lambda (sym val) 144
145 (if val 145 (defcustom recentf-keep-non-readable-files-p nil
146 (remove-hook 'kill-buffer-hook 'recentf-remove-file-hook) 146 "*If nil (default), non-readable files are not kept in `recentf-list'."
147 (add-hook 'kill-buffer-hook 'recentf-remove-file-hook)) 147 :group 'recentf
148 (custom-set-default sym val))) 148 :type 'boolean
149 :require 'recentf
150 :initialize 'custom-initialize-default
151 :set (lambda (sym val)
152 (if val
153 (remove-hook 'kill-buffer-hook 'recentf-remove-file-hook)
154 (add-hook 'kill-buffer-hook 'recentf-remove-file-hook))
155 (custom-set-default sym val))))
149 156
150 (defcustom recentf-mode nil 157 (defcustom recentf-mode nil
151 "Toggle recentf mode. 158 "Toggle recentf mode.
152 When recentf mode is enabled, it maintains a menu for visiting files that 159 When recentf mode is enabled, it maintains a menu for visiting files that
153 were operated on recently. 160 were operated on recently.