From 73d3774ffb68ebd5596e517c2b5e9594e5a55605 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Wed, 20 Nov 2019 22:51:42 +0000 Subject: [PATCH] Fix #351: locally tweak imenu-create-index-function * eglot.el (eglot--managed-mode): locally tweak imenu-create-index-function. --- eglot.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/eglot.el b/eglot.el index c25b7b7f..a327655a 100644 --- a/eglot.el +++ b/eglot.el @@ -1247,7 +1247,8 @@ For example, to keep your Company customization use (eglot--setq-saving company-backends '(company-capf)) (eglot--setq-saving company-tooltip-align-annotations t) (unless (eglot--stay-out-of-p 'imenu) - (add-function :before-until imenu-create-index-function #'eglot-imenu)) + (add-function :before-until (local 'imenu-create-index-function) + #'eglot-imenu)) (flymake-mode 1) (eldoc-mode 1) (cl-pushnew (current-buffer) (eglot--managed-buffers eglot--cached-current-server))) @@ -1267,6 +1268,7 @@ For example, to keep your Company customization use (remove-hook 'pre-command-hook 'eglot--pre-command-hook t) (cl-loop for (var . saved-binding) in eglot--saved-bindings do (set (make-local-variable var) saved-binding)) + (remove-function (local 'imenu-create-index-function) #'eglot-imenu) (setq eglot--current-flymake-report-fn nil) (let ((server eglot--cached-current-server)) (setq eglot--cached-current-server nil)