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

to mouse-set-point in buffers that aren't associated with files.

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 56241846ebdefda97a41f1b169061cc5a173ef8a..94f1f539200b7551bdfbc7549f457ff45620e04b 100644 (file)
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -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."