diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-24 13:38:09 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-24 13:48:09 -0700 |
commit | a4600d85180e4e0cd7835b8af2ada10b00c3b31c (patch) | |
tree | a05991ded65dc53c2f46ffaccdb4e19aca3390c3 | |
parent | 44ad0e076672ae867e48e9252dea410f3074f189 (diff) | |
download | dotfiles-a4600d85180e4e0cd7835b8af2ada10b00c3b31c.tar.gz |
advice sldb-display-buffer, not sldb-setup
-rw-r--r-- | .emacs.d/init.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index a271c683..cc5b9a29 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -4474,7 +4474,7 @@ mutt's review view, after exiting EDITOR." (advice-add f :after #'spw/record-last-command-was-slime-async-eval)) ;; Here we assume that (spw/use-tabs-not-frames) yields nil. -(defun spw/sldb-setup-avoid-focus-grab (orig-fun &rest args) +(defun spw/sldb-avoid-focus-grab (orig-fun &rest args) "Don't allow the Slime debugger to grab keyboard focus unless we are sure that the user is expecting that it might pop up." (if spw/last-command-was-slime-async-eval @@ -4485,7 +4485,7 @@ that the user is expecting that it might pop up." (apply orig-fun args)) (apply orig-fun args)))) (setq spw/last-slime-async-eval-command-frame nil)) -(advice-add 'sldb-setup :around #'spw/sldb-setup-avoid-focus-grab) +(advice-add 'sldb-display-buffer :around #'spw/sldb-avoid-focus-grab) (defun spw/slime-repl-header-line (&optional pwd) (with-current-buffer (slime-connection-output-buffer) |