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

2 files changed, 3 insertions, 1 deletions

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))