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.

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