From: Glenn Morris <rgm@gnu.org>
Date: Tue, 13 Nov 2018 19:47:35 +0000 (-0500)
Subject: No need to pass absolute program name to call-process
X-Git-Tag: emacs-27.0.90~4168
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b27c4890d68882ef27eabe9984b6f5cfcc1b265;p=emacs.git

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.
---

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