# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1207258496 0
# Node ID a1760b9403f6327beb588e76788aa800b1138c30
# Parent  9ec44dd2700cbc42ac238d028ccf8c787ca0452b
(gdb-mouse-set-clear-breakpoint):
Fix in disassembly buffer (regression in 22.2).

diff -r 9ec44dd2700c -r a1760b9403f6 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Thu Apr 03 21:33:23 2008 +0000
+++ b/lisp/progmodes/gdb-ui.el	Thu Apr 03 21:34:56 2008 +0000
@@ -1979,11 +1979,12 @@
 (declare-function gud-break  "gdb-ui" t t) ; gud-def
 
 (defun gdb-mouse-set-clear-breakpoint (event)
-  "Set/clear breakpoint in left fringe/margin with mouse click."
+  "Set/clear breakpoint in left fringe/margin at mouse click.
+If not in a source or disassembly buffer just set point."
   (interactive "e")
   (mouse-minibuffer-check event)
   (let ((posn (event-end event)))
-    (if (buffer-file-name)
+    (if (or (buffer-file-name) (eq major-mode 'gdb-assembler-mode))
 	(if (numberp (posn-point posn))
 	    (with-selected-window (posn-window posn)
 	      (save-excursion