From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 27 Nov 2005 02:59:52 +0000 (+0000)
Subject: (gdb-edit-register-value): Use `posn-set-point' instead of `mouse-set-point'
X-Git-Tag: emacs-pretest-22.0.90~5655
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=940ed7e48bafcac7d21fbed9152f0b640b5bc1a9;p=emacs.git

(gdb-edit-register-value): Use `posn-set-point' instead of `mouse-set-point'
because the latter is not fbound when configured without X.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c68d878623..f2ff14b82d2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,9 @@
 2005-11-27  John Paul Wallington  <jpw@pobox.com>
 
 	* progmodes/gdb-ui.el (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.
+	(gdb-threads-select, gdb-edit-register-value):
+	Use `posn-set-point' instead of `mouse-set-point' because the
+	latter is not fbound when configured without X.
 
 2005-11-27  Kim F. Storm  <storm@cua.dk>
 
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 349c1212695..11a1edbbeca 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -1877,7 +1877,7 @@ static char *magick[] = {
 (defun gdb-edit-register-value (&optional event)
   (interactive (list last-input-event))
   (save-excursion
-    (if event (mouse-set-point event))
+    (if event (posn-set-point (event-end event)))
     (beginning-of-line)
     (let* ((register (current-word))
 	  (value (read-string (format "New value (%s): " register))))