From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 28 Apr 2004 18:16:07 +0000 (+0000)
Subject: (gdb-frame-breakpoints-buffer)
X-Git-Tag: ttn-vms-21-2-B4~6534
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ce7881f127df3a2eb1001ce42fd79971ac90887;p=emacs.git

(gdb-frame-breakpoints-buffer)
(gdb-frame-stack-buffer, gdb-frame-threads-buffer)
(gdb-frame-registers-buffer, gdb-frame-locals-buffer)
(gdb-frame-gdb-buffer, gdb-frame-assembler-buffer): Use
selected-window.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index fb5a6757a49..2e836fb82b2 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -1152,7 +1152,7 @@ static char *magick[] = {
   (interactive)
   (select-frame (make-frame gdb-frame-parameters))
   (switch-to-buffer (gdb-get-create-buffer 'gdb-breakpoints-buffer))
-  (set-window-dedicated-p (get-buffer-window (current-buffer)) t))
+  (set-window-dedicated-p (selected-window) t))
 
 (defvar gdb-breakpoints-mode-map
   (let ((map (make-sparse-keymap))
@@ -1274,7 +1274,7 @@ current line."
   (interactive)
   (select-frame (make-frame gdb-frame-parameters))
   (switch-to-buffer (gdb-get-create-buffer 'gdb-stack-buffer))
-  (set-window-dedicated-p (get-buffer-window (current-buffer)) t))
+  (set-window-dedicated-p (selected-window) t))
 
 (defvar gdb-frames-mode-map
   (let ((map (make-sparse-keymap)))
@@ -1351,7 +1351,7 @@ the source buffer."
   (interactive)
   (select-frame (make-frame gdb-frame-parameters))
   (switch-to-buffer (gdb-get-create-buffer 'gdb-threads-buffer))
-  (set-window-dedicated-p (get-buffer-window (current-buffer)) t))
+  (set-window-dedicated-p (selected-window) t))
 
 (defvar gdb-threads-mode-map
   (let ((map (make-sparse-keymap)))
@@ -1433,7 +1433,7 @@ the source buffer."
   (interactive)
   (select-frame (make-frame gdb-frame-parameters))
   (switch-to-buffer (gdb-get-create-buffer 'gdb-registers-buffer))
-  (set-window-dedicated-p (get-buffer-window (current-buffer)) t))
+  (set-window-dedicated-p (selected-window) t))
 
 ;;
 ;; Locals buffer.
@@ -1505,7 +1505,7 @@ the source buffer."
   (interactive)
   (select-frame (make-frame gdb-frame-parameters))
   (switch-to-buffer (gdb-get-create-buffer 'gdb-locals-buffer))
-  (set-window-dedicated-p (get-buffer-window (current-buffer)) t))
+  (set-window-dedicated-p (selected-window) t))
 
 
 ;;;; Window management
@@ -1604,7 +1604,7 @@ the source buffer."
   (interactive)
   (select-frame (make-frame gdb-frame-parameters))
   (switch-to-buffer (gdb-get-create-buffer 'gdba))
-  (set-window-dedicated-p (get-buffer-window (current-buffer)) t))
+  (set-window-dedicated-p (selected-window) t))
 
 (defun gdb-display-gdb-buffer ()
   (interactive)
@@ -1935,7 +1935,7 @@ BUFFER nil or omitted means use the current buffer."
   (interactive)
   (select-frame (make-frame gdb-frame-parameters))
   (switch-to-buffer (gdb-get-create-buffer 'gdb-assembler-buffer))
-  (set-window-dedicated-p (get-buffer-window (current-buffer)) t))
+  (set-window-dedicated-p (selected-window) t))
 
 ;; modified because if gdb-current-address has changed value a new command
 ;; must be enqueued to update the buffer with the new output