mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 02:20:21 -08:00
Code Issues Projects Releases Wiki Activity

Ask files for deletion in buffer order: top first, botton later

Browse source 
* lisp/dired.el (dired-do-flagged-delete, dired-do-delete):
Call `nreverse' t invert the output of `dired-map-over-marks'.
This commit is contained in:
Tino Calancha 2017-08-09 14:37:21 +09:00
parent 9723782161
commit 9ecbdeeaa8
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/dired.el
View file

@ -3057,9 +3057,10 @@ non-empty directories is allowed."
(if (save-excursion (goto-char (point-min)) (if (save-excursion (goto-char (point-min))
(re-search-forward regexp nil t)) (re-search-forward regexp nil t))
(dired-internal-do-deletions (dired-internal-do-deletions
;; this can't move point since ARG is nil (nreverse
(dired-map-over-marks (cons (dired-get-filename) (point)) ;; this can't move point since ARG is nil
nil) (dired-map-over-marks (cons (dired-get-filename) (point))
nil))
nil t) nil t)
(or nomessage (or nomessage
(message "(No deletions requested)"))))) (message "(No deletions requested)")))))
@ -3072,9 +3073,10 @@ non-empty directories is allowed."
;; dired-do-flagged-delete. ;; dired-do-flagged-delete.
(interactive "P") (interactive "P")
(dired-internal-do-deletions (dired-internal-do-deletions
;; this may move point if ARG is an integer (nreverse
(dired-map-over-marks (cons (dired-get-filename) (point)) ;; this may move point if ARG is an integer
arg) (dired-map-over-marks (cons (dired-get-filename) (point))
arg))
arg t)) arg t))
(defvar dired-deletion-confirmer 'yes-or-no-p) ; or y-or-n-p? (defvar dired-deletion-confirmer 'yes-or-no-p) ; or y-or-n-p?