Re: no way to stop find-grep-dired

[Kevin Rodgers <ihs_4664@yahoo.com>]

Dan Jacobson wrote:

> find-grep-dired's docstring should say how to interrupt it.
> Apparently one does a kill-buffer, which takes with it all its
> output so far.

Better yet, a new command to do what you want (what would be a good
local binding -- maybe C-k?):


*** emacs-21.3/lisp/find-dired.el.orig	Thu Dec 27 19:13:31 2001
--- emacs-21.3/lisp/find-dired.el	Mon Oct  6 10:41:17 2003
***************
*** 101,110 ****
   	(if (or (not (eq (process-status find) 'run))
   		(yes-or-no-p "A `find' process is running; kill it? "))
   	    (condition-case nil
! 		(progn
! 		  (interrupt-process find)
! 		  (sit-for 1)
! 		  (delete-process find))
   	      (error nil))
   	  (error "Cannot have two processes in `%s' at once" (buffer-name)))))

--- 101,107 ----
   	(if (or (not (eq (process-status find) 'run))
   		(yes-or-no-p "A `find' process is running; kill it? "))
   	    (condition-case nil
!                 (kill-find-dired find)
   	      (error nil))
   	  (error "Cannot have two processes in `%s' at once" (buffer-name)))))

***************
*** 150,155 ****
--- 147,165 ----
       (setq mode-line-process '(":%s"))))

   ;;;###autoload
+ (defun kill-find-dired (&optional process)
+   "Kill the PROCESS made by the \\[find-dired] command."
+   (interactive)
+   (or (and process
+            (equal (process-name process) find-dired-find-program))
+       (setq process
+             (get-process find-dired-find-program))
+       (error "No %s process" find-dired-find-program))
+   (interrupt-process process)
+   (sit-for 1)
+   (delete-process process)))
+
+ ;;;###autoload
   (defun find-name-dired (dir pattern)
     "Search DIR recursively for files matching the globbing pattern PATTERN,
   and run dired on those files.

-- 
Kevin Rodgers