From a60efa80cdb8c72dacb1e16729a801206a4e80bf Mon Sep 17 00:00:00 2001
From: Jonas Bernoulli <jonas@bernoul.li>
Date: Mon, 5 Dec 2022 15:17:55 +0100
Subject: Take the byte-compilers advice into account

---
 elisp/geiser-debug.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'elisp/geiser-debug.el')

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 500598c..88f1e72 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -35,6 +35,9 @@
   "Debugging and error display options."
   :group 'geiser)
 
+(define-obsolete-variable-alias 'geiser-debug-always-display-sexp-after-p
+  'geiser-debug-always-display-sexp-after "0.26.2")
+
 (geiser-custom--defcustom geiser-debug-always-display-sexp-after nil
   "Whether to always display the sexp whose evaluation caused an
 error after the error message in the debug pop-up.
@@ -43,9 +46,6 @@ If nil, expressions shorter than `geiser-debug-long-sexp-lines`
 lines are shown before the error message."
   :type 'boolean)
 
-(define-obsolete-variable-alias 'geiser-debug-always-display-sexp-after-p
-  'geiser-debug-always-display-sexp-after "0.26.2")
-
 (geiser-custom--defcustom geiser-debug-long-sexp-lines 6
   "Length of an expression in order to be relegated to the bottom
 of the debug pop-up (after the error message).
@@ -54,6 +54,9 @@ If `geiser-debug-always-display-sexp-after` is t, this variable
 has no effect."
   :type 'int)
 
+(define-obsolete-variable-alias 'geiser-debug-jump-to-debug-p
+  'geiser-debug-jump-to-debug "0.26.2")
+
 (geiser-custom--defcustom geiser-debug-jump-to-debug t
   "When set to t (the default), jump to the debug pop-up buffer
 in case of evaluation errors.
@@ -61,8 +64,8 @@ in case of evaluation errors.
 See also `geiser-debug-show-debug`. "
   :type 'boolean)
 
-(define-obsolete-variable-alias 'geiser-debug-jump-to-debug-p
-  'geiser-debug-jump-to-debug "0.26.2")
+(define-obsolete-variable-alias 'geiser-debug-show-debug-p
+  'geiser-debug-show-debug "0.26.2")
 
 (geiser-custom--defcustom geiser-debug-auto-next-error-p nil
   "When set, automatically invoke `next-error' on of evaluation errors.
@@ -79,8 +82,8 @@ This option takes effect even if `geiser-debug-jump-to-debug`
 is set."
   :type 'boolean)
 
-(define-obsolete-variable-alias 'geiser-debug-show-debug-p
-  'geiser-debug-show-debug "0.26.2")
+(define-obsolete-variable-alias 'geiser-debug-auto-display-images-p
+  'geiser-debug-auto-display-images "0.26.2")
 
 (geiser-custom--defcustom geiser-debug-auto-display-images t
   "Whether to automatically invoke the external viewer to display
@@ -89,9 +92,6 @@ images when they're evaluated.
 See also `geiser-repl-auto-display-images-p'."
   :type 'boolean)
 
-(define-obsolete-variable-alias 'geiser-debug-auto-display-images-p
-  'geiser-debug-auto-display-images "0.26.2")
-
 (geiser-custom--defcustom geiser-debug-treat-ansi-colors nil
   "Colorize ANSI escape sequences produced by the scheme process.
 
-- 
cgit v1.2.3