Merged in changes from CVS trunk.

[gnu-emacs] / lisp / locate.el

diff --git a/lisp/locate.el b/lisp/locate.el
index 12eb08a032653b88cca5c72ae6a6b2828d2a99f8..eb8074c9f6c70b453743c3429815033b37acd544 100644 (file)
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -200,7 +200,7 @@ With prefix arg, prompt for the locate command to run."
                       (+ 2 (length (car locate-cmd))))
              nil nil 'locate-history-list))
         (let* ((default (locate-word-at-point))
-              (input 
+              (input
                (read-from-minibuffer
                 (if  (> (length default) 0)
                     (format "Locate (default `%s'): " default)
@@ -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))
@@ -516,4 +516,5 @@ Database is updated using the shell command in `locate-update-command'."
 
 (provide 'locate)
 
+;;; arch-tag: 60c4d098-b5d5-4b3c-a3e0-51a2e9f43898
 ;;; locate.el ends here