mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 19:25:37 -08:00
Code Issues Projects Releases Wiki Activity

(gdb-mouse-until): New function.

Browse source 
(gdb-ann3): Bind it to mouse-2 and drag-mouse-1 in left fringe.
This commit is contained in:
Nick Roberts 2005-10-25 02:30:39 +00:00
parent e29a49815e
commit dcc9160601
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/progmodes/gdb-ui.el
View file

@ -349,6 +349,10 @@ Also display the main routine in the disassembly buffer if present."
'gdb-mouse-set-clear-breakpoint)
(define-key gud-minor-mode-map [left-fringe mouse-1]
'gdb-mouse-set-clear-breakpoint)
(define-key gud-minor-mode-map [left-fringe mouse-2]
'gdb-mouse-until)
(define-key gud-minor-mode-map [left-fringe drag-mouse-1]
'gdb-mouse-until)
(define-key gud-minor-mode-map [left-margin mouse-3]
'gdb-mouse-toggle-breakpoint-margin)
(define-key gud-minor-mode-map [left-fringe mouse-3]
@ -396,6 +400,21 @@ Also display the main routine in the disassembly buffer if present."
(gdb-set-gud-minor-mode-existing-buffers)
(run-hooks 'gdba-mode-hook))
(defun gdb-mouse-until (event)
"Execute source lines by dragging the overlay arrow (fringe) with the mouse."
(interactive "e")
(if gud-overlay-arrow-position
(let ((start (event-start event))
(end (event-end event))
(buffer (marker-buffer gud-overlay-arrow-position)) (line))
(if (equal buffer (window-buffer (posn-window end)))
(with-current-buffer buffer
(when (or (equal start end)
(equal (posn-point start)
(marker-position gud-overlay-arrow-position)))
(setq line (line-number-at-pos (posn-point end)))
(gud-call (concat "until " (number-to-string line)))))))))
(defcustom gdb-use-colon-colon-notation nil
"If non-nil use FUN::VAR format to display variables in the speedbar."
:type 'boolean