diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-10-03 00:13:56 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-03 00:18:27 +0200 |
| commit | 0d0d59b32c66f6b0604cb7c89b875d0407fba41c (patch) | |
| tree | 6a0d7431d4013ead975003e57fad40eedfc4c3ed | |
| parent | 655c92ce4aa9ba2d21622074f74064c86f7f2fad (diff) | |
| download | emacs-0d0d59b32c66f6b0604cb7c89b875d0407fba41c.tar.gz emacs-0d0d59b32c66f6b0604cb7c89b875d0407fba41c.tar.bz2 emacs-0d0d59b32c66f6b0604cb7c89b875d0407fba41c.zip | |
Actually delete markers in dired-do-flagged-delete
* lisp/dired.el (dired-do-flagged-delete): Actually delete
markers. (Bug#58256)
| -rw-r--r-- | lisp/dired.el | 20 |
1 files 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)"))))) |