[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 17cb462: [gnus-mock] Improvement to previous patch, bump t

From: Eric Abrahamsen
Subject: [elpa] master 17cb462: [gnus-mock] Improvement to previous patch, bump to 0.4.4
Date: Sat, 19 Oct 2019 14:15:40 -0400 (EDT)

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

    [gnus-mock] Improvement to previous patch, bump to 0.4.4
    * packages/gnus-mock/gnus-mock.el (gnus-mock-data-dir):
    default-directory actually stands a pretty good chance of being the
    directory where this file is being loaded from (ie the "data" dir will
    be found correctly).
 packages/gnus-mock/gnus-mock.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/packages/gnus-mock/gnus-mock.el b/packages/gnus-mock/gnus-mock.el
index 6119785..abe4d53 100644
--- a/packages/gnus-mock/gnus-mock.el
+++ b/packages/gnus-mock/gnus-mock.el
@@ -5,7 +5,7 @@
 ;; Author: Eric Abrahamsen <address@hidden>
 ;; Maintainer: Eric Abrahamsen <address@hidden>
 ;; Package-Type: multi
-;; Version: 0.4.3
+;; Version: 0.4.4
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -119,10 +119,11 @@ installation."
   :type 'string)
 (defconst gnus-mock-data-dir
-  (when load-file-name
-    (file-name-as-directory (expand-file-name
-                            "data"
-                            (file-name-directory load-file-name))))
+  (file-name-as-directory (expand-file-name
+                          "data"
+                          (if load-file-name
+                              (file-name-directory load-file-name)
+                            default-directory)))
   "Source directory for Gnus mock data.")
@@ -132,8 +133,6 @@ The new Emacs process will be started as \"-Q\", with the 
 Gnus settings pre-loaded.  Any of the normal Gnus entry points
 will start a mock Gnus session."
-  (unless gnus-mock-data-dir
-    (error "Set `gnus-mock-data-dir' to the \"gnus-mock/data\" directory"))
   (let ((mock-tmp-dir (make-temp-file "emacs-gnus-mock-" t)))
     (condition-case-unless-debug err
        (let ((init-file (expand-file-name "init.el" mock-tmp-dir)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]