branch: elpa/haskell-tng-mode
commit a7a90ea65485589404e4c02d540ae902984fa575
Author: Tseen She <[email protected]>
Commit: Tseen She <[email protected]>
fixup! improve the multiline font macro
---
haskell-tng-font-lock.el | 8 +-------
haskell-tng-util.el | 6 ++++++
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/haskell-tng-font-lock.el b/haskell-tng-font-lock.el
index 1707ffe..790ef30 100644
--- a/haskell-tng-font-lock.el
+++ b/haskell-tng-font-lock.el
@@ -232,13 +232,7 @@ defaults for FIND."
(rx symbol-start "::" symbol-end)
(rx symbol-start "::" symbol-end (group (+ anything)))
haskell-tng:paren-close
- haskell-tng:font:explicit-type:indent)
-
-(defun haskell-tng:font:explicit-type:indent ()
- "Indentation closing the previous symbol."
- (save-excursion
- (forward-symbol -1)
- (haskell-tng:indent-close)))
+ haskell-tng:indent-close-previous)
(haskell-tng:font:multiline topdecl
(rx line-start (| "data" "newtype" "class" "instance") symbol-end)
diff --git a/haskell-tng-util.el b/haskell-tng-util.el
index 3a19d3f..e4737e8 100644
--- a/haskell-tng-util.el
+++ b/haskell-tng-util.el
@@ -31,5 +31,11 @@
(throw 'closed (point))))
nil))))
+(defun haskell-tng:indent-close-previous ()
+ "Indentation closing the previous symbol."
+ (save-excursion
+ (forward-symbol -1)
+ (haskell-tng:indent-close)))
+
(provide 'haskell-tng-util)
;;; haskell-tng-util.el ends here
