diff options
author | Martin Polden <mpolden@mpolden.no> | 2022-09-17 14:33:29 +0200 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2022-09-17 14:50:45 +0200 |
commit | dc7b9d4e571a0f67d6fcfdd345909cc8746bfd5a (patch) | |
tree | 941cc840b341ce3bc05fe299531b77ed60f21729 /lisp/init-recentf.el | |
parent | 95a607c54144d1f0fcca6ec095e82411d8bbad75 (diff) |
recentf: exclude symlinks inside home directory
Diffstat (limited to 'lisp/init-recentf.el')
-rw-r--r-- | lisp/init-recentf.el | 6 |
1 files changed, 3 insertions, 3 deletions
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 |