Function: mh-index-create-imenu-index

mh-index-create-imenu-index is an autoloaded and byte-compiled function defined in mh-search.el.gz.

Signature

(mh-index-create-imenu-index)

Documentation

Create alist of folder names and positions in index folder buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-search.el.gz
(defvar which-func-mode)                ; < Emacs 22, XEmacs

;;;###mh-autoload
(defun mh-index-create-imenu-index ()
  "Create alist of folder names and positions in index folder buffers."
  (save-excursion
    (if (boundp 'which-func-mode)
        (setq which-func-mode t))
    (let ((alist ()))
      (goto-char (point-min))
      (while (re-search-forward "^\\+" nil t)
        (save-excursion
          (beginning-of-line)
          (push (cons (buffer-substring-no-properties
                       (point) (mh-line-end-position))
                      (point-marker))
                alist)))
      (setq imenu--index-alist (nreverse alist)))))