mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(gdb-info-breakpoints-custom, gdb-assembler-custom):

Browse Source 
Put string associated with breakpoint at start of line so that it
is always visible.
(gdb-display-source-buffer): Display assembler during execution,
when requested.
(gud-menu-map): Add a toggle button to menubar for
gdb-many-windows.
(gdb-many-windows): Define explicitly as a function and a variable
(formerly as a minor mode). These need to be global so layout can
be reset from any buffer.
(gdb-assembler-mode): Keep fringe outside margin as the overlay
arrow is not used for assembler.
This commit is contained in:
Nick Roberts 2003-05-25 16:51:34 +00:00
parent cfec25c34f
commit eef0be881a
1 changed files with 35 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
lisp/gdb-ui.el
View File

@ -51,7 +51,7 @@
(require 'gud)
(defcustom gdb-window-height 20
"*Number of lines in a frame for a displayed expression in GDB-UI."
"Number of lines in a frame for a displayed expression in GDB-UI."
:type 'integer
:group 'gud)
@ -1384,16 +1384,17 @@ static char *magick[] = {
(remove-images start end)
(if (eq ?y flag)
(put-image breakpoint-enabled-icon
(point)
(+ start 1)
"breakpoint icon enabled"
'left-margin)
(put-image breakpoint-disabled-icon (point)
(put-image breakpoint-disabled-icon
(+ start 1)
"breakpoint icon disabled"
'left-margin)))
(gdb-remove-strings start end)
(if (eq ?y flag)
(gdb-put-string "B" (point))
(gdb-put-string "b" (point))))))))))))
(gdb-put-string "B" (+ start 1))
(gdb-put-string "b" (+ start 1))))))))))))
(end-of-line))))))
(defun gdb-breakpoints-buffer-name ()
@ -1985,12 +1986,20 @@ the source buffer."
answer))
(defun gdb-display-source-buffer (buffer)
(set-window-buffer gdb-source-window buffer)
(if (eq gdb-selected-view 'source)
(set-window-buffer gdb-source-window buffer)
(set-window-buffer gdb-source-window
(gdb-get-buffer 'gdb-assembler-buffer)))
gdb-source-window)
;;; Shared keymap initialization:
(define-key gud-menu-map [gdb-many-windows]
(menu-bar-make-toggle gdb-many-windows gdb-many-windows
"Display other windows" "Many Windows %s"
"Display locals, stack and breakpoint information"))
(let ((menu (make-sparse-keymap "GDB-Frames")))
(define-key gud-menu-map [frames]
`(menu-item "GDB-Frames" ,menu :visible (eq gud-minor-mode 'gdba)))
@ -2091,10 +2100,19 @@ the source buffer."
(switch-to-buffer (gdb-breakpoints-buffer-name))
(other-window 1))
(define-minor-mode gdb-many-windows
"Toggle the number of windows in the basic arrangement."
:group 'gud
:init-value nil
(defcustom gdb-many-windows nil
"Nil means that gdb starts with just two windows : the GUD and
the source buffer."
:type 'boolean
:group 'gud)
(defun gdb-many-windows (arg)
"Toggle the number of windows in the basic arrangement."
(interactive "P")
(setq gdb-many-windows
(if (null arg)
(not gdb-many-windows)
(> (prefix-numeric-value arg) 0)))
(gdb-restore-windows))
(defun gdb-restore-windows ()
@ -2309,16 +2327,18 @@ BUFFER nil or omitted means use the current buffer."
(progn
(remove-images start end)
(if (eq ?y flag)
(put-image breakpoint-enabled-icon (point)
(put-image breakpoint-enabled-icon
(+ start 1)
"breakpoint icon enabled"
'left-margin)
(put-image breakpoint-disabled-icon (point)
(put-image breakpoint-disabled-icon
(+ start 1)
"breakpoint icon disabled"
'left-margin)))
(gdb-remove-strings start end)
(if (eq ?y flag)
(gdb-put-string "B" (point))
(gdb-put-string "b" (point)))))))))))))
(gdb-put-string "B" (+ start 1))
(gdb-put-string "b" (+ start 1)))))))))))))
(defvar gdb-assembler-mode-map
(let ((map (make-sparse-keymap)))
@ -2332,6 +2352,7 @@ BUFFER nil or omitted means use the current buffer."
(setq major-mode 'gdb-assembler-mode)
(setq mode-name "Assembler")
(setq left-margin-width 2)
(setq fringes-outside-margins t)
(setq buffer-read-only t)
(use-local-map gdb-assembler-mode-map)
(gdb-invalidate-assembler)