From e0b7210e4c9ad5c8175abe74f6f626d850472d00 Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Mon, 9 Feb 2015 15:45:00 +0100 Subject: [PATCH] gdb-mi.el (gdb-window-dedicated-flag): New flag * lisp/progmodes/gdb-mi.el (gdb-window-dedicated-flag): This flag is passed to `set-window-dedicated-p' each time it needs to be called with a non-nil flag. (gdb-display-buffer): Update. (gdb-set-window-buffer): Update. --- lisp/progmodes/gdb-mi.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 27846ed..48f0cd2 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -252,6 +252,14 @@ lower token-number are out-of-order." :group 'gud :version "24.4") +(defcustom gdb-window-dedicated-flag t + "Non-nil flag used for calls to `set-window-dedicated-p'." + :type '(choice + (const :tag "Plain" t) + (const :tag "Soft" soft)) + :group 'gud + :version "25.1") + (cl-defstruct gdb-handler "Data required to handle the reply of a command sent to GDB." ;; Prefix of the command sent to GDB. The GDB reply for this command @@ -4282,7 +4290,7 @@ overlay arrow in source buffer." (defun gdb-display-buffer (buf) "Show buffer BUF, and make that window dedicated." (let ((window (display-buffer buf))) - (set-window-dedicated-p window t) + (set-window-dedicated-p window gdb-window-dedicated-flag) window)) ;; (let ((answer (get-buffer-window buf 0))) @@ -4447,7 +4455,7 @@ window is dedicated." (when ignore-dedicated (set-window-dedicated-p window nil)) (set-window-buffer window (get-buffer name)) - (set-window-dedicated-p window t)) + (set-window-dedicated-p window gdb-window-dedicated-flag)) (defun gdb-setup-windows () "Layout the window pattern for option `gdb-many-windows'." -- 1.8.4