diff options
| author | jao <jao@gnu.org> | 2022-10-21 03:36:16 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-21 03:36:50 +0100 |
| commit | 5b6d8202dd8b07dc4e83ff1040a8de9f0d2b02cb (patch) | |
| tree | 2df0891bc56acf85791e5b90a104bc64bf0b12e3 /elisp | |
| parent | 2174f90b64343c1af76c8e5469d5e4b69d709c08 (diff) | |
| download | geiser-5b6d8202dd8b07dc4e83ff1040a8de9f0d2b02cb.tar.gz geiser-5b6d8202dd8b07dc4e83ff1040a8de9f0d2b02cb.tar.bz2 | |
geiser-debug--debugger-active-p -> geiser-debug--debugger-active
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-debug.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index c3968e7..15f963f 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -126,7 +126,7 @@ all ANSI sequences." (compilation-setup nil) (setq buffer-read-only t)) -(defvar-local geiser-debug--debugger-active-p nil) +(defvar-local geiser-debug--debugger-active nil) (defvar-local geiser-debug--sender-buffer nil) (defun geiser-debug--send-dbg (thing) @@ -138,7 +138,7 @@ all ANSI sequences." (geiser-eval--retort-result-str ret nil))) (defun geiser-debug--send-to-repl (thing) - (unless (and geiser-debug--debugger-active-p geiser-debug--sender-buffer) + (unless (and geiser-debug--debugger-active geiser-debug--sender-buffer) (error "Debugger not active")) (save-window-excursion (with-current-buffer geiser-debug--sender-buffer @@ -179,7 +179,7 @@ all ANSI sequences." (transient-define-prefix geiser-debug--debugger-transient () "Debugging meta-commands." [:description (lambda () (format "%s debugger" (geiser-impl--impl-str))) - :if (lambda () geiser-debug--debugger-active-p) + :if (lambda () geiser-debug--debugger-active) ["Display" ("b" "backtrace" geiser-debug-debugger-backtrace) ("e" "error" geiser-debug-debugger-error) @@ -196,7 +196,7 @@ all ANSI sequences." ("Next error location" ((kbd "M-n")) next-error) ("Previous error location" ((kbd "M-p")) previous-error) ("Debugger command ..." "," geiser-debug--debugger-transient - :enable geiser-debug--debugger-active-p) + :enable geiser-debug--debugger-active) ("Source buffer" ("z" (kbd "C-c C-z")) geiser-debug-switch-to-buffer) -- ("Quit" nil View-quit)) @@ -262,9 +262,9 @@ buffer.") (after (geiser-debug--display-after what))) (unless debug-entered (geiser-debug--with-buffer - (when (and (not debug) geiser-debug--debugger-active-p) + (when (and (not debug) geiser-debug--debugger-active) (message "Debugger exited")) - (setq geiser-debug--debugger-active-p debug + (setq geiser-debug--debugger-active debug geiser-debug--sender-buffer buffer geiser-impl--implementation impl) (erase-buffer) |