/[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.100 by nickrob, Tue Oct 25 01:18:56 2005 UTC revision 1.101 by nickrob, Tue Oct 25 02:30:39 2005 UTC
# Line 349  Also display the main routine in the dis Line 349  Also display the main routine in the dis
349      'gdb-mouse-set-clear-breakpoint)      'gdb-mouse-set-clear-breakpoint)
350    (define-key gud-minor-mode-map [left-fringe mouse-1]    (define-key gud-minor-mode-map [left-fringe mouse-1]
351      'gdb-mouse-set-clear-breakpoint)      'gdb-mouse-set-clear-breakpoint)
352      (define-key gud-minor-mode-map [left-fringe mouse-2]
353        'gdb-mouse-until)
354      (define-key gud-minor-mode-map [left-fringe drag-mouse-1]
355        'gdb-mouse-until)
356    (define-key gud-minor-mode-map [left-margin mouse-3]    (define-key gud-minor-mode-map [left-margin mouse-3]
357      'gdb-mouse-toggle-breakpoint-margin)      'gdb-mouse-toggle-breakpoint-margin)
358    (define-key gud-minor-mode-map [left-fringe mouse-3]    (define-key gud-minor-mode-map [left-fringe mouse-3]
# Line 396  Also display the main routine in the dis Line 400  Also display the main routine in the dis
400    (gdb-set-gud-minor-mode-existing-buffers)    (gdb-set-gud-minor-mode-existing-buffers)
401    (run-hooks 'gdba-mode-hook))    (run-hooks 'gdba-mode-hook))
402    
403    (defun gdb-mouse-until (event)
404      "Execute source lines by dragging the overlay arrow (fringe) with the mouse."
405      (interactive "e")
406      (if gud-overlay-arrow-position
407            (let ((start (event-start event))
408                  (end  (event-end event))
409                  (buffer (marker-buffer gud-overlay-arrow-position)) (line))
410              (if (equal buffer (window-buffer (posn-window end)))
411                  (with-current-buffer buffer
412                    (when (or (equal start end)
413                              (equal (posn-point start)
414                                     (marker-position gud-overlay-arrow-position)))
415                      (setq line (line-number-at-pos (posn-point end)))
416                      (gud-call (concat "until " (number-to-string line)))))))))
417    
418  (defcustom gdb-use-colon-colon-notation nil  (defcustom gdb-use-colon-colon-notation nil
419    "If non-nil use FUN::VAR format to display variables in the speedbar."    "If non-nil use FUN::VAR format to display variables in the speedbar."
420    :type 'boolean    :type 'boolean

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

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