Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 76238:65ce5be5f7ca
(gdb-mouse-until, gdb-mouse-jump):
Correct doc strings.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Wed, 28 Feb 2007 21:15:13 +0000 |
| parents | 8bfa58061d79 |
| children | 1056094c2006 edf631bdbb7a ec58e5c426ef |
comparison
equal
deleted
inserted
replaced
| 76237:616e0f6cc423 | 76238:65ce5be5f7ca |
|---|---|
| 616 (marker-position ,arrow-position))) | 616 (marker-position ,arrow-position))) |
| 617 ,@body)))))) | 617 ,@body)))))) |
| 618 | 618 |
| 619 (defun gdb-mouse-until (event) | 619 (defun gdb-mouse-until (event) |
| 620 "Continue running until a source line past the current line. | 620 "Continue running until a source line past the current line. |
| 621 The destination source line can be selected either by clicking with mouse-2 | 621 The destination source line can be selected either by clicking |
| 622 on the fringe/margin or dragging the arrow with mouse-1 (default bindings)." | 622 with mouse-3 on the fringe/margin or dragging the arrow |
| 623 with mouse-1 (default bindings)." | |
| 623 (interactive "e") | 624 (interactive "e") |
| 624 (let ((start (event-start event)) | 625 (let ((start (event-start event)) |
| 625 (end (event-end event))) | 626 (end (event-end event))) |
| 626 (gdb-if-arrow gud-overlay-arrow-position | 627 (gdb-if-arrow gud-overlay-arrow-position |
| 627 (setq line (line-number-at-pos (posn-point end))) | 628 (setq line (line-number-at-pos (posn-point end))) |
| 632 (forward-char 2) | 633 (forward-char 2) |
| 633 (gud-call (concat "until *%a")))))) | 634 (gud-call (concat "until *%a")))))) |
| 634 | 635 |
| 635 (defun gdb-mouse-jump (event) | 636 (defun gdb-mouse-jump (event) |
| 636 "Set execution address/line. | 637 "Set execution address/line. |
| 637 The destination source line can be selected either by clicking with mouse-2 | 638 The destination source line can be selected either by clicking with C-mouse-3 |
| 638 on the fringe/margin or dragging the arrow with mouse-1 (default bindings). | 639 on the fringe/margin or dragging the arrow with C-mouse-1 (default bindings). |
| 639 Unlike gdb-mouse-until the destination address can be before the current | 640 Unlike gdb-mouse-until the destination address can be before the current |
| 640 line, and no execution takes place." | 641 line, and no execution takes place." |
| 641 (interactive "e") | 642 (interactive "e") |
| 642 (let ((start (event-start event)) | 643 (let ((start (event-start event)) |
| 643 (end (event-end event))) | 644 (end (event-end event))) |