From 1b27c4890d68882ef27eabe9984b6f5cfcc1b265 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Tue, 13 Nov 2018 14:47:35 -0500
Subject: [PATCH] No need to pass absolute program name to call-process
* lisp/doc-view.el (doc-view-revert-buffer):
* lisp/net/eudcb-mab.el (eudc-mab-query-internal):
Remove superfluous executable-find.
---
lisp/doc-view.el | 2 +-
lisp/net/eudcb-mab.el | 3 +--
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 31e266fb50c..6f1143ba85a 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -452,7 +452,7 @@ Typically \"page-%s.png\".")
;; file. (TODO: We'd like to have something like that also
;; for other types, at least PS, but I don't know a good way
;; to test if a PS file is complete.)
- (if (= 0 (call-process (executable-find "pdfinfo") nil nil nil
+ (if (= 0 (call-process "pdfinfo" nil nil nil
doc-view--buffer-file-name))
(revert)
(when (called-interactively-p 'interactive)
diff --git a/lisp/net/eudcb-mab.el b/lisp/net/eudcb-mab.el
index a69c77b7235..4d517c19954 100644
--- a/lisp/net/eudcb-mab.el
+++ b/lisp/net/eudcb-mab.el
@@ -61,8 +61,7 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
(goto-char (point-min))
(when (or (eobp) (time-less-p eudc-buffer-time modified))
(erase-buffer)
- (call-process (executable-find "contacts") nil t nil
- "-H" "-l" "-f" fmt-string)
+ (call-process "contacts" nil t nil "-H" "-l" "-f" fmt-string)
(setq eudc-buffer-time modified))
(goto-char (point-min))
(while (not (eobp))
--
2.39.5