Function: cperl-list-fold

cperl-list-fold is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-list-fold LIST NAME LIMIT)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
;;(x-popup-menu t
;;   '(keymap "Name1"
;;	    ("Ret1" "aa")
;;	    ("Head1" "ab"
;;	     keymap "Name2"
;;	     ("Tail1" "x") ("Tail2" "y"))))

(defun cperl-list-fold (list name limit)
  (let (list1 list2 elt1 (num 0))
    (if (<= (length list) limit) list
      (setq list1 nil list2 nil)
      (while list
	(setq num (1+ num)
	      elt1 (car list)
	      list (cdr list))
	(if (<= num imenu-max-items)
	    (setq list2 (cons elt1 list2))
	  (setq list1 (cons (cons name
				  (nreverse list2))
			    list1)
		list2 (list elt1)
		num 1)))
      (nreverse (cons (cons name
			    (nreverse list2))
		      list1)))))