diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/dired.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a907bd43f38..fdbd28b1b6a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-01-27 Eduard Wiebe <usenet@pusto.de> | ||
| 2 | |||
| 3 | * dired.el (dired-mark-files-regexp): | ||
| 4 | Include any subdirectory components. (Bug#10445) | ||
| 5 | |||
| 1 | 2012-01-27 Mike Lamb <mrlamb@gmail.com> (tiny change) | 6 | 2012-01-27 Mike Lamb <mrlamb@gmail.com> (tiny change) |
| 2 | 7 | ||
| 3 | * pcmpl-unix.el (pcmpl-ssh-known-hosts): | 8 | * pcmpl-unix.el (pcmpl-ssh-known-hosts): |
diff --git a/lisp/dired.el b/lisp/dired.el index b39e6e7c93c..3962ef14aa4 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -3168,8 +3168,8 @@ object files--just `.o' will mark more than you might think." | |||
| 3168 | (dired-mark-if | 3168 | (dired-mark-if |
| 3169 | (and (not (looking-at dired-re-dot)) | 3169 | (and (not (looking-at dired-re-dot)) |
| 3170 | (not (eolp)) ; empty line | 3170 | (not (eolp)) ; empty line |
| 3171 | (let ((fn (dired-get-filename nil t))) | 3171 | (let ((fn (dired-get-filename t t))) |
| 3172 | (and fn (string-match regexp (file-name-nondirectory fn))))) | 3172 | (and fn (string-match regexp fn)))) |
| 3173 | "matching file"))) | 3173 | "matching file"))) |
| 3174 | 3174 | ||
| 3175 | (defun dired-mark-files-containing-regexp (regexp &optional marker-char) | 3175 | (defun dired-mark-files-containing-regexp (regexp &optional marker-char) |