Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 80436:0a96ecdd8f7a
(gdb-mouse-set-clear-breakpoint):
Fix in disassembly buffer (regression in 22.2).
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 03 Apr 2008 08:38:51 +0000 |
| parents | 84f75770f0f3 |
| children | f3ac5401fa8e 4e76a03232e5 |
comparison
equal
deleted
inserted
replaced
| 80435:52c3828e9a93 | 80436:0a96ecdd8f7a |
|---|---|
| 1976 (defun gdb-mouse-set-clear-breakpoint (event) | 1976 (defun gdb-mouse-set-clear-breakpoint (event) |
| 1977 "Set/clear breakpoint in left fringe/margin with mouse click." | 1977 "Set/clear breakpoint in left fringe/margin with mouse click." |
| 1978 (interactive "e") | 1978 (interactive "e") |
| 1979 (mouse-minibuffer-check event) | 1979 (mouse-minibuffer-check event) |
| 1980 (let ((posn (event-end event))) | 1980 (let ((posn (event-end event))) |
| 1981 (if (buffer-file-name) | 1981 (if (or (buffer-file-name) (eq major-mode 'gdb-assembler-mode)) |
| 1982 (if (numberp (posn-point posn)) | 1982 (if (numberp (posn-point posn)) |
| 1983 (with-selected-window (posn-window posn) | 1983 (with-selected-window (posn-window posn) |
| 1984 (save-excursion | 1984 (save-excursion |
| 1985 (goto-char (posn-point posn)) | 1985 (goto-char (posn-point posn)) |
| 1986 (if (or (posn-object posn) | 1986 (if (or (posn-object posn) |