[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnus-mock 105b56d 1/2: Do a better job of finding our d
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/gnus-mock 105b56d 1/2: Do a better job of finding our data directory |
Date: |
Fri, 1 Jan 2021 16:48:12 -0500 (EST) |
branch: externals/gnus-mock
commit 105b56df1b60166be65216c7871837c2ed8f4da4
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
Do a better job of finding our data directory
* gnus-mock.el (gnus-mock-data-dir): Check some different conditions:
Are we byte compiling? Loading this file? Eval'ing this defconst?
Cribbed from ert-x.el.
---
gnus-mock.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/gnus-mock.el b/gnus-mock.el
index 2c7604f..97ff891 100644
--- a/gnus-mock.el
+++ b/gnus-mock.el
@@ -121,9 +121,12 @@ installation."
(defconst gnus-mock-data-dir
(file-name-as-directory (expand-file-name
"data"
- (if load-file-name
- (file-name-directory load-file-name)
- default-directory)))
+ (file-name-directory
+ (or (bound-and-true-p
+ byte-compile-current-file)
+ (and load-in-progress load-file-name)
+ buffer-file-name
+ default-directory))))
"Source directory for Gnus mock data.")
;;;###autoload