aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/find-dired.el17
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 53f62d71ed4..71958d8af63 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -7,8 +7,8 @@
7;; Maintainer: Sebastian Kremer <sk@thp.uni-koeln.de> 7;; Maintainer: Sebastian Kremer <sk@thp.uni-koeln.de>
8;; Keywords: unix 8;; Keywords: unix
9 9
10(defconst find-dired-version (substring "$Revision: 1.16 $" 11 -2) 10(defconst find-dired-version (substring "$Revision: 1.17 $" 11 -2)
11 "$Id: find-dired.el,v 1.16 1994/05/03 23:39:55 kwzh Exp rms $") 11 "$Id: find-dired.el,v 1.17 1994/11/19 14:03:23 rms Exp rms $")
12 12
13;;; This program is free software; you can redistribute it and/or modify 13;;; This program is free software; you can redistribute it and/or modify
14;;; it under the terms of the GNU General Public License as published by 14;;; it under the terms of the GNU General Public License as published by
@@ -33,7 +33,7 @@
33;; find-dired|Roland McGrath, Sebastian Kremer 33;; find-dired|Roland McGrath, Sebastian Kremer
34;; |roland@gnu.ai.mit.edu, sk@thp.uni-koeln.de 34;; |roland@gnu.ai.mit.edu, sk@thp.uni-koeln.de
35;; |Run a `find' command and dired the output 35;; |Run a `find' command and dired the output
36;; |$Date: 1994/05/03 23:39:55 $|$Revision: 1.16 $| 36;; |$Date: 1994/11/19 14:03:23 $|$Revision: 1.17 $|
37 37
38;; INSTALLATION ====================================================== 38;; INSTALLATION ======================================================
39 39
@@ -60,15 +60,14 @@
60 60
61;;;###autoload 61;;;###autoload
62(defvar find-ls-option (if (eq system-type 'berkeley-unix) "-ls" 62(defvar find-ls-option (if (eq system-type 'berkeley-unix) "-ls"
63 "-exec ls -ldi {} \\;") 63 "-exec ls -ld {} \\;")
64 "*Option to `find' to produce an `ls -l'-type listing.") 64 "*Option to `find' to produce an `ls -l'-type listing.")
65 65
66;;;###autoload 66;;;###autoload
67(defvar find-grep-options (if (eq system-type 'berkeley-unix) "-s" "-l") 67(defvar find-grep-options (if (eq system-type 'berkeley-unix) "-s" "-q")
68 "*Option to grep to be as silent as possible. 68 "*Option to grep to be as silent as possible.
69On Berkeley systems, this is `-s', for others it seems impossible to 69On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it.
70suppress all output, so `-l' is used to print nothing more than the 70On other systems, the closest you can come is to use `-l'.")
71file name.")
72 71
73(defvar find-args nil 72(defvar find-args nil
74 "Last arguments given to `find' by \\[find-dired].") 73 "Last arguments given to `find' by \\[find-dired].")
@@ -157,7 +156,7 @@ The command run (after changing into DIR) is
157 find . -exec grep -s ARG {} \\\; -ls 156 find . -exec grep -s ARG {} \\\; -ls
158 157
159Thus ARG can also contain additional grep options." 158Thus ARG can also contain additional grep options."
160 (interactive "DFind-grep (directory): \nsFind-grep (grep args): ") 159 (interactive "DFind-grep (directory): \nsFind-grep (grep regexp): ")
161 ;; find -exec doesn't allow shell i/o redirections in the command, 160 ;; find -exec doesn't allow shell i/o redirections in the command,
162 ;; or we could use `grep -l >/dev/null' 161 ;; or we could use `grep -l >/dev/null'
163 (find-dired dir 162 (find-dired dir