[nongnu] elpa/haskell-tng-mode c3d4e70 031/385: don't reinvent standard tools

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit c3d4e70fb4ff8342823ca0ce946826450b88376a
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    don't reinvent standard tools
---
 haskell-tng-font-lock.el | 26 ++++++++------------------
 1 file changed, 8 insertions(+), 18 deletions(-)

diff --git a/haskell-tng-font-lock.el b/haskell-tng-font-lock.el
index c110e17..10831d4 100644
--- a/haskell-tng-font-lock.el
+++ b/haskell-tng-font-lock.el
@@ -14,7 +14,15 @@
 ;;  parsing, but until that day, we do it the idiomatic Emacs way (with hacks
 ;;  and more hacks).
 ;;
+;;  Some very useful tools to assist with keywords and extend-region:
+;;
+;;  - https://github.com/Lindydancer/highlight-refontification
+;;  - https://github.com/Lindydancer/font-lock-profiler
+;;  - https://github.com/Lindydancer/font-lock-studio
+;;
+;;  The Emacs Lisp manual should be consulted
 ;;  
https://www.gnu.org/software/emacs/manual/html_mono/elisp.html#Font-Lock-Mode
+;;  in addition to `C-h f font-lock-keywords'
 ;;
 ;;; Code:
 
@@ -173,10 +181,6 @@
   (defvar font-lock-beg)
   (defvar font-lock-end))
 
-(defcustom haskell-tng:font:debug-extend nil
-  "Print debugging when the font-lock region is extended."
-  :type 'boolean)
-
 (defconst haskell-tng:extend-region-functions
   '(font-lock-extend-region-wholelines)
   "Used in `font-lock-extend-region-functions'.
@@ -223,8 +227,6 @@ succeeds and may further restrict the FIND search limit."
            (when (re-search-backward ,regexp-1 font-lock-beg t)
              ,(finder '(point-max))
              (when (< font-lock-end (point))
-               (when haskell-tng:font:debug-extend
-                 (haskell-tng:font:debug-extend (point)))
                (setq font-lock-end (point))
                nil)))
          (defun ,keyword (limit)
@@ -273,17 +275,5 @@ succeeds and may further restrict the FIND search limit."
   (rx line-start "module" word-end (group (+ anything)))
   haskell-tng:indent-close)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Helpers
-
-(defun haskell-tng:font:debug-extend (to)
-  (message "extending `%s' to include `%s'!"
-           (buffer-substring-no-properties font-lock-beg font-lock-end)
-           (if (<= to font-lock-beg)
-               (buffer-substring-no-properties to font-lock-beg)
-             (if (<= font-lock-end to)
-                 (buffer-substring-no-properties font-lock-end to)
-               "BADNESS! Reduced the region"))))
-
 (provide 'haskell-tng-font-lock)
 ;;; haskell-tng-font-lock.el ends here