[elpa] externals/embark 204fadd 3/4: Fix the file target finder so it doesn't report :foo as the cwd

[ELPA Syncer]

branch: externals/embark
commit 204fadd38c27576e3137b1386033c4ae37e075ad
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Fix the file target finder so it doesn't report :foo as the cwd
    
    This fixes #423.
---
 embark.el | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/embark.el b/embark.el
index ada6391..c61778b 100644
--- a/embark.el
+++ b/embark.el
@@ -692,14 +692,17 @@ In `dired-mode', it uses `dired-get-filename' instead."
                   (re-search-backward " " (line-beginning-position) 'noerror)
                   (1+ (point)))
                . ,(point)))
-    (when-let (file (ffap-file-at-point))
-      (unless (or (string-match-p "^/https?:/" file)
-                  (when-let (filename (thing-at-point 'filename))
-                    (ffap-el-mode filename)))
-        `(file ,(abbreviate-file-name (expand-file-name file))
-               ;; TODO the boundaries may be wrong, this should be generalized.
-               ;; Unfortunately ffap does not make the bounds available.
-               . ,(bounds-of-thing-at-point 'filename))))))
+    (when-let* ((ffap-file (ffap-file-at-point))
+                (tap-file (thing-at-point 'filename))
+                ;; check the thingatpt candidate is a substring of the
+                ;; ffap candidate, this avoids URLs and keyword
+                ;; symbols when point is on the colon (see bug#52441)
+                ((string-match-p (regexp-quote tap-file) ffap-file))
+                ((not (ffap-el-mode tap-file))))
+      `(file ,(abbreviate-file-name (expand-file-name file))
+             ;; TODO the boundaries may be wrong, this should be generalized.
+             ;; Unfortunately ffap does not make the bounds available.
+             . ,(bounds-of-thing-at-point 'filename)))))
 
 (defun embark-target-library-file-at-point ()
   "Target the file of the Emacs Lisp library at point.