1877 |
(defun gdb-edit-register-value (&optional event) |
(defun gdb-edit-register-value (&optional event) |
1878 |
(interactive (list last-input-event)) |
(interactive (list last-input-event)) |
1879 |
(save-excursion |
(save-excursion |
1880 |
(if event (mouse-set-point event)) |
(if event (posn-set-point (event-end event))) |
1881 |
(beginning-of-line) |
(beginning-of-line) |
1882 |
(let* ((register (current-word)) |
(let* ((register (current-word)) |
1883 |
(value (read-string (format "New value (%s): " register)))) |
(value (read-string (format "New value (%s): " register)))) |