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") (interactive "e")
(mouse-minibuffer-check event) (mouse-minibuffer-check event)
(let ((posn (event-end event))) (let ((posn (event-end event)))
(if (numberp (posn-point posn)) (if (buffer-file-name)
(with-selected-window (posn-window posn) (if (numberp (posn-point posn))
(save-excursion (with-selected-window (posn-window posn)
(goto-char (posn-point posn)) (save-excursion
(if (or (posn-object posn) (goto-char (posn-point posn))
(eq (car (fringe-bitmaps-at-pos (posn-point posn))) (if (or (posn-object posn)
'breakpoint)) (eq (car (fringe-bitmaps-at-pos (posn-point posn)))
(gud-remove nil) 'breakpoint))
(gud-break nil))))))) (gud-remove nil)
(gud-break nil)))))
(posn-set-point posn))))
(defun gdb-mouse-toggle-breakpoint-margin (event) (defun gdb-mouse-toggle-breakpoint-margin (event)
"Enable/disable breakpoint in left margin with mouse click." "Enable/disable breakpoint in left margin with mouse click."