Mercurial > emacs
comparison lisp/find-dired.el @ 2571:b65cf676a09b
All fsets changed to defaliases.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Fri, 23 Apr 1993 06:51:44 +0000 |
parents | 6314334d7c2b |
children | 77efda0d2b31 |
comparison
equal
deleted
inserted
replaced
2570:a880046a1a67 | 2571:b65cf676a09b |
---|---|
5 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>, | 5 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>, |
6 ;; Sebastian Kremer <sk@thp.uni-koeln.de> | 6 ;; Sebastian Kremer <sk@thp.uni-koeln.de> |
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.10 $" 11 -2) | 10 (defconst find-dired-version (substring "$Revision: 1.11 $" 11 -2) |
11 "$Id: find-dired.el,v 1.10 1992/09/27 01:24:00 roland Exp eric $") | 11 "$Id: find-dired.el,v 1.11 1993/03/17 15:24:18 eric Exp eric $") |
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 |
15 ;;; the Free Software Foundation; either version 1, or (at your option) | 15 ;;; the Free Software Foundation; either version 1, or (at your option) |
16 ;;; any later version. | 16 ;;; any later version. |
31 ;; LISPDIR ENTRY for the Elisp Archive =============================== | 31 ;; LISPDIR ENTRY for the Elisp Archive =============================== |
32 ;; LCD Archive Entry: | 32 ;; LCD Archive Entry: |
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: 1992/09/27 01:24:00 $|$Revision: 1.10 $| | 36 ;; |$Date: 1993/03/17 15:24:18 $|$Revision: 1.11 $| |
37 | 37 |
38 ;; INSTALLATION ====================================================== | 38 ;; INSTALLATION ====================================================== |
39 | 39 |
40 ;; To use this file, byte-compile it, install it somewhere in your | 40 ;; To use this file, byte-compile it, install it somewhere in your |
41 ;; load-path, and put: | 41 ;; load-path, and put: |
146 ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) | 146 ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) |
147 ;; Subject: find-dired, lookfor-dired | 147 ;; Subject: find-dired, lookfor-dired |
148 ;; Date: 10 May 91 17:50:00 GMT | 148 ;; Date: 10 May 91 17:50:00 GMT |
149 ;; Organization: University of Waterloo | 149 ;; Organization: University of Waterloo |
150 | 150 |
151 (fset 'lookfor-dired 'find-grep-dired) | 151 (defalias 'lookfor-dired 'find-grep-dired) |
152 ;;;###autoload | 152 ;;;###autoload |
153 (defun find-grep-dired (dir args) | 153 (defun find-grep-dired (dir args) |
154 "Find files in DIR containing a regexp ARG and start Dired on output. | 154 "Find files in DIR containing a regexp ARG and start Dired on output. |
155 The command run (after changing into DIR) is | 155 The command run (after changing into DIR) is |
156 | 156 |