# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767175355 0
# Node ID c662b47cda3f149543f6396d7e4dd58711eef0d5
# Parent  5da29eb68c8276d6c9d924894a59f2524e202558
(find-dired, find-dired-sentinel):
Remove space after `:' in mode-line-process.

diff -r 5da29eb68c82 -r c662b47cda3f lisp/find-dired.el
--- a/lisp/find-dired.el	Sun Apr 24 08:15:18 1994 +0000
+++ b/lisp/find-dired.el	Sun Apr 24 08:15:55 1994 +0000
@@ -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 @@
 		      (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 @@
 	      (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