From ddb8b596be2a92a499310002e9f28abef012bfc2 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 18 Jun 2011 16:17:30 -0400 Subject: [PATCH] * dired-x.el (dired-mark-unmarked-files): Fix interactive spec (Bug#8768). --- lisp/ChangeLog | 5 +++++ lisp/dired-x.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 61afa87201..1d66ebe803 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2011-06-18 Chong Yidong + * 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 548728cf28..ca89d07ea7 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 -- 2.20.1