diff options
author | Martin Polden <mpolden@mpolden.no> | 2021-04-07 21:08:41 +0200 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2021-04-07 21:10:54 +0200 |
commit | 45b135db0cd7bb2315fd16db244aead3ad459c40 (patch) | |
tree | 464ddb9c89ba8c23f157295f861150ea606fb0eb /lisp/init-recentf.el | |
parent | 5ed02d4b626cdb7e788c3807a70be1b3f8062c48 (diff) |
recentf: Exclude non-absolute filenames
Diffstat (limited to 'lisp/init-recentf.el')
-rw-r--r-- | lisp/init-recentf.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/init-recentf.el b/lisp/init-recentf.el index f9380c3..b5cdcbf 100644 --- a/lisp/init-recentf.el +++ b/lisp/init-recentf.el @@ -2,14 +2,20 @@ ;;; Commentary: ;;; Code: +(defun mpolden/recentf-exclude-p (filename) + "Return non-nil if file FILENAME differs from its truename." + (not (equal filename (file-truename filename)))) + (use-package recentf :init ;; set number of entries to save (setq recentf-max-saved-items 1000) - + ;; always visit truename allowing exclusion of symlinks + (setq find-file-visit-truename t) :config ;; ignore files in elpa directory as these may be opened by package.el (add-to-list 'recentf-exclude (expand-file-name "elpa" user-emacs-directory)) + (add-to-list 'recentf-exclude #'mpolden/recentf-exclude-p) (recentf-mode 1)) (provide 'init-recentf) |