799 |
;; for events without parameters. |
;; for events without parameters. |
800 |
(interactive (list last-input-event)) |
(interactive (list last-input-event)) |
801 |
(let ((pos (point))) |
(let ((pos (point))) |
802 |
(if event (mouse-set-point event)) |
(if event (posn-set-point (event-end event))) |
803 |
(if (not (eq (get-char-property (point) 'field) 'input)) |
(if (not (eq (get-char-property (point) 'field) 'input)) |
804 |
;; No input at POS, fall back to the global definition. |
;; No input at POS, fall back to the global definition. |
805 |
(let* ((keys (this-command-keys)) |
(let* ((keys (this-command-keys)) |