diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-06-18 16:17:30 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-06-18 16:17:30 -0400 |
| commit | ddb8b596be2a92a499310002e9f28abef012bfc2 (patch) | |
| tree | 30f40fdbbf492636169faed8049f128149f69b81 /lisp/dired-x.el | |
| parent | 770802895c7ae570e1161e0216d65abe0eea2893 (diff) | |
| download | emacs-ddb8b596be2a92a499310002e9f28abef012bfc2.tar.gz | |
* dired-x.el (dired-mark-unmarked-files): Fix interactive spec (Bug#8768).
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 548728cf28d..ca89d07ea7f 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -546,11 +546,14 @@ This functions works by temporarily binding `dired-marker-char' to ;; Returns t if any work was done, nil otherwise. (defun dired-mark-unmarked-files (regexp msg &optional unflag-p localp) "Mark unmarked files matching REGEXP, displaying MSG. -REGEXP is matched against the entire file name. -Does not re-mark files which already have a mark. +REGEXP is matched against the entire file name. When called +interactively, prompt for REGEXP. With prefix argument, unflag all those files. Optional fourth argument LOCALP is as in `dired-get-filename'." - (interactive "P") + (interactive + (list (dired-read-regexp + "Mark unmarked files matching regexp (default all): ") + nil current-prefix-arg nil)) (let ((dired-marker-char (if unflag-p ?\s dired-marker-char))) (dired-mark-if (and |