Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(gdb-mouse-toggle-breakpoint): New defun.

Browse source 
(gdba): Bind it to [left-margin mouse-1] and [left-fringe mouse-1].
This commit is contained in:
Kim F. Storm 2003-11-23 00:27:38 +00:00
parent 76693d1232
commit f48e9893db
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/gdb-ui.el
View file

@ -145,6 +145,9 @@ The following interactive lisp functions help control operation :
(gud-call "until *%a" arg)))
"\C-u" "Continue to current line or address.")
(define-key gud-minor-mode-map [left-margin mouse-1] 'gdb-mouse-toggle-breakpoint)
(define-key gud-minor-mode-map [left-fringe mouse-1] 'gdb-mouse-toggle-breakpoint)
(setq comint-input-sender 'gdb-send)
;;
;; (re-)initialise
@ -1055,6 +1058,20 @@ static char *magick[] = {
(end-of-line)))))
(if (gdb-get-buffer 'gdb-assembler-buffer) (gdb-assembler-custom)))
(defun gdb-mouse-toggle-breakpoint (event)
"Toggle breakpoint with mouse click in left margin."
(interactive "e")
(mouse-minibuffer-check event)
(let ((posn (event-end event)))
(message "pt=%S posn=%S" (posn-point posn) posn)
(if (numberp (posn-point posn))
(with-selected-window (posn-window posn)
(save-excursion
(goto-char (posn-point posn))
(if (posn-object posn)
(gud-remove nil)
(gud-break nil)))))))
(defun gdb-breakpoints-buffer-name ()
(with-current-buffer gud-comint-buffer
(concat "*breakpoints of " (gdb-get-target-string) "*")))