Lines Matching refs:item
91 (defcustom imenu-max-item-length 60
237 "Function for extracting the index item name, given a position.
240 finds a position for an index item, with point at that position.
241 It should return the name for that index item.")
247 "Function to compare string with index item.
261 "The default function called when selecting an Imenu item.
262 The function in this variable is called when selecting a normal index-item.")
267 (defun imenu--subalist-p (item)
268 (and (consp (cdr item)) (listp (cadr item))
269 (not (eq (car (cadr item)) 'lambda))))
423 ;; The item to use in the index for rescanning the buffer.
424 (defconst imenu--rescan-item '("*Rescan*" . -99))
432 POSITION is the buffer position of the item; to go to the item
466 ;;; An item looks like (NAME . POSITION).
511 (if (memq imenu--rescan-item menulist)
512 (setq keep-at-top (cons imenu--rescan-item nil)
513 menulist (delq imenu--rescan-item menulist)))
515 (dolist (item tail)
516 (when (imenu--subalist-p item)
517 (push item keep-at-top)
518 (setq menulist (delq item menulist))))
542 ;;; Truncate all strings in MENULIST to imenu-max-item-length
545 (lambda (item)
547 ((consp (cdr item))
548 (imenu--truncate-items (cdr item)))
550 ((and (numberp imenu-max-item-length)
551 (> (length (car item)) imenu-max-item-length))
552 (setcar item (substring (car item) 0 imenu-max-item-length))))))
580 (cons imenu--rescan-item imenu--index-alist))
598 (lambda (item)
600 ((markerp (cdr item))
601 (set-marker (cdr item) nil))
603 ((memq (cdr item) imenu--cleanup-seen))
604 ((imenu--subalist-p item)
605 (imenu--cleanup (cdr item)))))
612 (lambda (item)
613 (list* (car item) (car item)
615 ((imenu--subalist-p item)
616 (imenu--create-keymap (car item) (cdr item) cmd))
619 ,(if cmd `(,cmd ',item) (list 'quote item)))))))
799 ;; item for it, avoiding empty, duff menus.
804 (let ((item
814 ;; Insert the item unless it is already present.
815 (unless (member item (cdr menu))
817 (cons item (cdr menu)))))
825 (dolist (item index-alist)
826 (when (listp item)
827 (setcdr item (sort (cdr item) 'imenu--sort-by-position))))
838 ;; See also info-lookup-find-item
840 "Fuzzily find an item based on GUESS inside the alist COMPLETIONS."
861 (lambda (item)
863 (car item))
864 (cdr item)))
870 (setq prompt (format "Index item (default %s): " name)))
871 (t (setq prompt "Index item: ")))
934 (and (equal result imenu--rescan-item)
942 NAME is a string used to name the menu bar item.
944 (interactive "sImenu menu item name: ")
954 `(menu-item ,name ,(make-sparse-keymap "Imenu")))
996 (defun imenu--menubar-select (item)
998 (if (equal item imenu--rescan-item)
1007 (imenu item)
1015 function placed in a special index-item."
1023 (defun imenu (index-item)
1029 (if (stringp index-item)
1030 (setq index-item (assoc index-item (imenu--make-index-alist))))
1031 (when index-item
1033 (let* ((is-special-item (listp (cdr index-item)))
1035 (if is-special-item
1036 (nth 2 index-item) imenu-default-goto-function))
1037 (position (if is-special-item
1038 (cadr index-item) (cdr index-item)))
1039 (rest (if is-special-item (cddr index-item))))
1040 (apply function (car index-item) position rest))