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

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

1 files changed, 11 insertions, 9 deletions

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 56241846ebd..94f1f539200 100644
--- 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."