[elpa] externals/embark 3b411ee0f1 3/3: Merge pull request #529 from akirak/image-dired-target

[ELPA Syncer]

branch: externals/embark
commit 3b411ee0f1417817398a741ff5c30c420b5638e0
Merge: 4f924a0246 d20ef6675e
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #529 from akirak/image-dired-target
    
    Find targets in imaged-dired
---
 embark.el | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/embark.el b/embark.el
index b6fb0b032a..cb8c66784d 100644
--- a/embark.el
+++ b/embark.el
@@ -650,10 +650,17 @@ This function is meant to be added to 
`minibuffer-setup-hook'."
 
 (defun embark-target-file-at-point ()
   "Target file at point.
-This function mostly relies on `ffap-file-at-point', with one exception:
-In `dired-mode', it uses `dired-get-filename' instead."
-  (if-let (file (and (derived-mode-p 'dired-mode)
-                     (dired-get-filename t 'no-error-if-not-filep)))
+This function mostly relies on `ffap-file-at-point', with the
+following exceptions:
+
+- In `dired-mode', it uses `dired-get-filename' instead.
+
+- In `imaged-dired-thumbnail-mode', it uses
+  `image-dired-original-file-name' instead."
+  (if-let (file (or (and (derived-mode-p 'dired-mode)
+                         (dired-get-filename t 'no-error-if-not-filep))
+                    (and (derived-mode-p 'image-dired-thumbnail-mode)
+                         (image-dired-original-file-name))))
       (save-excursion
         (end-of-line)
         `(file ,(abbreviate-file-name (expand-file-name file))