GNU bug report logs - #10624
24.0.92; default value of `dired-do-ch*'

Previous Next

Full log

Message #20 received at 10624 <at> debbugs.gnu.org (full text, mbox):

From: Juri Linkov <juri <at> jurta.org>
To: "Drew Adams" <drew.adams <at> oracle.com>
Cc: 10624 <at> debbugs.gnu.org
Subject: Re: bug#10624: 24.0.92; default value of `dired-do-ch*'
Date: Sun, 16 Sep 2012 01:54:23 +0300

> Dired-marking all files in the region

This is a feature that's sorely missing from Dired.
Currently marking a long list of files by pressing `m'
and holding it as long as the cursor eventually arrives
to the last file is too tedious (and the numeric prefix
doesn't help when the exact number of files to mark is not known).

Now with the following patch it's possible to mark a list of files
with normal region selection (and using isearch to speed it up)
and type `m' (or `u' to unmark) just once.

=== modified file 'lisp/dired.el'
--- lisp/dired.el	2012-09-14 03:55:16 +0000
+++ lisp/dired.el	2012-09-15 22:54:12 +0000
@@ -3102,12 +3120,15 @@ (defun dired-mark (arg)
 and \\[dired-unmark] on a subdir to remove the marks in
 this subdir."
   (interactive "P")
+  (if (and transient-mark-mode mark-active)
+      ;; Mark files in the active region.
+      (dired-mark-files-in-region (region-beginning) (region-end))
   (if (dired-get-subdir)
       (save-excursion (dired-mark-subdir-files))
     (let ((inhibit-read-only t))
       (dired-repeat-over-lines
        (prefix-numeric-value arg)
-       (function (lambda () (delete-char 1) (insert dired-marker-char)))))))
+	 (function (lambda () (delete-char 1) (insert dired-marker-char))))))))
 
 (defun dired-unmark (arg)
   "Unmark the current (or next ARG) files.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.