Skip to content

Commit 06e0eeb

Browse files
committed
Rename haskell-fl-latex to haskell-font-lock-latex.
Rename haskell-fl-latex-* to haskell-font-lock-latex-* to make naming more sane.
1 parent 387a891 commit 06e0eeb

File tree

1 file changed

+10
-10
lines changed

1 file changed

+10
-10
lines changed

haskell-font-lock.el

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -441,35 +441,35 @@ Returns keywords suitable for `font-lock-keywords'."
441441
("^>" 0 haskell-default-face t))))
442442
((latex tex)
443443
(setq keywords
444-
`((haskell-fl-latex-comments 0 'font-lock-comment-face t)
444+
`((haskell-font-lock-latex-comments 0 'font-lock-comment-face t)
445445
,@keywords)))))
446446
keywords))
447447

448-
(defvar haskell-fl-latex-cache-pos nil
449-
"Position of cache point used by `haskell-fl-latex-cache-in-comment'.
448+
(defvar haskell-font-lock-latex-cache-pos nil
449+
"Position of cache point used by `haskell-font-lock-latex-cache-in-comment'.
450450
Should be at the start of a line.")
451451

452-
(defvar haskell-fl-latex-cache-in-comment nil
453-
"If `haskell-fl-latex-cache-pos' is outside a
452+
(defvar haskell-font-lock-latex-cache-in-comment nil
453+
"If `haskell-font-lock-latex-cache-pos' is outside a
454454
\\begin{code}..\\end{code} block (and therefore inside a comment),
455455
this variable is set to t, otherwise nil.")
456456

457-
(defun haskell-fl-latex-comments (end)
457+
(defun haskell-font-lock-latex-comments (end)
458458
"Sets `match-data' according to the region of the buffer before end
459459
that should be commented under LaTeX-style literate scripts."
460460
(let ((start (point)))
461461
(if (= start end)
462462
;; We're at the end. No more to fontify.
463463
nil
464-
(if (not (eq start haskell-fl-latex-cache-pos))
464+
(if (not (eq start haskell-font-lock-latex-cache-pos))
465465
;; If the start position is not cached, calculate the state
466466
;; of the start.
467467
(progn
468-
(setq haskell-fl-latex-cache-pos start)
468+
(setq haskell-font-lock-latex-cache-pos start)
469469
;; If the previous \begin{code} or \end{code} is a
470470
;; \begin{code}, then start is not in a comment, otherwise
471471
;; it is in a comment.
472-
(setq haskell-fl-latex-cache-in-comment
472+
(setq haskell-font-lock-latex-cache-in-comment
473473
(if (and
474474
(re-search-backward
475475
"^\\(\\(\\\\begin{code}\\)\\|\\(\\\\end{code}\\)\\)$"
@@ -478,7 +478,7 @@ that should be commented under LaTeX-style literate scripts."
478478
nil t))
479479
;; Restore position.
480480
(goto-char start)))
481-
(if haskell-fl-latex-cache-in-comment
481+
(if haskell-font-lock-latex-cache-in-comment
482482
(progn
483483
;; If start is inside a comment, search for next \begin{code}.
484484
(re-search-forward "^\\\\begin{code}$" end 'move)

0 commit comments

Comments
 (0)