[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser 4e64934bd2 2/2: geiser-edit: new customization grou
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser 4e64934bd2 2/2: geiser-edit: new customization group |
Date: |
Wed, 7 Feb 2024 21:59:46 -0500 (EST) |
branch: elpa/geiser
commit 4e64934bd2ae7c6f0e4acb9f2ed017844c187223
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
geiser-edit: new customization group
Fixes issue #20
---
elisp/geiser-edit.el | 16 ++++++++++------
elisp/geiser.el | 1 +
2 files changed, 11 insertions(+), 6 deletions(-)
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index df4231c909..1954062d30 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 837a9d5627..8f85662a82 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