diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-11-13 14:47:35 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-11-13 14:47:35 -0500 |
| commit | 1b27c4890d68882ef27eabe9984b6f5cfcc1b265 (patch) | |
| tree | a79b94c606a8f07632edd2d75100cc11deca026f /lisp | |
| parent | 7e2a1543985a770c93c9825c661bbb9b51b5e36f (diff) | |
| download | emacs-1b27c4890d68882ef27eabe9984b6f5cfcc1b265.tar.gz emacs-1b27c4890d68882ef27eabe9984b6f5cfcc1b265.tar.bz2 emacs-1b27c4890d68882ef27eabe9984b6f5cfcc1b265.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/doc-view.el | 2 | ||||
| -rw-r--r-- | 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)) |