Function: hypb:cmd-key-series

hypb:cmd-key-series is a byte-compiled function defined in hypb.el.

Signature

(hypb:cmd-key-series CMD-SYM &optional KEYMAP)

Documentation

Return a brace-delimited, human readable key sequence string bound to CMD-SYM.

Global keymap is used unless optional KEYMAP is given.

Trigger an error if CMD-SYM is not bound.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hypb.el
(defun hypb:cmd-key-series (cmd-sym &optional keymap)
  "Return a brace-delimited, human readable key sequence string bound to CMD-SYM.
Global keymap is used unless optional KEYMAP is given.

Trigger an error if CMD-SYM is not bound."
  (if (and cmd-sym (symbolp cmd-sym) (fboundp cmd-sym))
      (let* ((get-keys (lambda (cmd-sym keymap)
                         (key-description (where-is-internal
                                           cmd-sym keymap 'first))))
	     (keys (funcall get-keys cmd-sym keymap)))
        (concat "{"
                (if (string= keys "")
		    (concat (funcall get-keys 'execute-extended-command nil)
			    " " (symbol-name cmd-sym) " RET")
                  keys)
                "}"))
    (error "(hypb:cmd-key-series): Invalid cmd-sym arg: %s" cmd-sym)))