From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 27 Nov 2005 01:17:47 +0000 (+0000)
Subject: (gdb-goto-breakpoint, gdb-frames-select, gdb-threads-select):
X-Git-Tag: emacs-pretest-22.0.90~5657
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53f18ed2c85d4e619b611e56a4130eccc4c01d7a;p=emacs.git

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

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))