From dd84dd33e8ac2d5f4351016dcdf0e4e40f49a892 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 1/3] Use tags-table-list instead of tags-file-name --- haskell-commands.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haskell-commands.el b/haskell-commands.el index 1df28a3fb..b3768ad7a 100644 --- a/haskell-commands.el +++ b/haskell-commands.el @@ -658,7 +658,7 @@ command from GHCi." "xargs -0 hasktags -e -x")))) :complete (lambda (state response) (when (cdr state) - (let ((tags-file-name + (let ((add-to-list 'tags-table-list (haskell-session-tags-filename (haskell-process-session (car state))))) (find-tag (cdr state)))) From 3f6a8779768b7f0770b8e69426ad72045a9e1bff 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 15:07:51 +0500 Subject: [PATCH 2/3] Fix malformed let binding error correctly modify `tags-table-list` and unset `tags-file-name` --- haskell-commands.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/haskell-commands.el b/haskell-commands.el index b3768ad7a..568354f0a 100644 --- a/haskell-commands.el +++ b/haskell-commands.el @@ -658,10 +658,15 @@ command from GHCi." "xargs -0 hasktags -e -x")))) :complete (lambda (state response) (when (cdr state) - (let ((add-to-list 'tags-table-list - (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)))) + (progn + (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 () From eb329b5e1530559d37afe79967107c77096d2a42 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 15:12:02 +0500 Subject: [PATCH 3/3] hotfix: remove quotation of variable name --- haskell-commands.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haskell-commands.el b/haskell-commands.el index 568354f0a..362278e3a 100644 --- a/haskell-commands.el +++ b/haskell-commands.el @@ -665,7 +665,7 @@ command from GHCi." (add-to-list 'tags-table-list 'session-tags) - (setq 'tags-file-name nil))) + (setq tags-file-name nil))) (find-tag (cdr state))) (haskell-mode-message-line "Tags generated."))))))