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

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

@ -1972,6 +1972,7 @@ 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 (buffer-file-name)
(if (numberp (posn-point posn)) (if (numberp (posn-point posn))
(with-selected-window (posn-window posn) (with-selected-window (posn-window posn)
(save-excursion (save-excursion
@ -1980,7 +1981,8 @@ static char *magick[] = {
(eq (car (fringe-bitmaps-at-pos (posn-point posn))) (eq (car (fringe-bitmaps-at-pos (posn-point posn)))
'breakpoint)) 'breakpoint))
(gud-remove nil) (gud-remove nil)
(gud-break 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."