From 4e64934bd2ae7c6f0e4acb9f2ed017844c187223 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 8 Feb 2024 00:26:36 +0000
Subject: geiser-edit: new customization group

Fixes issue #20
---
 elisp/geiser-edit.el | 16 ++++++++++------
 elisp/geiser.el      |  1 +
 2 files changed, 11 insertions(+), 6 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index df4231c..1954062 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -1,6 +1,6 @@
 ;;; geiser-edit.el -- scheme edit locations  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2009, 2010, 2012, 2013, 2019-2023 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2012, 2013, 2019-2024 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -36,8 +36,16 @@
  "How the new buffer is opened when invoking \\[geiser-edit-symbol-at-point]
 or following links in error buffers.")
 
+(defgroup geiser-edit nil
+  "Customizations for scheme buffers and information about them."
+  :group 'geiser)
+
 (geiser-custom--defface error-link
-  'link geiser-debug "links in error buffers")
+  'link geiser-edit "links in error buffers")
+
+(geiser-custom--defcustom geiser-insert-actual-lambda t
+  "Whether geiser-insert-lambda should insert \"λ\" or \"lambda\"."
+  :type 'boolean)
 
 
 ;;; Auxiliary functions:
@@ -298,10 +306,6 @@ With prefix, asks for the symbol to locate."
       (when marker (xref-push-marker-stack marker))
       t)))
 
-(geiser-custom--defcustom geiser-insert-actual-lambda t
-  "Whether geiser-insert-lambda should insert \"λ\" or \"lambda\"."
-  :type 'boolean)
-
 (defun geiser-insert-lambda (&optional full)
   "Insert λ or lambda at point.  With prefix, inserts (λ ()) or (lambda ()).
 
diff --git a/elisp/geiser.el b/elisp/geiser.el
index 837a9d5..8f85662 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -108,6 +108,7 @@
         (custom-add-load group (symbol-name group))
         (custom-add-load 'geiser (symbol-name group)))
       '(geiser
+        geiser-edit
         geiser-repl
         geiser-autodoc
         geiser-doc
-- 
cgit v1.2.3