From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 3 Apr 2008 21:34:56 +0000 (+0000)
Subject: (gdb-mouse-set-clear-breakpoint):
X-Git-Tag: emacs-pretest-23.0.90~6613
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79669f88b4ebe0672e836560d0e5006ec1f6cd49;p=emacs.git

(gdb-mouse-set-clear-breakpoint):
Fix in disassembly buffer (regression in 22.2).
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 7cbea06889f..08c5df7b727 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -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