Function: cperl-menu-to-keymap

cperl-menu-to-keymap is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-menu-to-keymap MENU)

Documentation

Prepare MENU for display with imenu.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-menu-to-keymap (menu)
  "Prepare MENU for display with `imenu'."
  (let (list)
    (cons 'keymap
	  (mapcar
           (lambda (elt)
             (cond ((listp (cdr elt))
                    (setq list (cperl-list-fold
                                (cdr elt) (car elt) imenu-max-items))
                    (cons nil
                          (cons (car elt)
                                (cperl-menu-to-keymap list))))
                   (t
                    (list (cdr elt) (car elt) t)))) ; t is needed in 19.34
	   (cperl-list-fold menu "Root" imenu-max-items)))))