Commit 6657eedf authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(find-dired, find-dired-sentinel):

Remove space after `:' in mode-line-process.
parent ebf0b439
......@@ -7,8 +7,8 @@
;; Maintainer: Sebastian Kremer <sk@thp.uni-koeln.de>
;; Keywords: unix
(defconst find-dired-version (substring "$Revision: 1.13 $" 11 -2)
"$Id: find-dired.el,v 1.13 1993/05/28 00:58:08 roland Exp rms $")
(defconst find-dired-version (substring "$Revision: 1.14 $" 11 -2)
"$Id: find-dired.el,v 1.14 1994/01/06 04:39:00 rms Exp rms $")
;;; 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/05/28 00:58:08 $|$Revision: 1.13 $|
;; |$Date: 1994/01/06 04:39:00 $|$Revision: 1.14 $|
;; 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)
......@@ -206,7 +206,7 @@ Thus ARG can also contain additional grep options."
(insert " at " (substring (current-time-string) 0 19))
(forward-char 1)
(setq mode-line-process
(concat ": "
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment