From af0bd58ac7744d81ca744d487703f0308362dbff Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 9 Dec 2023 11:34:34 +0000 Subject: when popping up a gdbmacs frame, try to pop up just one --- .emacs.d/init.el | 21 +++++++++++---------- 1 file 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 -- cgit v1.2.3