Function: internal-pop-keymap

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

Signature

(internal-pop-keymap KEYMAP SYMBOL)

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
(defun internal-pop-keymap (keymap symbol)
  (let ((map (symbol-value symbol)))
    (when (memq keymap map)
      (setf (cdr map) (delq keymap (cdr map))))
    (let ((tail (cddr map)))
      (and (or (null tail) (keymapp tail))
           (eq 'add-keymap-witness (nth 1 map))
           (set symbol tail)))))