# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1203537430 0
# Node ID b48b70b93856a7d89b905f2fc6e69f62f232af20
# Parent  c1cca80b3720ee1a4d726422be1b50de729f382e
(gdb-mouse-set-clear-breakpoint): Fall back
to mouse-set-point in buffers that aren't associated with files.

diff -r c1cca80b3720 -r b48b70b93856 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Wed Feb 20 19:54:47 2008 +0000
+++ b/lisp/progmodes/gdb-ui.el	Wed Feb 20 19:57:10 2008 +0000
@@ -1972,15 +1972,17 @@
   (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."