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 +++++----- news.org | 4 +++- 2 files changed, 8 insertions(+), 6 deletions(-) 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 diff --git a/news.org b/news.org index 638634a..79a0be7 100644 --- a/news.org +++ b/news.org @@ -1,7 +1,9 @@ * Version 0.23 (unreleased) - - Set REPL's default directory to project's root + - Set REPL's default directory to project's root. + - Depending on ELPA's project 0.8.1 to ensure compatibility + with emacs < 28. * Version 0.22.2 (February, 2022) -- cgit v1.2.3