From cda416c893c3787f7a330a77c24915bd6b646732 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: Fri, 24 Apr 2015 14:07:24 +0500 Subject: [PATCH] Fix Emacs-snapshot build Currently **Emacs-snapshot** Travis-CI build fails with following error: > In toplevel form: > haskell.el:90:63:Error: looking-back called with 1 argument, but requires 2-3 > make: *** [haskell.elc] Error 1 We need set LIMIT to `(line-beginning-position)` here. --- haskell.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/haskell.el b/haskell.el index 1ff4fc4d9..d7739b321 100644 --- a/haskell.el +++ b/haskell.el @@ -80,7 +80,9 @@ (let ((p (point))) (and (search-backward "{-#" nil t) (search-forward-regexp "\\_" p t)))) - (looking-back (rx symbol-start "-" (* (char alnum ?-))))) + (looking-back + (rx symbol-start "-" (* (char alnum ?-))) + (line-beginning-position))) (list (match-beginning 0) (match-end 0) haskell-ghc-supported-options)) ;; Complete LANGUAGE :complete repl ":set -X..." ((and (nth 4 (syntax-ppss))