(choose-completion-string): Use `minibufferp';

[gnu-emacs] / lisp / locate.el

diff --git a/lisp/locate.el b/lisp/locate.el
index 12eb08a032653b88cca5c72ae6a6b2828d2a99f8..40e8ddc65c38560fc34d0ecd91a717907472fc31 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))