sabof

(defun es-js-imenu-create-index ()
  "Return an imenu index for the current buffer."
  (save-excursion
    (save-restriction
      (let (unique-names result name pos)
        (widen)
        (goto-char (point-min))
        (while (re-search-forward
                (concat "\\(\\_<.+?\\_>\\) = function"
                        "\\|"

sabof

(defun* buffer-defuns (&optional (buffer (current-buffer)))
  (with-current-buffer buffer
    (save-excursion
      (goto-char (point-min))
      (let (names)
        (while (re-search-forward "^(defun[*]? \\(\\_<.+?\\_>\\)" nil t)
          (push (intern (match-string-no-properties 1)) names))
        names))))

(defun* buffer-macros (&optional (buffer (current-buffer)))