branch: externals/embark
commit 831f504f43ee7dc23f11bcb3ab78ac7e791d6636
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Fix embark-recentf-remove (Fix #519)
---
embark.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/embark.el b/embark.el
index 3c5d2e59b5..e2276c3b05 100644
--- a/embark.el
+++ b/embark.el
@@ -3475,8 +3475,10 @@ Sorting and history are disabled. PROMPT is the prompt
message."
"Remove FILE from the list of recent files."
(interactive (list (embark--read-from-history
"Remove recent file: " recentf-list 'file)))
- (embark-history-remove file)
- (setq recentf-list (delete (expand-file-name file) recentf-list)))
+ (embark-history-remove (expand-file-name file))
+ (embark-history-remove (abbreviate-file-name file))
+ (when (and (boundp 'recentf-list) (fboundp 'recentf-expand-file-name))
+ (setq recentf-list (delete (recentf-expand-file-name file) recentf-list))))
(defun embark-history-remove (str)
"Remove STR from `minibuffer-history-variable'.
