emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/embark 96c3cb3392 1/3: Find target file in image-dired


From: ELPA Syncer
Subject: [elpa] externals/embark 96c3cb3392 1/3: Find target file in image-dired
Date: Sun, 18 Sep 2022 11:57:39 -0400 (EDT)

branch: externals/embark
commit 96c3cb3392e27a5c17930ab99220eafb140ac85f
Author: Akira Komamura <akira.komamura@gmail.com>
Commit: Akira Komamura <akira.komamura@gmail.com>

    Find target file in image-dired
---
 embark.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index 715dbf0183..d68a5fd468 100644
--- a/embark.el
+++ b/embark.el
@@ -652,8 +652,10 @@ This function is meant to be added to 
`minibuffer-setup-hook'."
   "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)))
+  (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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]