[elpa] externals/slime-volleyball d046322 10/27: Load other files relative to slime-volleyball-init's symbol file

[Thomas Fitzsimmons]

branch: externals/slime-volleyball
commit d04632228ffac9c7ebb5af0c0c73be28446184c2
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    Load other files relative to slime-volleyball-init's symbol file
---
 slime-volleyball.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/slime-volleyball.el b/slime-volleyball.el
index 12cec0a..835c15c 100644
--- a/slime-volleyball.el
+++ b/slime-volleyball.el
@@ -712,7 +712,7 @@
         (create-image
          (expand-file-name "title-screen.svg"
                            (file-name-directory
-                            (symbol-file 'slime-volleyball)))))
+                            (symbol-file 'slime-volleyball-init)))))
   (setq slime-volleyball-template-header
         (concat "<svg width=\"%d\" height=\"%d\" viewBox=\"0 0 %d %d\""
                 " xmlns=\"http://www.w3.org/2000/svg\"; version=\"1.1\">")
@@ -1647,7 +1647,7 @@
     (progn
       (split-window nil nil 'above)
       (other-window 1)
-      (find-file (symbol-file 'slime-volleyball))
+      (find-file (symbol-file 'slime-volleyball-init))
       (goto-char (point-min))
       (search-forward-regexp
        "^(defun slime-volleyball-initialize-god-mode-globals"
@@ -1682,7 +1682,7 @@
           (undo-outer-limit 60000000))
       (find-file (expand-file-name (concat name ".b64")
                                    (file-name-directory
-                                    (symbol-file 'slime-volleyball))))
+                                    (symbol-file 'slime-volleyball-init))))
       (with-current-buffer (concat name ".b64")
         (base64-decode-region (point-min) (point-max))
         (write-file temp-file)
@@ -1708,10 +1708,10 @@
   (message "Loading slime strategies...")
   (load-file (expand-file-name "grey-slime.el.gz"
                                (file-name-directory
-                                (symbol-file 'slime-volleyball))))
+                                (symbol-file 'slime-volleyball-init))))
   (load-file (expand-file-name "green-slime.el.gz"
                                (file-name-directory
-                                (symbol-file 'slime-volleyball))))
+                                (symbol-file 'slime-volleyball-init))))
   (slime-volleyball-initialize-globals)
   (with-current-buffer (get-buffer-create "*slime-volleyball*")
     (buffer-disable-undo))