Mercurial > emacs
changeset 52638:2a2c48cb8b59
(recentf-initialize-file-name-history): New defcustom.
(recentf-load-list): When `recentf-initialize-file-name-history'
is non-nil, initialize an empty `file-name-history' with the
recent list.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 28 Sep 2003 08:41:32 +0000 |
| parents | e6dc36d887b2 |
| children | 2581079851a2 |
| files | lisp/recentf.el |
| diffstat | 1 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/recentf.el Sun Sep 28 08:31:45 2003 +0000 +++ b/lisp/recentf.el Sun Sep 28 08:41:32 2003 +0000 @@ -8,7 +8,7 @@ ;; Maintainer: FSF ;; Keywords: files -(defconst recentf-version "$Revision: 1.26 $") +(defconst recentf-version "$Revision: 1.27 $") ;; This file is part of GNU Emacs. @@ -240,6 +240,12 @@ ;; Unavailable until recentf has been loaded. (recentf-auto-cleanup)))) +(defcustom recentf-initialize-file-name-history t + "*non-nil means to initialize `file-name-history' with the recent list. +If `file-name-history' is not empty, do nothing." + :group 'recentf + :type 'boolean) + (defcustom recentf-load-hook nil "*Normal hook run at end of loading the `recentf' package." :group 'recentf @@ -1143,11 +1149,17 @@ (defun recentf-load-list () "Load a previously saved recent list. -Read data from the file specified by `recentf-save-file'." +Read data from the file specified by `recentf-save-file'. +When `recentf-initialize-file-name-history' is non-nil, initialize an +empty `file-name-history' with the recent list." (interactive) (let ((file (expand-file-name recentf-save-file))) (when (file-readable-p file) - (load-file file)))) + (load-file file) + (and recentf-initialize-file-name-history + (not file-name-history) + (setq file-name-history (mapcar 'abbreviate-file-name + recentf-list)))))) (defun recentf-cleanup () "Remove all excluded or non-readable files from the recent list."