diff options
-rw-r--r-- | lisp/pdf-info.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/pdf-info.el b/lisp/pdf-info.el index 3167f03..ba0dacb 100644 --- a/lisp/pdf-info.el +++ b/lisp/pdf-info.el @@ -62,11 +62,11 @@ :group 'pdf-tools) (defcustom pdf-info-epdfinfo-program - (expand-file-name (if (eq system-type 'windows-nt) - "epdfinfo.exe" - "epdfinfo") - (file-name-directory - (or load-file-name default-directory))) + (expand-file-name (if (eq system-type 'windows-nt) "epdfinfo.exe" "epdfinfo") + (let ((dir (file-name-directory (or load-file-name default-directory)))) + (cl-find-if 'file-exists-p + `(,(expand-file-name "../server" dir) + ,dir)))) "Filename of the epdfinfo executable." :group 'pdf-info :type '(file :must-match t)) |