1620 |
(defun gdb-goto-breakpoint (&optional event) |
(defun gdb-goto-breakpoint (&optional event) |
1621 |
"Display the breakpoint location specified at current line." |
"Display the breakpoint location specified at current line." |
1622 |
(interactive (list last-input-event)) |
(interactive (list last-input-event)) |
1623 |
(if event (mouse-set-point event)) |
(if event (posn-set-point (event-end event))) |
1624 |
;; Hack to stop gdb-goto-breakpoint displaying in GUD buffer. |
;; Hack to stop gdb-goto-breakpoint displaying in GUD buffer. |
1625 |
(let ((window (get-buffer-window gud-comint-buffer))) |
(let ((window (get-buffer-window gud-comint-buffer))) |
1626 |
(if window (save-selected-window (select-window window)))) |
(if window (save-selected-window (select-window window)))) |
1745 |
(defun gdb-frames-select (&optional event) |
(defun gdb-frames-select (&optional event) |
1746 |
"Select the frame and display the relevant source." |
"Select the frame and display the relevant source." |
1747 |
(interactive (list last-input-event)) |
(interactive (list last-input-event)) |
1748 |
(if event (mouse-set-point event)) |
(if event (posn-set-point (event-end event))) |
1749 |
(gdb-enqueue-input |
(gdb-enqueue-input |
1750 |
(list (concat gdb-server-prefix "frame " |
(list (concat gdb-server-prefix "frame " |
1751 |
(gdb-get-frame-number) "\n") 'ignore)) |
(gdb-get-frame-number) "\n") 'ignore)) |
1830 |
(defun gdb-threads-select (&optional event) |
(defun gdb-threads-select (&optional event) |
1831 |
"Select the thread and display the relevant source." |
"Select the thread and display the relevant source." |
1832 |
(interactive (list last-input-event)) |
(interactive (list last-input-event)) |
1833 |
(if event (mouse-set-point event)) |
(if event (posn-set-point (event-end event))) |
1834 |
(gdb-enqueue-input |
(gdb-enqueue-input |
1835 |
(list (concat gdb-server-prefix "thread " |
(list (concat gdb-server-prefix "thread " |
1836 |
(gdb-get-thread-number) "\n") 'ignore)) |
(gdb-get-thread-number) "\n") 'ignore)) |