mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(gdb-goto-breakpoint, gdb-frames-select, gdb-threads-select):

Browse source 
Use `posn-set-point' instead of `mouse-set-point' because the
latter is not fbound when configured without X.
This commit is contained in:
Nick Roberts 2005-11-27 01:17:47 +00:00
parent d05877b438
commit 53f18ed2c8
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/gdb-ui.el
View file

@ -1620,7 +1620,7 @@ static char *magick[] = {
(defun gdb-goto-breakpoint (&optional event)
"Display the breakpoint location specified at current line."
(interactive (list last-input-event))
(if event (mouse-set-point event))
(if event (posn-set-point (event-end event)))
;; Hack to stop gdb-goto-breakpoint displaying in GUD buffer.
(let ((window (get-buffer-window gud-comint-buffer)))
(if window (save-selected-window (select-window window))))
@ -1745,7 +1745,7 @@ static char *magick[] = {
(defun gdb-frames-select (&optional event)
"Select the frame and display the relevant source."
(interactive (list last-input-event))
(if event (mouse-set-point event))
(if event (posn-set-point (event-end event)))
(gdb-enqueue-input
(list (concat gdb-server-prefix "frame "
(gdb-get-frame-number) "\n") 'ignore))
@ -1830,7 +1830,7 @@ static char *magick[] = {
(defun gdb-threads-select (&optional event)
"Select the thread and display the relevant source."
(interactive (list last-input-event))
(if event (mouse-set-point event))
(if event (posn-set-point (event-end event)))
(gdb-enqueue-input
(list (concat gdb-server-prefix "thread "
(gdb-get-thread-number) "\n") 'ignore))