diff options
| author | Nick Roberts | 2008-04-03 21:34:56 +0000 |
|---|---|---|
| committer | Nick Roberts | 2008-04-03 21:34:56 +0000 |
| commit | 79669f88b4ebe0672e836560d0e5006ec1f6cd49 (patch) | |
| tree | bb83f3b936dc31401667c347dcc2526d2291e012 | |
| parent | f185e4d21f5acbfdb62c6d0ab571de2c7dc5c243 (diff) | |
| download | emacs-79669f88b4ebe0672e836560d0e5006ec1f6cd49.tar.gz emacs-79669f88b4ebe0672e836560d0e5006ec1f6cd49.zip | |
(gdb-mouse-set-clear-breakpoint):
Fix in disassembly buffer (regression in 22.2).
| -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[] = { | |||
| 1979 | (declare-function gud-break "gdb-ui" t t) ; gud-def | 1979 | (declare-function gud-break "gdb-ui" t t) ; gud-def |
| 1980 | 1980 | ||
| 1981 | (defun gdb-mouse-set-clear-breakpoint (event) | 1981 | (defun gdb-mouse-set-clear-breakpoint (event) |
| 1982 | "Set/clear breakpoint in left fringe/margin with mouse click." | 1982 | "Set/clear breakpoint in left fringe/margin at mouse click. |
| 1983 | If not in a source or disassembly buffer just set point." | ||
| 1983 | (interactive "e") | 1984 | (interactive "e") |
| 1984 | (mouse-minibuffer-check event) | 1985 | (mouse-minibuffer-check event) |
| 1985 | (let ((posn (event-end event))) | 1986 | (let ((posn (event-end event))) |
| 1986 | (if (buffer-file-name) | 1987 | (if (or (buffer-file-name) (eq major-mode 'gdb-assembler-mode)) |
| 1987 | (if (numberp (posn-point posn)) | 1988 | (if (numberp (posn-point posn)) |
| 1988 | (with-selected-window (posn-window posn) | 1989 | (with-selected-window (posn-window posn) |
| 1989 | (save-excursion | 1990 | (save-excursion |