Function: cl--map-keymap-recursively

cl--map-keymap-recursively is an autoloaded and byte-compiled function defined in cl-extra.el.gz.

Signature

(cl--map-keymap-recursively FUNC-REC MAP &optional BASE)

Aliases

cl-map-keymap-recursively (obsolete since 24.3)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-extra.el.gz
;;;###autoload
(defun cl--map-keymap-recursively (func-rec map &optional base)
  (or base
      (setq base (copy-sequence [0])))
  (map-keymap
   (lambda (key bind)
     (aset base (1- (length base)) key)
     (if (keymapp bind)
         (cl--map-keymap-recursively
          func-rec bind
          (vconcat base (list 0)))
       (funcall func-rec base bind)))
   map))