branch: externals/compat
commit d0f3f4ad6e358fdc3026136fe0de9ca43a1dd48a
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Remove compat--internal-exec-path
---
compat-27.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/compat-27.el b/compat-27.el
index a463078c28..e8798e4514 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -602,7 +602,6 @@ The remote host is identified by `default-directory'. For
remote
hosts that do not support subprocesses, this returns nil.
If `default-directory' is a local directory, this function returns
the value of the variable `exec-path'."
- :realname compat--internal-exec-path
(cond
((let ((handler (find-file-name-handler default-directory 'exec-path)))
;; FIXME: The handler was added in 27.1, and this compatibility
@@ -642,7 +641,7 @@ REMOTE is non-nil, search on the remote host indicated by
(mapcar
(apply-partially
#'concat (file-remote-p default-directory))
- (compat--internal-exec-path))
+ (exec-path))
exec-suffixes 'file-executable-p)))
(when (stringp res) (file-local-name res)))
(executable-find command)))
