[elpa] master b627444 2/3: [gnus-mock] Set a value of default-directory for child Emacs process

[Eric Abrahamsen]

branch: master
commit b62744403d471c71e4cf2a68ef752e3fa2bdf2f9
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    [gnus-mock] Set a value of default-directory for child Emacs process
    
    * packages/gnus-mock/gnus-mock.el (gnus-mock-start): Small convenience
      for getting at Gnus' source files after startup.
---
 packages/gnus-mock/gnus-mock.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/packages/gnus-mock/gnus-mock.el b/packages/gnus-mock/gnus-mock.el
index 0874200..74a85a3 100644
--- a/packages/gnus-mock/gnus-mock.el
+++ b/packages/gnus-mock/gnus-mock.el
@@ -255,10 +255,16 @@ will start a mock Gnus session."
                                                      %Seen %Draft %*))))))
               (current-buffer)))
            (basic-save-buffer))
-         (make-process :name "gnus-mock" :buffer nil
-                       :command (list gnus-mock-emacs-program
-                                      "-Q" "--load" init-file)
-                       :stderr "*gnus mock errors*"))
+         (let ((default-directory
+                 (expand-file-name
+                  "lisp/gnus"
+                  (file-name-as-directory
+                   (expand-file-name "../.."
+                                     gnus-mock-emacs-program)))))
+           (make-process :name "gnus-mock" :buffer nil
+                         :command (list gnus-mock-emacs-program
+                                        "-Q" "--load" init-file)
+                         :stderr "*gnus mock errors*")))
       (error (when (and gnus-mock-cleanup-p
                        (file-exists-p mock-tmp-dir))
               (delete-directory mock-tmp-dir t))