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) |
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) |