/[emacs]/emacs/lisp/dired-aux.el
ViewVC logotype

Diff of /emacs/lisp/dired-aux.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.99 by rms, Thu Mar 14 08:55:48 2002 UTC revision 1.100 by rms, Fri Mar 29 14:44:07 2002 UTC
# Line 1993  Use \\[dired-hide-subdir] to (un)hide a Line 1993  Use \\[dired-hide-subdir] to (un)hide a
1993  Stops when a match is found.  Stops when a match is found.
1994  To continue searching for next match, use command \\[tags-loop-continue]."  To continue searching for next match, use command \\[tags-loop-continue]."
1995    (interactive "sSearch marked files (regexp): ")    (interactive "sSearch marked files (regexp): ")
1996    (tags-search regexp '(dired-get-marked-files)))    (tags-search regexp '(dired-get-marked-files nil nil 'dired-nondirectory-p)))
1997    
1998  ;;;###autoload  ;;;###autoload
1999  (defun dired-do-query-replace-regexp (from to &optional delimited)  (defun dired-do-query-replace-regexp (from to &optional delimited)
# Line 2003  If you exit (\\[keyboard-quit], RET or q Line 2003  If you exit (\\[keyboard-quit], RET or q
2003  with the command \\[tags-loop-continue]."  with the command \\[tags-loop-continue]."
2004    (interactive    (interactive
2005     "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP")     "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP")
2006    (tags-query-replace from to delimited '(dired-get-marked-files)))    (tags-query-replace from to delimited
2007                          '(dired-get-marked-files nil nil 'dired-nondirectory-p)))
2008    
2009    (defun dired-nondirectory-p (file)
2010      (not (file-directory-p file)))
2011    
2012  ;;;###autoload  ;;;###autoload
2013  (defun dired-show-file-type (file &optional deref-symlinks)  (defun dired-show-file-type (file &optional deref-symlinks)

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26