Function: hkey-mouse-help

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

Signature

(hkey-mouse-help ASSISTING ARGS)

Documentation

If a Smart Key help flag is set and the other Smart Key is not down, show help.

Takes two args: ASSISTING should be non-nil iff command applies to the Assist Key. ARGS is a list of arguments passed to hmouse-release. Return t if help is displayed, nil otherwise.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hmouse-drv.el
(defun hkey-mouse-help (assisting args)
  "If a Smart Key help flag is set and the other Smart Key is not down, show help.
Takes two args: ASSISTING should be non-nil iff command applies
to the Assist Key.  ARGS is a list of arguments passed to
`hmouse-release'.  Return t if help is displayed, nil otherwise."
  (let ((help-shown)
	(other-key-released (not (if assisting
				     action-key-depressed-flag
				   assist-key-depressed-flag))))
    (unwind-protect
	(setq help-shown
	      (cond ((and  action-key-help-flag other-key-released)
		     (setq action-key-help-flag nil)
		     (hmouse-release assisting)
		     ;; Ensure next call to hkey-help clears both Action
		     ;; and Assist Key variables.
		     (setq action-key-depressed-flag nil
			   action-key-help-flag nil
			   assist-key-depressed-flag nil
			   assist-key-help-flag nil)
		     (hmouse-function #'hkey-help assisting args)
		     t)
		    ((and  assist-key-help-flag other-key-released)
		     (setq assist-key-help-flag nil)
		     (hmouse-release assisting)
		     ;; Ensure next call to hkey-help clears both Action
		     ;; and Assist Key variables.
		     (setq action-key-depressed-flag nil
			   action-key-help-flag nil
			   assist-key-depressed-flag nil
			   assist-key-help-flag nil)
		     (hmouse-function #'hkey-assist-help assisting args)
		     t)))
      (when help-shown
	;; Then both Smart Keys have been released.
	(setq action-key-cancelled nil
	      assist-key-cancelled nil)
	t))))