From dc7b9d4e571a0f67d6fcfdd345909cc8746bfd5a Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Sat, 17 Sep 2022 14:33:29 +0200 Subject: recentf: exclude symlinks inside home directory --- lisp/init-recentf.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/init-recentf.el b/lisp/init-recentf.el index 5a9ac1a..2a4811a 100644 --- a/lisp/init-recentf.el +++ b/lisp/init-recentf.el @@ -3,10 +3,10 @@ ;;; Code: (defun mpolden/recentf-exclude-p (filename) - "Return non-nil if file FILENAME is in a symlinked `user-emacs-directory'." + "Return non-nil if FILENAME is a symlink in the user's home directory." (and (not (file-remote-p filename)) - (file-in-directory-p filename user-emacs-directory) - (file-symlink-p (directory-file-name user-emacs-directory)) + (not (file-in-directory-p filename org-directory)) + (file-in-directory-p filename "~") (not (equal filename (file-truename filename))))) (use-package recentf -- cgit v1.2.3