Function: imenu--parentify-index-alist

imenu--parentify-index-alist is a byte-compiled function defined in imenu.el.gz.

Signature

(imenu--parentify-index-alist INDEX-ALIST)

Source Code

;; Defined in /usr/src/emacs/lisp/imenu.el.gz
(defun imenu--parentify-index-alist (index-alist)
  ;; Add separate ".." for navigating to non-leaf nodes.
  ;; Used only when `index-alist' has Eglot text properties.
  (mapcan
   (lambda (item)
     (let* ((name (car item))
            (pos (cdr item)))
       (cond
        ((not (imenu--subalist-p item))
         (list item))
        (t
         (let ((subalist (imenu--parentify-index-alist pos))
               (region (get-text-property 0 'imenu-region name)))
           (when region
             (setq subalist (append (list (cons ".." (car region))) subalist)))
           (list (cons name subalist)))))))
   index-alist))