Lines Matching refs:items
33 (make-local-variable 'x-menu-items-per-line)
35 (make-local-variable 'x-menu-items-alist)
44 (defvar x-menu-items-per-line 0)
46 (defvar x-menu-items-alist nil)
82 (if (setq elt (assoc item x-menu-items-alist))
84 (setq x-menu-items-alist (append x-menu-items-alist
95 (if (setq elt (assoc item x-menu-items-alist))
109 (let (items-head
110 (items-tail x-menu-items-alist))
111 (while items-tail
112 (if (car (car items-tail))
113 (progn (setq items-head (cons (car items-tail) items-head))
116 (length (car (car items-tail)))))))
117 (setq items-tail (cdr items-tail)))
118 (setq x-menu-items-alist (reverse items-head)))
120 (setq x-menu-items-per-line
123 (let ((items-head x-menu-items-alist))
124 (while items-head
125 (let ((items 0))
126 (while (and items-head
127 (<= (setq items (1+ items)) x-menu-items-per-line))
130 (car (car items-head))))
131 (setq items-head (cdr items-head))))
141 (let* ((x (min (1- x-menu-items-per-line)
145 (item (+ x (* y x-menu-items-per-line)))
146 (litem (cdr (nth item x-menu-items-alist))))