[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.34 emacs/lisp/progmodes/gdb-ui.el:1.35
*** emacs/lisp/progmodes/gdb-ui.el:1.34 Thu Nov 25 02:00:53 2004
--- emacs/lisp/progmodes/gdb-ui.el      Thu Nov 25 23:51:18 2004
***************
*** 1190,1196 ****
     (gdb-get-create-buffer 'gdb-breakpoints-buffer)))
  
  (defconst gdb-frame-parameters
!   '((height . 12) (width . 60)
      (unsplittable . t)
      (tool-bar-lines . nil)
      (menu-bar-lines . nil)
--- 1190,1196 ----
     (gdb-get-create-buffer 'gdb-breakpoints-buffer)))
  
  (defconst gdb-frame-parameters
!   '((height . 14) (width . 80)
      (unsplittable . t)
      (tool-bar-lines . nil)
      (menu-bar-lines . nil)
***************
*** 1199,1206 ****
  (defun gdb-frame-breakpoints-buffer ()
    "Display status of user-settable breakpoints in a new frame."
    (interactive)
!   (let ((special-display-regexps (append special-display-regexps '(".*"))))
!     (pop-to-buffer (gdb-get-create-buffer 'gdb-breakpoints-buffer))))
  
  (defvar gdb-breakpoints-mode-map
    (let ((map (make-sparse-keymap))
--- 1199,1207 ----
  (defun gdb-frame-breakpoints-buffer ()
    "Display status of user-settable breakpoints in a new frame."
    (interactive)
!   (let ((special-display-regexps (append special-display-regexps '(".*")))
!       (special-display-frame-alist gdb-frame-parameters))
!     (display-buffer (gdb-get-create-buffer 'gdb-breakpoints-buffer))))
  
  (defvar gdb-breakpoints-mode-map
    (let ((map (make-sparse-keymap))
***************
*** 1335,1343 ****
  (defun gdb-frame-stack-buffer ()
    "Display backtrace of current stack in a new frame."
    (interactive)
!   (select-frame (make-frame gdb-frame-parameters))
!   (switch-to-buffer (gdb-get-create-buffer 'gdb-stack-buffer))
!   (set-window-dedicated-p (selected-window) t))
  
  (defvar gdb-frames-mode-map
    (let ((map (make-sparse-keymap)))
--- 1336,1344 ----
  (defun gdb-frame-stack-buffer ()
    "Display backtrace of current stack in a new frame."
    (interactive)
!   (let ((special-display-regexps (append special-display-regexps '(".*")))
!       (special-display-frame-alist gdb-frame-parameters))
!     (display-buffer (gdb-get-create-buffer 'gdb-stack-buffer))))
  
  (defvar gdb-frames-mode-map
    (let ((map (make-sparse-keymap)))
***************
*** 1417,1425 ****
  (defun gdb-frame-threads-buffer ()
    "Display IDs of currently known threads in a new frame."
    (interactive)
!   (select-frame (make-frame gdb-frame-parameters))
!   (switch-to-buffer (gdb-get-create-buffer 'gdb-threads-buffer))
!   (set-window-dedicated-p (selected-window) t))
  
  (defvar gdb-threads-mode-map
    (let ((map (make-sparse-keymap)))
--- 1418,1426 ----
  (defun gdb-frame-threads-buffer ()
    "Display IDs of currently known threads in a new frame."
    (interactive)
!   (let ((special-display-regexps (append special-display-regexps '(".*")))
!       (special-display-frame-alist gdb-frame-parameters))
!     (display-buffer (gdb-get-create-buffer 'gdb-threads-buffer))))
  
  (defvar gdb-threads-mode-map
    (let ((map (make-sparse-keymap)))
***************
*** 1505,1513 ****
  (defun gdb-frame-registers-buffer ()
    "Display integer register contents in a new frame."
    (interactive)
!   (select-frame (make-frame gdb-frame-parameters))
!   (switch-to-buffer (gdb-get-create-buffer 'gdb-registers-buffer))
!   (set-window-dedicated-p (selected-window) t))
  
  ;;
  ;; Locals buffer.
--- 1506,1514 ----
  (defun gdb-frame-registers-buffer ()
    "Display integer register contents in a new frame."
    (interactive)
!   (let ((special-display-regexps (append special-display-regexps '(".*")))
!       (special-display-frame-alist gdb-frame-parameters))
!     (display-buffer (gdb-get-create-buffer 'gdb-registers-buffer))))
  
  ;;
  ;; Locals buffer.
***************
*** 1584,1592 ****
  (defun gdb-frame-locals-buffer ()
    "Display local variables of current stack and their values in a new frame."
    (interactive)
!   (select-frame (make-frame gdb-frame-parameters))
!   (switch-to-buffer (gdb-get-create-buffer 'gdb-locals-buffer))
!   (set-window-dedicated-p (selected-window) t))
  
  
  ;;;; Window management
--- 1585,1593 ----
  (defun gdb-frame-locals-buffer ()
    "Display local variables of current stack and their values in a new frame."
    (interactive)
!   (let ((special-display-regexps (append special-display-regexps '(".*")))
!       (special-display-frame-alist gdb-frame-parameters))
!     (display-buffer (gdb-get-create-buffer 'gdb-locals-buffer))))
  
  
  ;;;; Window management
***************
*** 2019,2027 ****
  (defun gdb-frame-assembler-buffer ()
    "Display disassembly view in a new frame."
    (interactive)
!   (select-frame (make-frame gdb-frame-parameters))
!   (switch-to-buffer (gdb-get-create-buffer 'gdb-assembler-buffer))
!   (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
--- 2020,2028 ----
  (defun gdb-frame-assembler-buffer ()
    "Display disassembly view in a new frame."
    (interactive)
!   (let ((special-display-regexps (append special-display-regexps '(".*")))
!       (special-display-frame-alist gdb-frame-parameters))
!     (display-buffer (gdb-get-create-buffer 'gdb-assembler-buffer))))
  
  ;; modified because if gdb-current-address has changed value a new command
  ;; must be enqueued to update the buffer with the new output