[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/recentf.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/recentf.el |
Date: |
Sun, 28 Sep 2003 04:41:32 -0400 |
Index: emacs/lisp/recentf.el
diff -c emacs/lisp/recentf.el:1.27 emacs/lisp/recentf.el:1.28
*** emacs/lisp/recentf.el:1.27 Mon Sep 15 12:24:35 2003
--- emacs/lisp/recentf.el Sun Sep 28 04:41:32 2003
***************
*** 8,14 ****
;; Maintainer: FSF
;; Keywords: files
! (defconst recentf-version "$Revision: 1.27 $")
;; This file is part of GNU Emacs.
--- 8,14 ----
;; Maintainer: FSF
;; Keywords: files
! (defconst recentf-version "$Revision: 1.28 $")
;; This file is part of GNU Emacs.
***************
*** 240,245 ****
--- 240,251 ----
;; 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,1153 ****
(defun recentf-load-list ()
"Load a previously saved recent list.
! Read data from the file specified by `recentf-save-file'."
(interactive)
(let ((file (expand-file-name recentf-save-file)))
(when (file-readable-p file)
! (load-file file))))
(defun recentf-cleanup ()
"Remove all excluded or non-readable files from the recent list."
--- 1149,1165 ----
(defun recentf-load-list ()
"Load a previously saved recent list.
! 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)
! (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."