comparison lisp/comint.el @ 66971:537e6758bfe5

(comint-insert-input): Use `posn-set-point' instead of `mouse-set-point' because the latter is not fbound when configured without X.

66970:d94285b2b933

  "In a Comint buffer, set the current input to the previous input at point."
  ;; This doesn't use "e" because it is supposed to work
  ;; for events without parameters.
  (interactive (list last-input-event))
  (let ((pos (point)))
    (if event (mouse-set-point event))
    (if (not (eq (get-char-property (point) 'field) 'input))
	;; No input at POS, fall back to the global definition.
	(let* ((keys (this-command-keys))
	       (last-key (and (vectorp keys) (aref keys (1- (length keys)))))
	       (fun (and last-key (lookup-key global-map (vector last-key)))))

66971:537e6758bfe5

  "In a Comint buffer, set the current input to the previous input at point."
  ;; This doesn't use "e" because it is supposed to work
  ;; for events without parameters.
  (interactive (list last-input-event))
  (let ((pos (point)))
    (if event (posn-set-point (event-end event)))
    (if (not (eq (get-char-property (point) 'field) 'input))
	;; No input at POS, fall back to the global definition.
	(let* ((keys (this-command-keys))
	       (last-key (and (vectorp keys) (aref keys (1- (length keys)))))
	       (fun (and last-key (lookup-key global-map (vector last-key)))))