From b57fdc8fde91734b34b7ad1c2f1a06b46a1f5822 Mon Sep 17 00:00:00 2001
From: Jonas Bernoulli <jonas@bernoul.li>
Date: Thu, 14 Jul 2022 14:27:28 +0200
Subject: geiser-elisp-dir: Fallback to buffer-file-name

This makes it possible to `eval-buffer' the buffer defining this
constant.  Not that doing so makes all that much sense, but I tried
doing it before reading its content, because generally speaking that
is a sensible thing to do, at least for someone working on the code.
---
 elisp/geiser.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'elisp')

diff --git a/elisp/geiser.el b/elisp/geiser.el
index b89148a..abcdb94 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -54,7 +54,8 @@
 ;;; Locations:
 
 ;;;###autoload
-(defconst geiser-elisp-dir (file-name-directory load-file-name)
+(defconst geiser-elisp-dir
+  (file-name-directory (or load-file-name buffer-file-name))
   "Directory containing Geiser's Elisp files.")
 
 
-- 
cgit v1.2.3