branch: elpa/haskell-tng-mode
commit 907255eae9e34b08db79ee80f54228d699b73ea4
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>
some namespacing
---
haskell-tng-syntax.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/haskell-tng-syntax.el b/haskell-tng-syntax.el
index 5f7a564..48b073f 100644
--- a/haskell-tng-syntax.el
+++ b/haskell-tng-syntax.el
@@ -15,7 +15,7 @@
(require 'dash)
-(defvar haskell-tng:syntax-table
+(defconst haskell-tng:syntax-table
(let ((table (make-syntax-table)))
(map-char-table
#'(lambda (k v)
@@ -70,10 +70,10 @@
(defun haskell-tng:syntax-propertize (start end)
"For some context-sensitive syntax entries."
- (haskell-tng:propertize-char-delims start end)
- (haskell-tng:propertize-escapes start end))
+ (haskell-tng:syntax:char-delims start end)
+ (haskell-tng:syntax:escapes start end))
-(defun haskell-tng:propertize-char-delims (start end)
+(defun haskell-tng:syntax:char-delims (start end)
"Matching apostrophes are string delimiters (literal chars)."
(goto-char start)
(while (re-search-forward "'\\\\?.'" end t)
@@ -82,7 +82,7 @@
(put-text-property open (1+ open) 'syntax-table '(7 . ?\'))
(put-text-property close (1+ close) 'syntax-table '(7 . ?\')))))
-(defun haskell-tng:propertize-escapes (start end)
+(defun haskell-tng:syntax:escapes (start end)
"Backslash inside String is an escape character."
(goto-char start)
(while (re-search-forward "\\\\" end t)
