Function: internal-push-keymap

internal-push-keymap is a byte-compiled function defined in subr.el.gz.

Signature

(internal-push-keymap KEYMAP SYMBOL)

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
(defun internal-push-keymap (keymap symbol)
  (let ((map (symbol-value symbol)))
    (unless (memq keymap map)
      (unless (memq 'add-keymap-witness (symbol-value symbol))
        (setq map (make-composed-keymap nil (symbol-value symbol)))
        (push 'add-keymap-witness (cdr map))
        (set symbol map))
      (push keymap (cdr map)))))