diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2008-04-03 21:34:56 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2008-04-03 21:34:56 +0000 |
| commit | 79669f88b4ebe0672e836560d0e5006ec1f6cd49 (patch) | |
| tree | bb83f3b936dc31401667c347dcc2526d2291e012 /lisp/progmodes/gdb-ui.el | |
| parent | f185e4d21f5acbfdb62c6d0ab571de2c7dc5c243 (diff) | |
| download | emacs-79669f88b4ebe0672e836560d0e5006ec1f6cd49.tar.gz | |
(gdb-mouse-set-clear-breakpoint):
Fix in disassembly buffer (regression in 22.2).
Diffstat (limited to 'lisp/progmodes/gdb-ui.el')
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 |