Start server in an existing directory

* lisp/pdf-info.el (pdf-info-check-epdfinfo): Let default-directory be ~.
(pdf-info-process-assert-running): Ditto.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/pdf-info.el b/lisp/pdf-info.el
index 9e186ca..17efa8f 100644
--- a/lisp/pdf-info.el
+++ b/lisp/pdf-info.el
@@ -181,7 +181,8 @@ server, that it never ran.")
       (error "pdf-info-epdfinfo-program is unset or not a string"))
     (unless (file-executable-p executable)
       (error "pdf-info-epdfinfo-program is not executable"))
-    (let ((tempfile (make-temp-file "pdf-info-check-epdfinfo")))
+    (let ((tempfile (make-temp-file "pdf-info-check-epdfinfo"))
+          (default-directory "~"))
       (unwind-protect 
           (with-temp-buffer
             (with-temp-file tempfile
@@ -229,6 +230,7 @@ error."
       (error "The epdfinfo server quit"))
     (pdf-info-check-epdfinfo)
     (let* ((process-connection-type)    ;Avoid 4096 Byte bug #12440.
+           (default-directory "~")
            (proc (start-process
                   "epdfinfo" " *epdfinfo*" pdf-info-epdfinfo-program)))
       (with-current-buffer " *epdfinfo*"