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 CL-FUNC-REC CL-MAP &optional CL-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 (cl-func-rec cl-map &optional cl-base)
  (or cl-base
      (setq cl-base (copy-sequence [0])))
  (map-keymap
   (lambda (cl-key cl-bind)
     (aset cl-base (1- (length cl-base)) cl-key)
     (if (keymapp cl-bind)
         (cl--map-keymap-recursively
          cl-func-rec cl-bind
          (vconcat cl-base (list 0)))
       (funcall cl-func-rec cl-base cl-bind)))
   cl-map))