mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

Remove face-alias left over from change on

Browse Source 
2005-08-15.
(gdb-ann3): New command gud-go.
(menu): Accomodate gdb-mi.el.
(gdb-assembler-custom): Make buffer of selected window current
so that set-window-point works.
This commit is contained in:
Nick Roberts 2005-11-15 12:25:49 +00:00
parent a354cf393b
commit ba5ff011a8
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/progmodes/gdb-ui.el
View File

@ -358,13 +358,16 @@ With arg, use separate IO iff arg is positive."
(gud-call "clear *%a" arg)))
"\C-d" "Remove breakpoint at current line or address.")
;;
(gud-def gud-until (if (not (string-match "Machine" mode-name))
(gud-def gud-until (if (not (string-match "Machine" mode-name))
(gud-call "until %f:%l" arg)
(save-excursion
(beginning-of-line)
(forward-char 2)
(gud-call "until *%a" arg)))
"\C-u" "Continue to current line or address.")
;;
(gud-def gud-go (gud-call (if gdb-active-process "continue" "run") arg)
nil "Start or continue execution.")
(define-key gud-minor-mode-map [left-margin mouse-1]
'gdb-mouse-set-clear-breakpoint)
@ -1376,8 +1379,6 @@ static char *magick[] = {
:weight bold))
"Face for enabled breakpoint icon in fringe."
:group 'gud)
;; Compatibility alias for old name.
(put 'breakpoint-enabled-bitmap-face 'face-alias 'breakpoint-enabled)
(defface breakpoint-disabled
;; We use different values of grey for different background types,
@ -2358,11 +2359,13 @@ corresponding to the mode line clicked."
(define-key menu [breakpoints]
'("Breakpoints" . gdb-frame-breakpoints-buffer)))
(let ((menu (make-sparse-keymap "GDB-UI")))
(let ((menu (make-sparse-keymap "GDB-UI/MI")))
(define-key gud-menu-map [ui]
`(menu-item "GDB-UI" ,menu :visible (eq gud-minor-mode 'gdba)))
`(menu-item (if (eq gud-minor-mode 'gdba) "GDB-UI" "GDB-MI")
,menu :visible (memq gud-minor-mode '(gdbmi gdba))))
(define-key menu [gdb-use-inferior-io]
'(menu-item "Separate inferior IO" gdb-use-inferior-io-buffer
:visible (eq gud-minor-mode 'gdba)
:help "Toggle separate IO for inferior."
:button (:toggle . gdb-use-inferior-io-buffer)))
(define-key menu [gdb-many-windows]
@ -2702,7 +2705,8 @@ BUFFER nil or omitted means use the current buffer."
(if (re-search-forward address nil t)
(gdb-put-breakpoint-icon (eq flag ?y) bptno))))))))
(if (not (equal gdb-frame-address "main"))
(set-window-point (get-buffer-window buffer 0) pos))))
(with-current-buffer buffer
(set-window-point (get-buffer-window buffer 0) pos)))))
(defvar gdb-assembler-mode-map
(let ((map (make-sparse-keymap)))