[Emacs-diffs] /srv/bzr/emacs/trunk r106956: * dired.el (dired-mark-files-regexp): Include any subdirectory components.

[Glenn Morris]

------------------------------------------------------------
revno: 106956
fixes bug(s): http://debbugs.gnu.org/10445
author: Eduard Wiebe <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2012-01-27 13:40:44 -0800
message:
  * dired.el (dired-mark-files-regexp): Include any subdirectory components.
modified:
  lisp/ChangeLog
  lisp/dired.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-27 21:14:16 +0000
+++ b/lisp/ChangeLog    2012-01-27 21:40:44 +0000
@@ -1,3 +1,8 @@
+2012-01-27  Eduard Wiebe  <address@hidden>
+
+       * dired.el (dired-mark-files-regexp):
+       Include any subdirectory components.  (Bug#10445)
+
 2012-01-27  Mike Lamb  <address@hidden>  (tiny change)
 
        * pcmpl-unix.el (pcmpl-ssh-known-hosts):

=== modified file 'lisp/dired.el'
--- a/lisp/dired.el     2012-01-26 11:18:28 +0000
+++ b/lisp/dired.el     2012-01-27 21:40:44 +0000
@@ -3168,8 +3168,8 @@
     (dired-mark-if
      (and (not (looking-at dired-re-dot))
          (not (eolp))                  ; empty line
-         (let ((fn (dired-get-filename nil t)))
-           (and fn (string-match regexp (file-name-nondirectory fn)))))
+         (let ((fn (dired-get-filename t t)))
+           (and fn (string-match regexp fn))))
      "matching file")))
 
 (defun dired-mark-files-containing-regexp (regexp &optional marker-char)