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 31e266fb50c9ee987e85ef6cc0985fcddcae6122..6f1143ba85aff22eb1dece5a9b1d448a19cbacd8 100644 (file)
--- 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 a69c77b72358825a2d5ce4fe8d11f55ae72f9003..4d517c19954786680d36eee99116276552893310 100644 (file)
--- 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))