From 2b4e49cf79bfd113ed680ad001b493348ebb3f17 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=90=D1=80=D1=82=D1=83=D1=80=20=D0=A4=D0=B0=D0=B8=CC=86?= =?UTF-8?q?=D0=B7=D1=80=D0=B0=D1=85=D0=BC=D0=B0=D0=BD=D0=BE=D0=B2?= Date: Wed, 22 Apr 2015 00:15:33 +0500 Subject: [PATCH] Use tags-table-list instead of tags-file-name MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Tested: + (haskell-process-generate-tags) ⇒ "Tags generated." + (haskell-process-generate-tags "SomeTag") ⇒ jumps to tag definition --- haskell-commands.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/haskell-commands.el b/haskell-commands.el index 1df28a3fb..c94d49a63 100644 --- a/haskell-commands.el +++ b/haskell-commands.el @@ -658,10 +658,12 @@ command from GHCi." "xargs -0 hasktags -e -x")))) :complete (lambda (state response) (when (cdr state) - (let ((tags-file-name - (haskell-session-tags-filename - (haskell-process-session (car state))))) - (find-tag (cdr state)))) + (let ((session-tags + (haskell-session-tags-filename + (haskell-process-session (car state))))) + (add-to-list 'tags-table-list session-tags) + (setq tags-file-name nil)) + (find-tag (cdr state))) (haskell-mode-message-line "Tags generated.")))))) (defun haskell-process-add-cabal-autogen ()