[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b627444 2/3: [gnus-mock] Set a value of default-directory
From: |
Eric Abrahamsen |
Subject: |
[elpa] master b627444 2/3: [gnus-mock] Set a value of default-directory for child Emacs process |
Date: |
Tue, 4 Dec 2018 14:13:59 -0500 (EST) |
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))