Function: majutsu-transient--add-key-aliases

majutsu-transient--add-key-aliases is a natively compiled function defined in majutsu-transient.el.

Signature

(majutsu-transient--add-key-aliases MAP)

Documentation

Bind key aliases in MAP for the current transient.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-transient.el
(defun majutsu-transient--add-key-aliases (map)
  "Bind key aliases in MAP for the current transient."
  (dolist (obj transient--suffixes)
    (when (and (cl-typep obj 'majutsu-transient-key-alias-suffix)
               (not (oref obj inactive))
               (not (oref obj inapt)))
      (dolist (key (majutsu-transient--suffix-key-aliases obj))
        (let* ((kbd (kbd key))
               (cmd (oref obj command))
               (other (transient--lookup-key map kbd)))
          (cond
           ((not other)
            (define-key map kbd cmd))
           ((eq other cmd))
           (t
            (error "Cannot bind %S to %s; already bound to %s"
                   key cmd other)))))))
  map)