mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(dired-do-query-replace-regexp, dired-do-search):

Browse Source 
Use FILTER arg in dired-get-marked-files to exclude directories.
(dired-nondirectory-p): New function.
This commit is contained in:
Richard M. Stallman 2002-03-29 14:45:05 +00:00
parent 1312bfc633
commit 5e514c2712
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ChangeLog
View File

@ -8,11 +8,17 @@
2002-03-29 Simon Marshall <simon.marshall@misys.com>
* font-lock.el (save-buffer-state): Use make-symbol to bind
`modified'.
* font-lock.el (save-buffer-state): Use make-symbol to bind `modified'.
2002-03-29 Richard M. Stallman <rms@gnu.org>
* dired-aux.el (dired-do-query-replace-regexp, dired-do-search):
Use FILTER arg in dired-get-marked-files to exclude directories.
(dired-nondirectory-p): New function.
* dired.el (dired-get-marked-files): New arg FILTER
allows selection of some files.
* progmodes/tcl.el (tcl-imenu-create-index-function): Doc fix.
2002-03-29 Eric M. Ludlam <eric@siege-engine.com>

8
lisp/dired-aux.el
View File

@ -1993,7 +1993,7 @@ Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."
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)))
(tags-search regexp '(dired-get-marked-files nil nil 'dired-nondirectory-p)))
;;;###autoload
(defun dired-do-query-replace-regexp (from to &optional delimited)
@ -2003,7 +2003,11 @@ If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
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)))
(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)