From 940ed7e48bafcac7d21fbed9152f0b640b5bc1a9 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sun, 27 Nov 2005 02:59:52 +0000 Subject: [PATCH] (gdb-edit-register-value): Use `posn-set-point' instead of `mouse-set-point' because the latter is not fbound when configured without X. --- lisp/ChangeLog | 6 +++--- lisp/progmodes/gdb-ui.el | 2 +- 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 @@ 2005-11-27 John Paul Wallington * 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 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)))) -- 2.39.5