(gdb-mouse-set-clear-breakpoint):
authorNick Roberts <nickrob@snap.net.nz>
Thu, 3 Apr 2008 21:34:56 +0000 (21:34 +0000)
committerNick Roberts <nickrob@snap.net.nz>
Thu, 3 Apr 2008 21:34:56 +0000 (21:34 +0000)
Fix in disassembly buffer (regression in 22.2).

lisp/progmodes/gdb-ui.el

index 7cbea06..08c5df7 100644 (file)
@@ -1979,11 +1979,12 @@ static char *magick[] = {
 (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