[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [h-e-w] Re: Global search/replace across files?
From: |
Andreas Wieweg |
Subject: |
Re: [h-e-w] Re: Global search/replace across files? |
Date: |
Fri, 21 Jun 2002 10:08:30 -0700 |
>
> > Incidentally, why isn't there something like a
> > dired-find-marked-files command? And if "Most commands operate on
> > the marked files..." why doesn't "f" (dired-find-file)? Can't I even
> > visit the marked files?
>
Here is one posible solution found from google:
(defun dired-do-flagged-find ()
"In dired, find the files flagged for loading.
\\[dired-do-flagged-find]"
(interactive)
(let* ((dired-marker-char dired-marker-char)
(regexp (dired-marker-regexp))
case-fold-search)
(save-excursion
(goto-char (point-min))
(while (re-search-forward regexp nil t)
(save-excursion
(message "Opened file: %s"
(find-file (dired-get-filename))))
)
)))
(define-key dired-mode-map "F" 'dired-do-flagged-find)
(define-key dired-mode-map [menu-bar operate find-flagged]
'("Find Marked Files" . dired-do-flagged-find))
/ Andreas Wieweg