From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 18 Jun 2011 20:17:30 +0000 (-0400)
Subject: * dired-x.el (dired-mark-unmarked-files): Fix interactive spec (Bug#8768).
X-Git-Tag: emacs-pretest-24.0.90~104^2~519
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ddb8b596be2a92a499310002e9f28abef012bfc2;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61afa87201b..1d66ebe8039 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
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