mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(recentf-initialize-file-name-history): New defcustom.

Browse Source 
(recentf-load-list): When `recentf-initialize-file-name-history'
is non-nil, initialize an empty `file-name-history' with the
recent list.
This commit is contained in:
Eli Zaretskii 2003-09-28 08:42:49 +00:00
parent a069f50952
commit 51c8b53fd2
2 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2003-09-28 David Ponce <david@dponce.com>
* recentf.el (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.
2003-09-28 Evgeni Dobrev <evgeni_dobrev@developer.bg> (tiny patch)
* man.el (Man-default-man-entry): Remove the leading `*' from the

18
lisp/recentf.el
View File

@ -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 @@ cleanup the list."
;; 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 @@ Write data into the file specified by `recentf-save-file'."
(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."