Here's a source for Imenu for jumping to functions in the current
buffer. It was just a sudden idea, not sure how useful it is, but here
it is if anyone's interested:

(setq anything-source-imenu
      '((name . "Imenu")
        (init-func . (lambda ()
                       (setq anything-imenu-current-buffer
                             (current-buffer))))
        (candidates . (lambda ()
                        (condition-case nil
                            (with-current-buffer anything-imenu-
current-buffer
                              (mapcar (lambda (x)
                                        (cons (car x) x))
                                      ;; leave only top level
completions
                                      ;; for simplicity (could be more
                                      ;; sophisticated)
                                      (remove-if-not (lambda (x)
                                                       (markerp (cdr
x)))
                                                     (imenu--make-
index-alist))))
                          (error nil))))
        (action . imenu)))

_______________________________________________
gnu-emacs-sources mailing list
gnu-emacs-sources@gnu.org
http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources

Reply via email to