[Emacs-diffs] /srv/bzr/emacs/trunk r104628: * dired-x.el (dired-mark-unmarked-files): Fix interactive spec (Bug#8768).

[Chong Yidong]

------------------------------------------------------------
revno: 104628
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2011-06-18 16:17:30 -0400
message:
  * dired-x.el (dired-mark-unmarked-files): Fix interactive spec (Bug#8768).
modified:
  lisp/ChangeLog
  lisp/dired-x.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-18 19:21:16 +0000
+++ b/lisp/ChangeLog    2011-06-18 20:17:30 +0000
@@ -1,5 +1,10 @@
 2011-06-18  Chong Yidong  <address@hidden>
 
+       * 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

=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el   2011-04-19 13:44:55 +0000
+++ b/lisp/dired-x.el   2011-06-18 20:17:30 +0000
@@ -546,11 +546,14 @@
 ;; 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