From 45b135db0cd7bb2315fd16db244aead3ad459c40 Mon Sep 17 00:00:00 2001
From: Martin Polden <mpolden@mpolden.no>
Date: Wed, 7 Apr 2021 21:08:41 +0200
Subject: recentf: Exclude non-absolute filenames

---
 lisp/init-recentf.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lisp')

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)
-- 
cgit v1.2.3