From 95428b16e2bb94f7b5a30c4da6748970a9f3b0ad Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Arthur=20Fayzrakhmanov=20=28=D0=90=D1=80=D1=82=D1=83=D1=80?= =?UTF-8?q?=20=D0=A4=D0=B0=D0=B9=D0=B7=D1=80=D0=B0=D1=85=D0=BC=D0=B0=D0=BD?= =?UTF-8?q?=D0=BE=D0=B2=29?= Date: Tue, 19 Apr 2016 14:57:08 +0500 Subject: [PATCH 1/2] Fix `tags-completion-table` usage --- haskell-completions.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haskell-completions.el b/haskell-completions.el index c0de633b2..333735187 100644 --- a/haskell-completions.el +++ b/haskell-completions.el @@ -296,7 +296,7 @@ PREFIX should be a list such one returned by ('haskell-completions-language-extension-prefix haskell-ghc-supported-extensions) (otherwise - (append (tags-completion-table) + (append tags-completion-table haskell-completions--keywords))))) (list beg end candidates))))) From d4799311bf8172372503bdad49b11971a88d9f23 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Arthur=20Fayzrakhmanov=20=28=D0=90=D1=80=D1=82=D1=83=D1=80?= =?UTF-8?q?=20=D0=A4=D0=B0=D0=B9=D0=B7=D1=80=D0=B0=D1=85=D0=BC=D0=B0=D0=BD?= =?UTF-8?q?=D0=BE=D0=B2=29?= Date: Tue, 19 Apr 2016 14:59:45 +0500 Subject: [PATCH 2/2] Complete things with tags iff tags-on-save is t --- haskell-completions.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/haskell-completions.el b/haskell-completions.el index 333735187..32e328ba7 100644 --- a/haskell-completions.el +++ b/haskell-completions.el @@ -296,7 +296,8 @@ PREFIX should be a list such one returned by ('haskell-completions-language-extension-prefix haskell-ghc-supported-extensions) (otherwise - (append tags-completion-table + (append (when (bound-and-true-p haskell-tags-on-save) + tags-completion-table) haskell-completions--keywords))))) (list beg end candidates)))))