diff options
author | Peter Münster <pm@a16n.net> | 2021-08-17 00:19:08 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-19 15:03:23 +0200 |
commit | bf64342a8ffd8777df10051037ca13ec4f6857a5 (patch) | |
tree | 18dd7b30bf738c702b8db8acef049ed3bf3d7f11 | |
parent | 1511f3cecce73e227a3bbcd7b4d8041fe579f908 (diff) | |
download | emacs-bf64342a8ffd8777df10051037ca13ec4f6857a5.tar.gz |
Fix deletion of associated image
* lisp/image-dired.el (image-dired-delete-marked): Treat original images
first, because point position is used when there are no marked files.
-rw-r--r-- | lisp/image-dired.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/image-dired.el b/lisp/image-dired.el index 1e1614af9b6..9455ab1ff08 100644 --- a/lisp/image-dired.el +++ b/lisp/image-dired.el @@ -2313,14 +2313,14 @@ non-nil." (image-dired-dired-file-marked-p)))))) (defun image-dired-delete-marked () - "Delete marked thumbnails and associated images." + "Delete current or marked thumbnails and associated images." (interactive) + (with-current-buffer (image-dired-associated-dired-buffer) + (dired-do-delete)) (image-dired--with-marked (image-dired-delete-char) (backward-char)) - (image-dired--line-up-with-method) - (with-current-buffer (image-dired-associated-dired-buffer) - (dired-do-delete))) + (image-dired--line-up-with-method)) (defun image-dired-thumb-update-marks () "Update the marks in the thumbnail buffer." |