diff options
| author | Roland McGrath <roland@gnu.org> | 1993-05-28 00:58:08 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-05-28 00:58:08 +0000 |
| commit | 619c556e37f32f85ee86abac0199c76f6b28149d (patch) | |
| tree | c9c8a80b2ea05eed649b9475bb5a47b0c4a33921 /lisp/find-dired.el | |
| parent | b70cff717b6f580d5193a074df4d47fe3d80e10e (diff) | |
| download | emacs-619c556e37f32f85ee86abac0199c76f6b28149d.tar.gz | |
(find-dired-sentinel): Write a line describing death.
Set mode-line-process to record exit status.
Delete the process.
Diffstat (limited to 'lisp/find-dired.el')
| -rw-r--r-- | lisp/find-dired.el | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 5524b2c230d..718aae76fa4 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -7,8 +7,8 @@ ;; Maintainer: Sebastian Kremer <sk@thp.uni-koeln.de> ;; Keywords: unix -(defconst find-dired-version (substring "$Revision: 1.11 $" 11 -2) - "$Id: find-dired.el,v 1.11 1993/03/17 15:24:18 eric Exp eric $") +(defconst find-dired-version (substring "$Revision: 1.12 $" 11 -2) + "$Id: find-dired.el,v 1.12 1993/04/23 06:51:38 eric Exp roland $") ;;; 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: 1993/03/17 15:24:18 $|$Revision: 1.11 $| +;; |$Date: 1993/04/23 06:51:38 $|$Revision: 1.12 $| ;; INSTALLATION ====================================================== @@ -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) |