From 0d0d59b32c66f6b0604cb7c89b875d0407fba41c Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 3 Oct 2022 00:13:56 +0200 Subject: [PATCH] Actually delete markers in dired-do-flagged-delete * lisp/dired.el (dired-do-flagged-delete): Actually delete markers. (Bug#58256) --- lisp/dired.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index b9e89292e25..96b580d5763 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3664,16 +3664,16 @@ non-empty directories is allowed." case-fold-search markers) (if (save-excursion (goto-char (point-min)) (re-search-forward regexp nil t)) - (dired-internal-do-deletions - (nreverse - ;; this can't move point since ARG is nil - (dired-map-over-marks (cons (dired-get-filename) - (let ((m (point-marker))) - (push m markers) - m)) - nil)) - nil t) - (dolist (m markers) (set-marker m nil)) + (progn + (dired-internal-do-deletions + (nreverse + (dired-map-over-marks (cons (dired-get-filename) + (let ((m (point-marker))) + (push m markers) + m)) + nil)) + nil t) + (dolist (m markers) (set-marker m nil))) (or nomessage (message "(No deletions requested)"))))) -- 2.39.2