Function: hmouse-toggle-bindings

hmouse-toggle-bindings is an interactive and byte-compiled function defined in hmouse-key.el.

Signature

(hmouse-toggle-bindings)

Documentation

Toggle between Smart Mouse Key settings and their prior bindings.

Under InfoDock, the first invocation of this command will make the middle mouse key the Paste Key instead of the Action Key.

Key Bindings

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hmouse-key.el
(defun hmouse-toggle-bindings ()
  "Toggle between Smart Mouse Key settings and their prior bindings.
Under InfoDock, the first invocation of this command will make the middle
mouse key the Paste Key instead of the Action Key."
  (interactive)
  (let ((key-binding-list (if hmouse-bindings-flag
			      hmouse-previous-bindings
			    hmouse-bindings))
	(other-bindings-var (if hmouse-bindings-flag
				'hmouse-bindings
			      'hmouse-previous-bindings)))
    (if key-binding-list
	(progn
	  (set other-bindings-var (hmouse-get-bindings nil))
	  (hmouse-set-bindings key-binding-list)
	  (setq hmouse-bindings-flag (not hmouse-bindings-flag))
	  (if (called-interactively-p 'interactive)
	      (message "%s mouse bindings are now in use."
		       (if hmouse-bindings-flag "Hyperbole" "Non-Hyperbole"))))
      (error "(hmouse-toggle-bindings): `%s' is empty"
	     (if hmouse-bindings-flag 'hmouse-previous-bindings 'hmouse-bindings)))))