[elpa] externals/embark 831f504f43 3/6: Fix embark-recentf-remove (Fix #519)

[ELPA Syncer]

branch: externals/embark
commit 831f504f43ee7dc23f11bcb3ab78ac7e791d6636
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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'.