aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJohn Paul Wallington2005-11-27 02:59:52 +0000
committerJohn Paul Wallington2005-11-27 02:59:52 +0000
commit940ed7e48bafcac7d21fbed9152f0b640b5bc1a9 (patch)
treebddd361e7b0dfaa02a00b3768a10276ec580bb8e
parent1a500a73809ce38b7093392cb8b4100ddb18706a (diff)
downloademacs-940ed7e48bafcac7d21fbed9152f0b640b5bc1a9.tar.gz
emacs-940ed7e48bafcac7d21fbed9152f0b640b5bc1a9.zip
(gdb-edit-register-value): Use `posn-set-point' instead of `mouse-set-point'
because the latter is not fbound when configured without X.
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/progmodes/gdb-ui.el2
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c68d878623..f2ff14b82d2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,9 @@
12005-11-27 John Paul Wallington <jpw@pobox.com> 12005-11-27 John Paul Wallington <jpw@pobox.com>
2 2
3 * progmodes/gdb-ui.el (gdb-goto-breakpoint, gdb-frames-select) 3 * progmodes/gdb-ui.el (gdb-goto-breakpoint, gdb-frames-select)
4 (gdb-threads-select): Use `posn-set-point' instead of 4 (gdb-threads-select, gdb-edit-register-value):
5 `mouse-set-point' because the latter is not fbound when configured 5 Use `posn-set-point' instead of `mouse-set-point' because the
6 without X. 6 latter is not fbound when configured without X.
7 7
82005-11-27 Kim F. Storm <storm@cua.dk> 82005-11-27 Kim F. Storm <storm@cua.dk>
9 9
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[] = {
1877(defun gdb-edit-register-value (&optional event) 1877(defun gdb-edit-register-value (&optional event)
1878 (interactive (list last-input-event)) 1878 (interactive (list last-input-event))
1879 (save-excursion 1879 (save-excursion
1880 (if event (mouse-set-point event)) 1880 (if event (posn-set-point (event-end event)))
1881 (beginning-of-line) 1881 (beginning-of-line)
1882 (let* ((register (current-word)) 1882 (let* ((register (current-word))
1883 (value (read-string (format "New value (%s): " register)))) 1883 (value (read-string (format "New value (%s): " register))))