From 53f18ed2c85d4e619b611e56a4130eccc4c01d7a Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 27 Nov 2005 01:17:47 +0000 Subject: [PATCH] (gdb-goto-breakpoint, gdb-frames-select, gdb-threads-select): Use `posn-set-point' instead of `mouse-set-point' because the latter is not fbound when configured without X. --- lisp/progmodes/gdb-ui.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index f89e54da798..349c1212695 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -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)) -- 2.39.5