/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.111 by nickrob, Sun Nov 13 09:02:23 2005 UTC revision 1.112 by nickrob, Tue Nov 15 12:25:49 2005 UTC
# Line 358  With arg, use separate IO iff arg is pos Line 358  With arg, use separate IO iff arg is pos
358                            (gud-call "clear *%a" arg)))                            (gud-call "clear *%a" arg)))
359             "\C-d" "Remove breakpoint at current line or address.")             "\C-d" "Remove breakpoint at current line or address.")
360    ;;    ;;
361    (gud-def gud-until  (if (not (string-match "Machine" mode-name))    (gud-def gud-until (if (not (string-match "Machine" mode-name))
362                            (gud-call "until %f:%l" arg)                            (gud-call "until %f:%l" arg)
363                          (save-excursion                          (save-excursion
364                            (beginning-of-line)                            (beginning-of-line)
365                            (forward-char 2)                            (forward-char 2)
366                            (gud-call "until *%a" arg)))                            (gud-call "until *%a" arg)))
367             "\C-u" "Continue to current line or address.")             "\C-u" "Continue to current line or address.")
368      ;;
369      (gud-def gud-go (gud-call (if gdb-active-process "continue" "run") arg)
370               nil "Start or continue execution.")
371    
372    (define-key gud-minor-mode-map [left-margin mouse-1]    (define-key gud-minor-mode-map [left-margin mouse-1]
373      'gdb-mouse-set-clear-breakpoint)      'gdb-mouse-set-clear-breakpoint)
# Line 1376  static char *magick[] = { Line 1379  static char *magick[] = {
1379       :weight bold))       :weight bold))
1380    "Face for enabled breakpoint icon in fringe."    "Face for enabled breakpoint icon in fringe."
1381    :group 'gud)    :group 'gud)
 ;; Compatibility alias for old name.  
 (put 'breakpoint-enabled-bitmap-face 'face-alias 'breakpoint-enabled)  
1382    
1383  (defface breakpoint-disabled  (defface breakpoint-disabled
1384    ;; We use different values of grey for different background types,    ;; We use different values of grey for different background types,
# Line 2358  corresponding to the mode line clicked." Line 2359  corresponding to the mode line clicked."
2359    (define-key menu [breakpoints]    (define-key menu [breakpoints]
2360      '("Breakpoints" . gdb-frame-breakpoints-buffer)))      '("Breakpoints" . gdb-frame-breakpoints-buffer)))
2361    
2362  (let ((menu (make-sparse-keymap "GDB-UI")))  (let ((menu (make-sparse-keymap "GDB-UI/MI")))
2363    (define-key gud-menu-map [ui]    (define-key gud-menu-map [ui]
2364      `(menu-item "GDB-UI" ,menu :visible (eq gud-minor-mode 'gdba)))      `(menu-item (if (eq gud-minor-mode 'gdba) "GDB-UI" "GDB-MI")
2365                    ,menu :visible (memq gud-minor-mode '(gdbmi gdba))))
2366    (define-key menu [gdb-use-inferior-io]    (define-key menu [gdb-use-inferior-io]
2367    '(menu-item "Separate inferior IO" gdb-use-inferior-io-buffer    '(menu-item "Separate inferior IO" gdb-use-inferior-io-buffer
2368                  :visible (eq gud-minor-mode 'gdba)
2369                :help "Toggle separate IO for inferior."                :help "Toggle separate IO for inferior."
2370                :button (:toggle . gdb-use-inferior-io-buffer)))                :button (:toggle . gdb-use-inferior-io-buffer)))
2371    (define-key menu [gdb-many-windows]    (define-key menu [gdb-many-windows]
# Line 2702  BUFFER nil or omitted means use the curr Line 2705  BUFFER nil or omitted means use the curr
2705                    (if (re-search-forward address nil t)                    (if (re-search-forward address nil t)
2706                        (gdb-put-breakpoint-icon (eq flag ?y) bptno))))))))                        (gdb-put-breakpoint-icon (eq flag ?y) bptno))))))))
2707      (if (not (equal gdb-frame-address "main"))      (if (not (equal gdb-frame-address "main"))
2708          (set-window-point (get-buffer-window buffer 0) pos))))          (with-current-buffer buffer
2709              (set-window-point (get-buffer-window buffer 0) pos)))))
2710    
2711  (defvar gdb-assembler-mode-map  (defvar gdb-assembler-mode-map
2712    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))

Legend:
Removed from v.1.111  
changed lines
  Added in v.1.112

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26