diff options
Diffstat (limited to '.emacs.d/init.el')
-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 |