(sc-cite-original): Add autoload.

[bpt/emacs.git] / lisp / find-dired.el

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index bb1f29f..6844699 100644 (file)
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -1,6 +1,6 @@
-;; find-dired.el --- run a `find' command and dired the output
+;;; find-dired.el --- run a `find' command and dired the output
 
-;;; Copyright (C) 1992 Free Software Foundation, Inc.
+;;; Copyright (C) 1992, 1994 Free Software Foundation, Inc.
 
 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>,
 ;;        Sebastian Kremer <sk@thp.uni-koeln.de>
@@ -8,7 +8,7 @@
 ;; Keywords: unix
 
 (defconst find-dired-version (substring "$Revision: 1.15 $" 11 -2)
-  "$Id: find-dired.el,v 1.15 1992/09/26 11:48:45 sk Exp $")
+  "$Id: find-dired.el,v 1.15 1994/04/24 08:15:55 rms Exp kwzh $")
 
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -33,7 +33,7 @@
 ;;    find-dired|Roland McGrath, Sebastian Kremer
 ;;    |roland@gnu.ai.mit.edu, sk@thp.uni-koeln.de
 ;;    |Run a `find' command and dired the output
-;;    |$Date: 1992/09/26 11:48:45 $|$Revision: 1.15 $|
+;;    |$Date: 1994/04/24 08:15:55 $|$Revision: 1.15 $|
 
 ;; INSTALLATION ======================================================
 
@@ -128,7 +128,7 @@ The command run (after changing into DIR) is
                      (function find-dired-filter))
   (set-process-sentinel (get-buffer-process (current-buffer))
                        (function find-dired-sentinel))
-  (setq mode-line-process '(": %s")))
+  (setq mode-line-process '(":%s")))
 
 ;;;###autoload
 (defun find-name-dired (dir pattern)
@@ -148,7 +148,7 @@ The command run (after changing into DIR) is
 ;; Date: 10 May 91 17:50:00 GMT
 ;; Organization: University of Waterloo
 
-(fset 'lookfor-dired 'find-grep-dired)
+(defalias 'lookfor-dired 'find-grep-dired)
 ;;;###autoload
 (defun find-grep-dired (dir args)
   "Find files in DIR containing a regexp ARG and start Dired on output.
@@ -198,7 +198,22 @@ Thus ARG can also contain additional grep options."
     (if (buffer-name buf)
        (save-excursion
          (set-buffer buf)
-         (setq mode-line-process nil)
+         (let ((buffer-read-only nil))
+           (save-excursion
+             (goto-char (point-max))
+             (insert "\nfind " state)
+             (forward-char -1)         ;Back up before \n at end of STATE.
+             (insert " at " (substring (current-time-string) 0 19))
+             (forward-char 1)
+             (setq mode-line-process
+                   (concat ":"
+                           (symbol-name (process-status proc))))
+             ;; Since the buffer and mode line will show that the
+             ;; process is dead, we can delete it now.  Otherwise it
+             ;; will stay around until M-x list-processes.
+             (delete-process proc)
+             ;; Force mode line redisplay soon.
+             (set-buffer-modified-p (buffer-modified-p))))
          (message "find-dired %s finished." (current-buffer))))))
 
 (or (fboundp 'start-process-shell-command)
@@ -214,7 +229,7 @@ BUFFER is the buffer or (buffer-name) to associate with the process.
  with any buffer
 Third arg is command name, the name of a shell command.
 Remaining arguments are the arguments for the command.
-Wildcards and redirection are handle as usual in the shell."
+Wildcards and redirection are handled as usual in the shell."
   (if (eq system-type 'vax-vms)
       (apply 'start-process name buffer args)
     (start-process name buffer shell-file-name "-c"