diff options
| author | John Paul Wallington | 2005-11-27 02:59:52 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2005-11-27 02:59:52 +0000 |
| commit | 940ed7e48bafcac7d21fbed9152f0b640b5bc1a9 (patch) | |
| tree | bddd361e7b0dfaa02a00b3768a10276ec580bb8e | |
| parent | 1a500a73809ce38b7093392cb8b4100ddb18706a (diff) | |
| download | emacs-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/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2005-11-27 John Paul Wallington <jpw@pobox.com> | 1 | 2005-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 | ||
| 8 | 2005-11-27 Kim F. Storm <storm@cua.dk> | 8 | 2005-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)))) |