From 885332fccf86499630f491d0e50771a0af923168 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: Fri, 19 Jun 2015 22:03:14 +0500 Subject: [PATCH 1/2] Replace old completion function with new one --- haskell.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/haskell.el b/haskell.el index 1fb1208a6..5d5b2f1e0 100644 --- a/haskell.el +++ b/haskell.el @@ -28,6 +28,7 @@ (require 'haskell-sandbox) (require 'haskell-modules) (require 'haskell-string) +(require 'haskell-completions) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Basic configuration hooks @@ -54,7 +55,10 @@ "Minor mode for enabling haskell-process interaction." :lighter " Interactive" :keymap interactive-haskell-mode-map - (add-hook 'completion-at-point-functions 'haskell-process-completions-at-point nil t)) + (add-hook 'completion-at-point-functions + #'haskell-completions-sync-completions-at-point + nil + t)) (defun haskell-process-completions-at-point () "A completion-at-point function using the current haskell process." From 8ecc18c9fb4ef3ba80307c32aba30f4942653147 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: Fri, 19 Jun 2015 22:11:46 +0500 Subject: [PATCH 2/2] Make haskell-process-completions-at-point obsolete --- haskell.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/haskell.el b/haskell.el index 5d5b2f1e0..09f23a4e7 100644 --- a/haskell.el +++ b/haskell.el @@ -60,6 +60,9 @@ nil t)) +(make-obsolete #'haskell-process-completions-at-point + #'haskell-completions-sync-completions-at-point + "June 19, 2015") (defun haskell-process-completions-at-point () "A completion-at-point function using the current haskell process." (when (haskell-session-maybe)