Merge pull request #946 from gracjan/pr-improve-can-grab-prefix

Improve can grab prefix for completions

Author: gracjan

haskell-completions.el

@@ -74,11 +74,11 @@ whitespace or new line, otherwise returns nil.
 
   Returns nil in presense of active region."
   (when (not (region-active-p))
-    (when (looking-at (rx (| space line-end punct)))
+    (when (looking-at-p (rx (| space line-end punct)))
       (when (not (bobp))
         (save-excursion
           (backward-char)
-          (not (looking-at (rx (| space line-end)))))))))
+          (not (looking-at-p (rx (| space line-end)))))))))
 
 (defun haskell-completions-grab-pragma-prefix ()
   "Grab completion prefix for pragma completions.

tests/haskell-completions-tests.el

@@ -62,12 +62,9 @@
     (save-excursion (insert "bcd"))
     (should (eql nil (haskell-completions-can-grab-prefix)))
     ;; region case
-    (let ((p (point)))
-      (goto-char (point-min))
-      (push-mark)
-      (goto-char p)
-      (activate-mark)
-      (should (eql nil (haskell-completions-can-grab-prefix))))))
+    (push-mark (point-min) t)
+    (activate-mark)
+    (should (eql nil (haskell-completions-can-grab-prefix)))))
 
 
 (ert-deftest haskell-completions-grab-pragma-prefix-nil-cases-test ()