[Emacs-diffs] Changes to emacs/lisp/dired-aux.el

[Richard M. Stallman]

Index: emacs/lisp/dired-aux.el
diff -c emacs/lisp/dired-aux.el:1.99 emacs/lisp/dired-aux.el:1.100
*** emacs/lisp/dired-aux.el:1.99        Thu Mar 14 03:55:48 2002
--- emacs/lisp/dired-aux.el     Fri Mar 29 09:44:07 2002
***************
*** 1993,1999 ****
  Stops when a match is found.
  To continue searching for next match, use command \\[tags-loop-continue]."
    (interactive "sSearch marked files (regexp): ")
!   (tags-search regexp '(dired-get-marked-files)))
  
  ;;;###autoload
  (defun dired-do-query-replace-regexp (from to &optional delimited)
--- 1993,1999 ----
  Stops when a match is found.
  To continue searching for next match, use command \\[tags-loop-continue]."
    (interactive "sSearch marked files (regexp): ")
!   (tags-search regexp '(dired-get-marked-files nil nil 
'dired-nondirectory-p)))
  
  ;;;###autoload
  (defun dired-do-query-replace-regexp (from to &optional delimited)
***************
*** 2003,2009 ****
  with the command \\[tags-loop-continue]."
    (interactive
     "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP")
!   (tags-query-replace from to delimited '(dired-get-marked-files)))
  
  ;;;###autoload
  (defun dired-show-file-type (file &optional deref-symlinks)
--- 2003,2013 ----
  with the command \\[tags-loop-continue]."
    (interactive
     "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP")
!   (tags-query-replace from to delimited
!                     '(dired-get-marked-files nil nil 'dired-nondirectory-p)))
! 
! (defun dired-nondirectory-p (file)
!   (not (file-directory-p file)))
  
  ;;;###autoload
  (defun dired-show-file-type (file &optional deref-symlinks)