Function: hmouse-keyboard-choose-windows

hmouse-keyboard-choose-windows is a byte-compiled function defined in hmouse-drv.el.

Signature

(hmouse-keyboard-choose-windows FUNC)

Documentation

Press Return in start and end windows which are then applied to FUNC.

With the start window temporarily selected, run FUNC with the end window as an argument.

Appropriate FUNCs include: hkey-drag, hkey-drag-to, hkey-link, hkey-replace, hkey-swap and hkey-throw.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hmouse-drv.el
(defun hmouse-keyboard-choose-windows (func)
  "Press Return in start and end windows which are then applied to FUNC.
With the start window temporarily selected, run FUNC with the end
window as an argument.

Appropriate FUNCs include: hkey-drag, hkey-drag-to, hkey-link,
hkey-replace, hkey-swap and hkey-throw."
  (let* (start-event
	 end-event
	 start-window
	 end-window)
    (message "Move to the %s start window and press RETURN..." func)
    (setq start-window
	  (cl-loop do (setq start-event (read-event))
		   until (eq (event-basic-type start-event) 'return)
		   finally return (posn-window (event-start start-event))))
    (message "Now move to the %s end window and press RETURN..." func)
    (setq end-window
	  (cl-loop do (setq end-event (read-event))
		   until (eq (event-basic-type end-event) 'return)
		   finally return (posn-window (event-start end-event))))
    (message "Done")
    (with-selected-window start-window
      (funcall func end-window))))