@@ -441,35 +441,35 @@ Returns keywords suitable for `font-lock-keywords'."
441
441
(" ^>" 0 haskell-default-face t ))))
442
442
((latex tex)
443
443
(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 )
445
445
,@keywords )))))
446
446
keywords))
447
447
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' .
450
450
Should be at the start of a line." )
451
451
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
454
454
\\ begin{code}..\\ end{code} block (and therefore inside a comment),
455
455
this variable is set to t, otherwise nil." )
456
456
457
- (defun haskell-fl -latex-comments (end )
457
+ (defun haskell-font-lock -latex-comments (end )
458
458
" Sets `match-data' according to the region of the buffer before end
459
459
that should be commented under LaTeX-style literate scripts."
460
460
(let ((start (point )))
461
461
(if (= start end)
462
462
; ; We're at the end. No more to fontify.
463
463
nil
464
- (if (not (eq start haskell-fl -latex-cache-pos))
464
+ (if (not (eq start haskell-font-lock -latex-cache-pos))
465
465
; ; If the start position is not cached, calculate the state
466
466
; ; of the start.
467
467
(progn
468
- (setq haskell-fl -latex-cache-pos start)
468
+ (setq haskell-font-lock -latex-cache-pos start)
469
469
; ; If the previous \begin{code} or \end{code} is a
470
470
; ; \begin{code}, then start is not in a comment, otherwise
471
471
; ; it is in a comment.
472
- (setq haskell-fl -latex-cache-in-comment
472
+ (setq haskell-font-lock -latex-cache-in-comment
473
473
(if (and
474
474
(re-search-backward
475
475
" ^\\ (\\ (\\\\ begin{code}\\ )\\ |\\ (\\\\ end{code}\\ )\\ )$"
@@ -478,7 +478,7 @@ that should be commented under LaTeX-style literate scripts."
478
478
nil t ))
479
479
; ; Restore position.
480
480
(goto-char start)))
481
- (if haskell-fl -latex-cache-in-comment
481
+ (if haskell-font-lock -latex-cache-in-comment
482
482
(progn
483
483
; ; If start is inside a comment, search for next \begin{code}.
484
484
(re-search-forward " ^\\\\ begin{code}$" end 'move )
0 commit comments