[Emacs-diffs] master 1b27c48: No need to pass absolute program name to call-process

[Glenn Morris]

branch: master
commit 1b27c4890d68882ef27eabe9984b6f5cfcc1b265
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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 31e266f..6f1143b 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 a69c77b..4d517c1 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))