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

* lisp/locate.el (locate-default-make-command-line): Error out
more nicely.
This commit is contained in:
Lars Ingebrigtsen 2022-02-07 01:59:18 +01:00
parent 130cd70d9b
commit f655bd2008

View file

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