[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnus-mock 7c1d7b1 16/27: [gnus-mock] Set a value of def
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnus-mock 7c1d7b1 16/27: [gnus-mock] Set a value of default-directory for child Emacs process |
Date: |
Tue, 1 Dec 2020 10:11:39 -0500 (EST) |
branch: externals/gnus-mock
commit 7c1d7b16dd319c6fc70b2c85eb1b850777a89b82
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
[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.
---
gnus-mock.el | 14 ++++++++++----
1 file changed, 10 insertions(+), 4 deletions(-)
diff --git a/gnus-mock.el b/gnus-mock.el
index 0874200..74a85a3 100644
--- a/gnus-mock.el
+++ b/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))
- [elpa] externals/gnus-mock 35692d0 26/27: [gnus-mock] Add guard around setting sendmail-program, (continued)
- [elpa] externals/gnus-mock 35692d0 26/27: [gnus-mock] Add guard around setting sendmail-program, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 9196a0f 11/27: [gnus-mock] Instead of inserting strings, use princ and prin1, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock ab39a00 12/27: [gnus-mock] Conditionally add nnimap server, bump to 0.2.0, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 0e8663e 14/27: [gnus-mock] Add Cyrillic group to the nnimap server, bump to 0.3.0, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 5c2d129 19/27: [gnus-mock] Create empty draft/queue directories in advance, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 91b3515 25/27: [gnus-mock] Munge maildir article filenames, bump to 0.4.5, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock d6b2564 18/27: Add nnml server with non-ASCII group name, bump to 0.4.1, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 5e503c7 21/27: [gnus-mock] Skeleton code for Gnus Mock interactive tests, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 4d53dcf 22/27: * gnus-mock.el: Remove redundant :group args, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 84c6b96 27/27: * .gitignore: New file, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 7c1d7b1 16/27: [gnus-mock] Set a value of default-directory for child Emacs process,
Stefan Monnier <=
- [elpa] externals/gnus-mock bfaa249 17/27: [gnus-mock] Set gnus-verbose to max by default, bump to 0.4.0, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 6f22e65 23/27: [gnus-mock] Protect value of gnus-mock-data-dir, bump to 0.4.3, Stefan Monnier, 2020/12/01