annotate lisp/find-dired.el @ 26608:b895cd5e12a0

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Fri, 26 Nov 1999 13:52:07 +0000
parents 1eb2f529058f
children 1130a792b2f7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2230
6314334d7c2b Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1225
diff changeset
1 ;;; find-dired.el --- run a `find' command and dired the output
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
2
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
3 ;; Copyright (C) 1992, 1994, 1995 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 811
diff changeset
4
25278
cbe304a26771 Fix maintainer address.
Karl Heuer <kwzh@gnu.org>
parents: 22630
diff changeset
5 ;; Author: Roland McGrath <roland@gnu.org>,
1225
e16f52a7c9f9 New version from sk. Further hacked:
Roland McGrath <roland@gnu.org>
parents: 1183
diff changeset
6 ;; Sebastian Kremer <sk@thp.uni-koeln.de>
21057
9b9c929675eb Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 20597
diff changeset
7 ;; Maintainer: FSF
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
8 ;; Keywords: unix
294
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
9
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
10 ;; This file is part of GNU Emacs.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
11
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
15 ;; any later version.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
16
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
20 ;; GNU General Public License for more details.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
21
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
22 ;; You should have received a copy of the GNU General Public License
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12485
diff changeset
25 ;; Boston, MA 02111-1307, USA.
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
26
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
27 ;;; Code:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
28
292
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
29 (require 'dired)
1225
e16f52a7c9f9 New version from sk. Further hacked:
Roland McGrath <roland@gnu.org>
parents: 1183
diff changeset
30
20597
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
31 (defgroup find-dired nil
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
32 "Run a `find' command and dired the output."
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
33 :group 'dired
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
34 :prefix "find-")
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
35
26042
1eb2f529058f (find-dired-find-program): Added this variable.
Peter Breton <pbreton@attbi.com>
parents: 25278
diff changeset
36 (defcustom find-dired-find-program "find"
1eb2f529058f (find-dired-find-program): Added this variable.
Peter Breton <pbreton@attbi.com>
parents: 25278
diff changeset
37 "Program used to find files."
1eb2f529058f (find-dired-find-program): Added this variable.
Peter Breton <pbreton@attbi.com>
parents: 25278
diff changeset
38 :group 'dired
1eb2f529058f (find-dired-find-program): Added this variable.
Peter Breton <pbreton@attbi.com>
parents: 25278
diff changeset
39 :type 'file
1eb2f529058f (find-dired-find-program): Added this variable.
Peter Breton <pbreton@attbi.com>
parents: 25278
diff changeset
40 )
1eb2f529058f (find-dired-find-program): Added this variable.
Peter Breton <pbreton@attbi.com>
parents: 25278
diff changeset
41
11035
97da4cb32d03 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10929
diff changeset
42 ;; find's -ls corresponds to these switches.
10929
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
43 ;; Note -b, at least GNU find quotes spaces etc. in filenames
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
44 ;;;###autoload
20597
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
45 (defcustom find-ls-option
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
46 (if (eq system-type 'berkeley-unix) '("-ls" . "-gilsb")
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
47 '("-exec ls -ld {} \\;" . "-ld"))
10929
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
48 "*Description of the option to `find' to produce an `ls -l'-type listing.
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
49 This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
50 gives the option (or options) to `find' that produce the desired output.
20597
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
51 LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output."
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
52 :type '(cons (string :tag "Find Option")
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
53 (string :tag "Ls Switches"))
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
54 :group 'find-dired)
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
55
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
56 ;;;###autoload
20597
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
57 (defcustom find-grep-options
16569
a3c07728832a (find-grep-options): Treat solaris, irix like BSD.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
58 (if (or (eq system-type 'berkeley-unix)
a3c07728832a (find-grep-options): Treat solaris, irix like BSD.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
59 (string-match "solaris2" system-configuration)
a3c07728832a (find-grep-options): Treat solaris, irix like BSD.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
60 (string-match "irix" system-configuration))
a3c07728832a (find-grep-options): Treat solaris, irix like BSD.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
61 "-s" "-q")
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
62 "*Option to grep to be as silent as possible.
10168
64163654c255 (find-grep-options): Use -q on non-BSD systems.
Richard M. Stallman <rms@gnu.org>
parents: 10024
diff changeset
63 On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it.
20597
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
64 On other systems, the closest you can come is to use `-l'."
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
65 :type 'string
886039ba7b3e Customized.
Andreas Schwab <schwab@suse.de>
parents: 18580
diff changeset
66 :group 'find-dired)
292
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
67
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
68 (defvar find-args nil
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
69 "Last arguments given to `find' by \\[find-dired].")
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
70
10929
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
71 ;; History of find-args values entered in the minibuffer.
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
72 (defvar find-args-history nil)
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
73
292
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
74 ;;;###autoload
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
75 (defun find-dired (dir args)
22630
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
76 "Run `find' and go into Dired mode on a buffer of the output.
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
77 The command run (after changing into DIR) is
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
78
16823
4fa015c0a620 (find-dired): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16569
diff changeset
79 find . \\( ARGS \\) -ls
4fa015c0a620 (find-dired): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16569
diff changeset
80
4fa015c0a620 (find-dired): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16569
diff changeset
81 except that the variable `find-ls-option' specifies what to use
4fa015c0a620 (find-dired): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16569
diff changeset
82 as the final argument."
292
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
83 (interactive (list (read-file-name "Run find in directory: " nil "" t)
10929
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
84 (read-string "Run find (with args): " find-args
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
85 '(find-args-history . 1))))
22630
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
86 (let ((dired-buffers dired-buffers))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
87 ;; Expand DIR ("" means default-directory), and make sure it has a
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
88 ;; trailing slash.
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
89 (setq dir (abbreviate-file-name
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
90 (file-name-as-directory (expand-file-name dir))))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
91 ;; Check that it's really a directory.
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
92 (or (file-directory-p dir)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
93 (error "find-dired needs a directory: %s" dir))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
94 (switch-to-buffer (get-buffer-create "*Find*"))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
95 (widen)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
96 (kill-all-local-variables)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
97 (setq buffer-read-only nil)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
98 (erase-buffer)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
99 (setq default-directory dir
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
100 find-args args ; save for next interactive call
26042
1eb2f529058f (find-dired-find-program): Added this variable.
Peter Breton <pbreton@attbi.com>
parents: 25278
diff changeset
101 args (concat find-dired-find-program " . "
22630
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
102 (if (string= args "")
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
103 ""
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
104 (concat "\\( " args " \\) "))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
105 (car find-ls-option)))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
106 ;; The next statement will bomb in classic dired (no optional arg allowed)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
107 (dired-mode dir (cdr find-ls-option))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
108 ;; This really should rerun the find command, but I don't
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
109 ;; have time for that.
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
110 (use-local-map (append (make-sparse-keymap) (current-local-map)))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
111 (define-key (current-local-map) "g" 'undefined)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
112 ;; Set subdir-alist so that Tree Dired will work:
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
113 (if (fboundp 'dired-simple-subdir-alist)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
114 ;; will work even with nested dired format (dired-nstd.el,v 1.15
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
115 ;; and later)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
116 (dired-simple-subdir-alist)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
117 ;; else we have an ancient tree dired (or classic dired, where
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
118 ;; this does no harm)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
119 (set (make-local-variable 'dired-subdir-alist)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
120 (list (cons default-directory (point-min-marker)))))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
121 (setq buffer-read-only nil)
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
122 ;; Subdir headlerline must come first because the first marker in
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
123 ;; subdir-alist points there.
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
124 (insert " " dir ":\n")
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
125 ;; Make second line a ``find'' line in analogy to the ``total'' or
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
126 ;; ``wildcard'' line.
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
127 (insert " " args "\n")
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
128 ;; Start the find process.
26042
1eb2f529058f (find-dired-find-program): Added this variable.
Peter Breton <pbreton@attbi.com>
parents: 25278
diff changeset
129 (let ((proc (start-process-shell-command find-dired-find-program (current-buffer) args)))
22630
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
130 (set-process-filter proc (function find-dired-filter))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
131 (set-process-sentinel proc (function find-dired-sentinel))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
132 ;; Initialize the process marker; it is used by the filter.
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
133 (move-marker (process-mark proc) 1 (current-buffer)))
e4a895537576 (find-dired): Bind dired-buffers so it can't change. Use abbreviate-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 21057
diff changeset
134 (setq mode-line-process '(":%s"))))
292
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
135
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
136 ;;;###autoload
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
137 (defun find-name-dired (dir pattern)
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
138 "Search DIR recursively for files matching the globbing pattern PATTERN,
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
139 and run dired on those files.
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
140 PATTERN is a shell wildcard (not an Emacs regexp) and need not be quoted.
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
141 The command run (after changing into DIR) is
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
142
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
143 find . -name 'PATTERN' -ls"
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
144 (interactive
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
145 "DFind-name (directory): \nsFind-name (filename wildcard): ")
292
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
146 (find-dired dir (concat "-name '" pattern "'")))
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
147
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
148 ;; This functionality suggested by
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
149 ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc)
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
150 ;; Subject: find-dired, lookfor-dired
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
151 ;; Date: 10 May 91 17:50:00 GMT
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
152 ;; Organization: University of Waterloo
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
153
2571
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2230
diff changeset
154 (defalias 'lookfor-dired 'find-grep-dired)
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
155 ;;;###autoload
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
156 (defun find-grep-dired (dir args)
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
157 "Find files in DIR containing a regexp ARG and start Dired on output.
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
158 The command run (after changing into DIR) is
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
159
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
160 find . -exec grep -s ARG {} \\\; -ls
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
161
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
162 Thus ARG can also contain additional grep options."
10168
64163654c255 (find-grep-options): Use -q on non-BSD systems.
Richard M. Stallman <rms@gnu.org>
parents: 10024
diff changeset
163 (interactive "DFind-grep (directory): \nsFind-grep (grep regexp): ")
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
164 ;; find -exec doesn't allow shell i/o redirections in the command,
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
165 ;; or we could use `grep -l >/dev/null'
18580
717e09103d06 (find-grep-dired): Use -type f.
Richard M. Stallman <rms@gnu.org>
parents: 16823
diff changeset
166 ;; We use -type f, not ! -type d, to avoid getting screwed
717e09103d06 (find-grep-dired): Use -type f.
Richard M. Stallman <rms@gnu.org>
parents: 16823
diff changeset
167 ;; by FIFOs and devices. I'm not sure what's best to do
717e09103d06 (find-grep-dired): Use -type f.
Richard M. Stallman <rms@gnu.org>
parents: 16823
diff changeset
168 ;; about symlinks, so as far as I know this is not wrong.
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
169 (find-dired dir
18580
717e09103d06 (find-grep-dired): Use -type f.
Richard M. Stallman <rms@gnu.org>
parents: 16823
diff changeset
170 (concat "-type f -exec grep " find-grep-options " "
1225
e16f52a7c9f9 New version from sk. Further hacked:
Roland McGrath <roland@gnu.org>
parents: 1183
diff changeset
171 args " {} \\\; ")))
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
172
292
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
173 (defun find-dired-filter (proc string)
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
174 ;; Filter for \\[find-dired] processes.
294
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
175 (let ((buf (process-buffer proc)))
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
176 (if (buffer-name buf) ; not killed?
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
177 (save-excursion
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
178 (set-buffer buf)
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
179 (save-restriction
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
180 (widen)
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
181 (save-excursion
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
182 (let ((buffer-read-only nil)
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
183 (end (point-max)))
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
184 (goto-char end)
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
185 (insert string)
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
186 (goto-char end)
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
187 (or (looking-at "^")
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
188 (forward-line 1))
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
189 (while (looking-at "^")
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
190 (insert " ")
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
191 (forward-line 1))
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
192 ;; Convert ` ./FILE' to ` FILE'
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
193 ;; This would lose if the current chunk of output
10929
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
194 ;; starts or ends within the ` ./', so back up a bit:
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
195 (goto-char (- end 3)) ; no error if < 0
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 294
diff changeset
196 (while (search-forward " ./" nil t)
10929
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
197 (delete-region (point) (- (point) 2)))
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
198 ;; Find all the complete lines in the unprocessed
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
199 ;; output and process it to add text properties.
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
200 (goto-char end)
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
201 (if (search-backward "\n" (process-mark proc) t)
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
202 (progn
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
203 (dired-insert-set-properties (process-mark proc)
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
204 (1+ (point)))
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
205 (move-marker (process-mark proc) (1+ (point)))))
8102a6447ea0 (find-ls-option): Doc fix: now a cons.
Roland McGrath <roland@gnu.org>
parents: 10168
diff changeset
206 ))))
294
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
207 ;; The buffer has been killed.
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
208 (delete-process proc))))
292
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
209
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
210 (defun find-dired-sentinel (proc state)
cab78578e745 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
211 ;; Sentinel for \\[find-dired] processes.
294
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
212 (let ((buf (process-buffer proc)))
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
213 (if (buffer-name buf)
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
214 (save-excursion
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
215 (set-buffer buf)
3189
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
216 (let ((buffer-read-only nil))
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
217 (save-excursion
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
218 (goto-char (point-max))
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
219 (insert "\nfind " state)
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
220 (forward-char -1) ;Back up before \n at end of STATE.
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
221 (insert " at " (substring (current-time-string) 0 19))
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
222 (forward-char 1)
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
223 (setq mode-line-process
7073
c662b47cda3f (find-dired, find-dired-sentinel):
Richard M. Stallman <rms@gnu.org>
parents: 5460
diff changeset
224 (concat ":"
3189
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
225 (symbol-name (process-status proc))))
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
226 ;; Since the buffer and mode line will show that the
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
227 ;; process is dead, we can delete it now. Otherwise it
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
228 ;; will stay around until M-x list-processes.
77efda0d2b31 (find-dired-sentinel): Write a line describing death.
Roland McGrath <roland@gnu.org>
parents: 2571
diff changeset
229 (delete-process proc)
11585
e28ae3856c1d (find-dired-sentinel): Use force-mode-line-update.
Karl Heuer <kwzh@gnu.org>
parents: 11035
diff changeset
230 (force-mode-line-update)))
294
97aa6a6f9aa5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 292
diff changeset
231 (message "find-dired %s finished." (current-buffer))))))
1225
e16f52a7c9f9 New version from sk. Further hacked:
Roland McGrath <roland@gnu.org>
parents: 1183
diff changeset
232
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
233 (provide 'find-dired)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
234
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
235 ;;; find-dired.el ends here