Look for epdfinfo in the Emacs's bin directory

1 files changed, 7 insertions, 0 deletions

diff --git a/lisp/pdf-info.el b/lisp/pdf-info.el
index e7b3bf5..8d4ecc9 100644
--- a/lisp/pdf-info.el
+++ b/lisp/pdf-info.el
@@ -73,6 +73,13 @@
                        (file-executable-p (expand-file-name executable directory))
                        (expand-file-name executable directory))))
       (or (executable-find executable)
+          ;; This works if epdfinfo is in the same place as emacs and
+          ;; the editor was started with an absolute path, i.e. it is
+          ;; ment for Windows/Msys2.
+          (and (stringp (car-safe command-line-args))
+               (file-name-directory (car command-line-args))
+               (try-directory
+                (file-name-directory (car command-line-args))))
           (try-directory (expand-file-name "../server"))
           (expand-file-name executable))))
   "Filename of the epdfinfo executable."