master f655bd2008 2/4: Give a better error in locate-default-make-command-line

[Lars Ingebrigtsen]

branch: master
commit f655bd20084474df5472eaf28368b7185abe98e6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Give a better error in locate-default-make-command-line
    
    * lisp/locate.el (locate-default-make-command-line): Error out
    more nicely.
---
 lisp/locate.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/locate.el b/lisp/locate.el
index d4847b9c05..20ef052184 100644
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -238,6 +238,8 @@ that is, with a prefix arg, you get the default behavior."
 ;; Functions
 
 (defun locate-default-make-command-line (search-string)
+  (unless (executable-find locate-command)
+    (error "Can't find the %s command" locate-command))
   (list locate-command search-string))
 
 (defun locate-word-at-point ()