mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-18 04:42:04 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Chong Yidong 2011-06-18 16:17:30 -04:00
parent 770802895c
commit ddb8b596be
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
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

9
lisp/dired-x.el
View file

@ -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