From 2add7137ec813137fec044c3bae6e74bfb983669 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 6 Mar 2022 17:55:53 +0000 Subject: Depend on project 0.8.1, for users of emacs < 28 Fixes issue #37. --- elisp/geiser-repl.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index bb91d7a..2156ff6 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -29,6 +29,7 @@ (require 'compile) (require 'scheme) (require 'font-lock) +(require 'project) ;;; Customization: @@ -55,9 +56,8 @@ used to discover a buffer's project." (declare project-current "project.el") (defun geiser-repl-project-root () - "Use project.el, when available, to determine a buffer's project root." - (when (featurep 'project) - (when-let (p (project-current)) (project-root p)))) + "Use project.el, to determine a buffer's project root." + (when-let (p (project-current)) (project-root p))) (geiser-custom--defcustom geiser-repl-current-project-function #'geiser-repl-project-root @@ -65,8 +65,8 @@ used to discover a buffer's project." The function is called from both source and REPL buffers, and should return a value which uniquely identifies the project." :type '(choice (function-item :tag "Ignore projects" ignore) - (function-item :tag "Use Project.el" geiser-repl-project-root) - (function-item :tag "Use Projectile" projectile-project-root) + (function-item :tag "Use project.el" geiser-repl-project-root) + (function-item :tag "Use projectile" projectile-project-root) (function :tag "Other function"))) (geiser-custom--defcustom geiser-repl-use-other-window t -- cgit v1.2.3