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
[email protected]
http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
