Stop semantic from taking over elisp imenu

1 files changed, 7 insertions, 0 deletions

diff --git a/lisp/init-elisp.el b/lisp/init-elisp.el
index d8cfcdb..0807235 100644
--- a/lisp/init-elisp.el
+++ b/lisp/init-elisp.el
@@ -6,6 +6,13 @@
 ;; This likely breaks lispy's outline functions, but I don't use them.
 (add-hook 'lispy-mode-hook 'km/elisp-set-outline-vars)
 
+(after 'lispy
+  ;; This is ugly, but I haven't found another way to stop
+  ;; `imenu-create-index-function' from being set to
+  ;; `semantic-create-imenu-index'.  Trying to set it in
+  ;; `emacs-lisp-mode-hook' or `lispy-mode-hook' doesn't work.
+  (defalias 'semantic-create-imenu-index 'imenu-default-create-index-function))
+
 (defun km/elisp-outline-level ()
   (and (looking-at (concat "^" outline-regexp))
        (- (match-end 0) (match-beginning 0) 3)))