From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 7 Feb 2022 00:59:18 +0000 (+0100)
Subject: Give a better error in locate-default-make-command-line
X-Git-Tag: emacs-29.0.90~2465
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f655bd20084474df5472eaf28368b7185abe98e6;p=emacs.git

Give a better error in locate-default-make-command-line

* lisp/locate.el (locate-default-make-command-line): Error out
more nicely.
---

diff --git a/lisp/locate.el b/lisp/locate.el
index d4847b9c050..20ef052184e 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 ()