[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.100 
emacs/lisp/progmodes/gdb-ui.el:1.101
*** emacs/lisp/progmodes/gdb-ui.el:1.100        Tue Oct 25 01:18:56 2005
--- emacs/lisp/progmodes/gdb-ui.el      Tue Oct 25 02:30:39 2005
***************
*** 349,354 ****
--- 349,358 ----
      '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]
***************
*** 395,400 ****
--- 399,419 ----
    ;;
    (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."