(locate-insert-header): Remove unnecessary

whitespaces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 239dd228879700b44037c6d56fcb3622f9a48aea..206f0c23bcdb236ded1d1757a7920b006e79b74b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,11 @@
        * comint.el (comint-send-input): Handle comint-process-echoes
        differently.
 
+2001-09-07  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+
+       * locate.el (locate-insert-header): Remove unnecessary
+       whitespace.
+
 2001-09-07  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * arc-mode.el (archive-dostime): Fix a typo in minutes'

diff --git a/lisp/locate.el b/lisp/locate.el
index ceb29458864969cdf784481c386af3ac13589b77..80dc7af7a2193d06c5f48e59f95ec87fe8355585 100644 (file)
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -1,6 +1,6 @@
 ;;; locate.el --- interface to the locate command
 
-;; Copyright (C) 1996, 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1998, 2001 Free Software Foundation, Inc.
 
 ;; Author: Peter Breton <pbreton@cs.umb.edu>
 ;; Keywords: unix files
@@ -404,9 +404,9 @@ shown; this is often useful to constrain a big search."
              (append (list locate-current-filter) locate-format-args)))
 
     (setq locate-format-string
-         (concat locate-format-string ": \n\n")
+         (concat locate-format-string ":\n\n")
          locate-regexp-match
-         (concat locate-regexp-match ": \n"))
+         (concat locate-regexp-match ":\n"))
 
     (insert (apply 'format locate-format-string (reverse locate-format-args)))