Commit ddb8b596 authored by Chong Yidong's avatar Chong Yidong
Browse files

* dired-x.el (dired-mark-unmarked-files): Fix interactive spec (Bug#8768).

parent 77080289
2011-06-18 Chong Yidong <cyd@stupidchicken.com>
* dired-x.el (dired-mark-unmarked-files): Fix interactive spec
(Bug#8768).
* replace.el (occur-mode-map): Set occur-edit-mode binding to "e".
* textmodes/fill.el (default-justification): Add :safe (Bug#8879).
* cus-face.el (custom-declare-face): Call custom-theme-recalc face
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment