diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-12-09 11:34:34 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-12-09 11:43:54 +0000 |
commit | af0bd58ac7744d81ca744d487703f0308362dbff (patch) | |
tree | 2f111bec7137f2f4381deae9f2913225692252c2 | |
parent | 38a0c57e2532c30b9bac94ab25e821222249a0a8 (diff) | |
download | dotfiles-af0bd58ac7744d81ca744d487703f0308362dbff.tar.gz |
when popping up a gdbmacs frame, try to pop up just one
-rw-r--r-- | .emacs.d/init.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index cdb15363..4d5c0369 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -3012,14 +3012,15 @@ mutt's review view, after exiting EDITOR." (ignore-error server-return-invalid-read-syntax (server-eval-at "gdbmacs" - `(let ((display-buffer-overriding-action - '(display-buffer-pop-up-frame - (pop-up-frame-parameters - (display - . ,(frame-parameter nil 'display))))) - (default-directory ,default-directory) - (current-prefix-arg ',current-prefix-arg)) - (apply #',',cmd ',args)))) + `(with-selected-frame + (make-frame '((display + . ,(frame-parameter nil 'display)))) + (let ((default-directory ,default-directory) + (current-prefix-arg ',current-prefix-arg) + (display-buffer-overriding-action + '(display-buffer-same-window + (inhibit-same-window . nil)))) + (apply #',',cmd ',args))))) (apply #',cmd args))) (global-set-key [remap ,cmd] #',new)))) @@ -3189,8 +3190,8 @@ mutt's review view, after exiting EDITOR." `(defun ,name ,arglist ,@(car parsed-body) (if (spw/may-pass-to-gdbmacs-p) - ;; We'd like to just bind `display-buffer-overriding-action', but - ;; Gnus doesn't respect that when it starts up. + ;; We'd like to bind `display-buffer-overriding-action', but Gnus + ;; doesn't respect that when it starts up. (ignore-error server-return-invalid-read-syntax (server-eval-at "gdbmacs" `(with-selected-frame |