diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-24 08:15:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-24 08:15:55 +0000 |
| commit | 6657eedf6ba2fc753549f3cb276690889fb89188 (patch) | |
| tree | d39ef9c5c9f22186c4c1032d9da0c300ac156e4b /lisp/find-dired.el | |
| parent | ebf0b439d599bab7c884c62b99bd1048cefe9ca7 (diff) | |
| download | emacs-6657eedf6ba2fc753549f3cb276690889fb89188.tar.gz | |
(find-dired, find-dired-sentinel):
Remove space after `:' in mode-line-process.
Diffstat (limited to 'lisp/find-dired.el')
| -rw-r--r-- | lisp/find-dired.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index cea8318fcd6..9c2af423c07 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.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 |