changeset 67145:c0dc8973b07a

(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.

--- a/lisp/progmodes/gdb-ui.el	Sun Nov 27 01:16:06 2005 +0000
+++ b/lisp/progmodes/gdb-ui.el	Sun Nov 27 01:17:47 2005 +0000
@@ -1620,7 +1620,7 @@
 (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 @@
 (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 @@
 (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))