Add new command image-dired-copy-filename-as-kill

* lisp/image/image-dired.el
(image-dired-copy-filename-as-kill): New command.
(image-dired-thumbnail-mode-map): Bind above new command to "w".

diff --git a/etc/NEWS b/etc/NEWS
index 3d1af8bd6fe7241765447828c66516e5b8fca9bb..835fcf8bcaf6e5c64b4996fce7ee81a09d07807b 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2098,6 +2098,11 @@ It removes all marks from all files in the thumbnail and the
 associated Dired buffer, and is bound to 'U' in the thumbnail and
 display buffer.
 
+---
+*** New command 'image-dired-copy-filename-as-kill'.
+It copies the name of the marked or current image to the kill ring,
+and is bound to "w" in the thumbnail buffer.
+
 ---
 *** New command 'image-dired-wallpaper-set'.
 This command sets the desktop background to the image at point in the

diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index b8b16343c12792216499a90f66944ea59bb2d0a9..d933ccf79c399c379f2c82135b7bf673a918e814 100644 (file)
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -924,6 +924,7 @@ You probably want to use this together with
   "SPC"        #'image-dired-display-next-thumbnail-original
   "DEL"        #'image-dired-display-previous-thumbnail-original
   "c"          #'image-dired-comment-thumbnail
+  "w"          #'image-dired-copy-filename-as-kill
   "W"          #'image-dired-wallpaper-set
 
   ;; Mouse
@@ -1278,6 +1279,13 @@ overwritten.  This confirmation can be turned off using
     (image-dired-update-property 'comment comment))
   (image-dired--update-header-line))
 
+(defun image-dired-copy-filename-as-kill (&optional arg)
+  "Copy names of marked (or next ARG) files into the kill ring.
+This works as `dired-copy-filename-as-kill' (which see)."
+  (interactive "P" image-dired-thumbnail-mode)
+  (image-dired--with-dired-buffer
+    (dired-copy-filename-as-kill arg)))
+
 \f
 ;;; Mouse support