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