mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

(gdb-edit-register-value): Use posn-set-point' instead of mouse-set-point'

Browse source 
because the latter is not fbound when configured without X.
This commit is contained in:
John Paul Wallington 2005-11-27 02:59:52 +00:00
parent 1a500a7380
commit 940ed7e48b
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,9 +1,9 @@
2005-11-27 John Paul Wallington <jpw@pobox.com> 2005-11-27 John Paul Wallington <jpw@pobox.com>
* progmodes/gdb-ui.el (gdb-goto-breakpoint, gdb-frames-select) * progmodes/gdb-ui.el (gdb-goto-breakpoint, gdb-frames-select)
(gdb-threads-select): Use `posn-set-point' instead of (gdb-threads-select, gdb-edit-register-value):
`mouse-set-point' because the latter is not fbound when configured Use `posn-set-point' instead of `mouse-set-point' because the
without X. latter is not fbound when configured without X.
2005-11-27 Kim F. Storm <storm@cua.dk> 2005-11-27 Kim F. Storm <storm@cua.dk>

2
lisp/progmodes/gdb-ui.el
View file

@ -1877,7 +1877,7 @@ static char *magick[] = {
(defun gdb-edit-register-value (&optional event) (defun gdb-edit-register-value (&optional event)
(interactive (list last-input-event)) (interactive (list last-input-event))
(save-excursion (save-excursion
(if event (mouse-set-point event)) (if event (posn-set-point (event-end event)))
(beginning-of-line) (beginning-of-line)
(let* ((register (current-word)) (let* ((register (current-word))
(value (read-string (format "New value (%s): " register)))) (value (read-string (format "New value (%s): " register))))