procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gdb-mouse-set-clear-breakpoint): Fall back

Browse source 
to mouse-set-point in buffers that aren't associated with files.
This commit is contained in:
Nick Roberts 2008-02-20 19:57:10 +00:00
parent 84a3fb5a97
commit a03392ff83
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1972,15 +1972,17 @@ static char *magick[] = {
(interactive "e")
(mouse-minibuffer-check event)
(let ((posn (event-end event)))
(if (numberp (posn-point posn))
(with-selected-window (posn-window posn)
(save-excursion
(goto-char (posn-point posn))
(if (or (posn-object posn)
(eq (car (fringe-bitmaps-at-pos (posn-point posn)))
'breakpoint))
(gud-remove nil)
(gud-break nil)))))))
(if (buffer-file-name)
(if (numberp (posn-point posn))
(with-selected-window (posn-window posn)
(save-excursion
(goto-char (posn-point posn))
(if (or (posn-object posn)
(eq (car (fringe-bitmaps-at-pos (posn-point posn)))
'breakpoint))
(gud-remove nil)
(gud-break nil)))))
(posn-set-point posn))))
(defun gdb-mouse-toggle-breakpoint-margin (event)
"Enable/disable breakpoint in left margin with mouse click."