diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2022-12-05 15:17:55 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2022-12-05 15:17:55 +0100 |
| commit | a60efa80cdb8c72dacb1e16729a801206a4e80bf (patch) | |
| tree | 67e7edf51c5eb0133d669e67ab00d3b83788c428 /elisp/geiser-debug.el | |
| parent | 47bb86d6829ffa81ec021ee6217379b216d95bfc (diff) | |
| download | geiser-a60efa80cdb8c72dacb1e16729a801206a4e80bf.tar.gz geiser-a60efa80cdb8c72dacb1e16729a801206a4e80bf.tar.bz2 | |
Take the byte-compilers advice into account
Diffstat (limited to 'elisp/geiser-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 20 |
1 files changed, 10 insertions, 10 deletions
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. |