From 6fc110d486892a64f52aafbc9a44c8e48e69bc0f Mon Sep 17 00:00:00 2001 From: vwyu Date: Mon, 10 Aug 2015 13:04:08 +0900 Subject: [PATCH] Add unused string in completions as well. --- haskell-process.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/haskell-process.el b/haskell-process.el index a816a8bcc..ced9b0d79 100644 --- a/haskell-process.el +++ b/haskell-process.el @@ -306,10 +306,11 @@ Returns NIL when no completions found." (h0 (car s1))) ;; " " (unless (string-match "\\`\\([0-9]+\\) \\([0-9]+\\) \\(\".*\"\\)\\'" h0) (error "Invalid `:complete' response")) - (let ((cnt1 (match-string 1 h0))) + (let ((cnt1 (match-string 1 h0)) + (h1 (haskell-string-literal-decode (match-string 3 h0)))) (unless (= (string-to-number cnt1) (length cs)) (error "Lengths inconsistent in `:complete' reponse")) - cs))))) + (cons h1 cs)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Accessing the process