diff options
| author | Richard M. Stallman | 1994-12-15 12:16:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-15 12:16:29 +0000 |
| commit | efa2bb9cc8a8baee65929b830c55423d87cb1bcb (patch) | |
| tree | cbd3d64e8ebadf00ca10970f7d8b0e3836f5e919 | |
| parent | a352a815c4db262fea19a6bf9be60a1bf40905f6 (diff) | |
| download | emacs-efa2bb9cc8a8baee65929b830c55423d87cb1bcb.tar.gz emacs-efa2bb9cc8a8baee65929b830c55423d87cb1bcb.zip | |
(find-grep-options): Use -q on non-BSD systems.
(find-ls-option): Don't ask for inode numbers.
| -rw-r--r-- | lisp/find-dired.el | 17 |
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. |
| 69 | On Berkeley systems, this is `-s', for others it seems impossible to | 69 | On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it. |
| 70 | suppress all output, so `-l' is used to print nothing more than the | 70 | On other systems, the closest you can come is to use `-l'.") |
| 71 | file 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 | ||
| 159 | Thus ARG can also contain additional grep options." | 158 | Thus 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 |