Function: hkey-execute

hkey-execute is a byte-compiled function defined in hmouse-drv.el.

Signature

(hkey-execute ASSISTING)

Documentation

Evaluate Action Key form for first non-nil predicate from hkey-alist.

Non-nil ASSISTING means evaluate second form (Assist Key form), otherwise evaluate first form. Return non-nil iff a non-nil predicate is found.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hmouse-drv.el
(defun hkey-execute (assisting)
  "Evaluate Action Key form for first non-nil predicate from `hkey-alist'.
Non-nil ASSISTING means evaluate second form (Assist Key form),
otherwise evaluate first form.  Return non-nil iff a non-nil
predicate is found."
  ;; Keep in mind that hkey-alist may be set to hmouse-alist here, with additional predicates.
  (let ((assist-flag assisting)
	(pred-point (point-marker)))
    (unwind-protect
	(let* ((hkey-actions (hkey-actions))
               (hkey-action (if assisting (cdr hkey-actions) (car hkey-actions))))
	  (if hkey-action
	      ;; Found the ibtype for the current context
	      (if hkey-debug
		  (hypb:eval-debug hkey-action)
		(eval hkey-action)))
	  hkey-action)
      (set-marker pred-point nil))))