Function: hkey-actions

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

Signature

(hkey-actions)

Documentation

Return the cons of the Action and Assist Key actions at point.

Useful in testing Smart Key contexts.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hmouse-drv.el
(defun hkey-actions ()
  "Return the cons of the Action and Assist Key actions at point.
Useful in testing Smart Key contexts."
  (let ((hkey-forms hkey-alist)
        (pred-point (point-marker))
	pred-value hkey-actions hkey-form pred)
    (progn
      (while (and (null pred-value) (setq hkey-form (car hkey-forms)))
	(setq pred (car hkey-form)
	      pred-value (hypb:eval-debug pred))
	(unless (equal pred-point (point-marker))
	  (hypb:error "(Hyperbole): predicate %s improperly moved point from %s to %s"
		      pred pred-point (point-marker)))
	(if pred-value
            (progn
              (setq hkey-actions (cdr hkey-form))
              ;; Conditionally debug after Smart Key release and evaluation
	      ;; of matching predicate but before hkey-action is executed.
	      (when hkey-debug
		(hkey-debug pred pred-value (if assist-flag (cdr hkey-actions) (car hkey-actions)))))
	  (setq hkey-forms (cdr hkey-forms))))
      hkey-actions)))