From: Pavel Janík <Pavel@Janik.cz>
Date: Tue, 25 Dec 2001 11:07:45 +0000 (+0000)
Subject: (locate): Remove dot at the end of error argument.
X-Git-Tag: ttn-vms-21-2-B4~17488
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c19813f3f5cf259d823b2d98878e06cf8fef269e;p=emacs.git

(locate): Remove dot at the end of error argument.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a46f4ea292..1697f1a200d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-12-25  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* locate.el (locate): Remove dot at the end of error argument.
+
 	* emerge.el (emerge-show-file-name): Use frame-height instead of
 	obsolete screen-height.
 
diff --git a/lisp/locate.el b/lisp/locate.el
index 12eb08a0326..c467665a8e5 100644
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -210,7 +210,7 @@ With prefix arg, prompt for the locate command to run."
 		    (setq input default))
 	       input))))
   (if (equal search-string "")
-      (error "Please specify a filename to search for."))
+      (error "Please specify a filename to search for"))
   (let* ((locate-cmd-list (funcall locate-make-command-line search-string))
 	 (locate-cmd (car locate-cmd-list))
 	 (locate-cmd-args (cdr locate-cmd-list))