diff options
| author | politza <politza@fh-trier.de> | 2017-07-21 16:18:00 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-07-21 16:18:00 +0200 |
| commit | 804d9929ce354c60d91ab756735ffff8a6f30688 (patch) | |
| tree | f4696d0978c4ef938d886c4d922b86f9b918a7a2 | |
| parent | f314597b2e391f6564e4f9e5cc3af0b4b53f19e9 (diff) | |
| parent | e35c9583cdcc41f2b663cbaeba28c66885e76b1b (diff) | |
Merge pull request #290 from thblt/master
Support Git clone installation (closes #287)
| -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)) |