224 |
(defgroup font-lock-extra-types nil |
(defgroup font-lock-extra-types nil |
225 |
"Extra mode-specific type names for highlighting declarations." |
"Extra mode-specific type names for highlighting declarations." |
226 |
:group 'font-lock) |
:group 'font-lock) |
|
|
|
|
;; Define support mode groups here to impose `font-lock' group order. |
|
|
(defgroup fast-lock nil |
|
|
"Font Lock support mode to cache fontification." |
|
|
:load 'fast-lock |
|
|
:group 'font-lock) |
|
|
|
|
|
(defgroup lazy-lock nil |
|
|
"Font Lock support mode to fontify lazily." |
|
|
:load 'lazy-lock |
|
|
:group 'font-lock) |
|
227 |
|
|
228 |
;; User variables. |
;; User variables. |
229 |
|
|
282 |
(integer :tag "size")) |
(integer :tag "size")) |
283 |
:group 'font-lock) |
:group 'font-lock) |
284 |
|
|
285 |
(defcustom font-lock-lines-before 1 |
(defcustom font-lock-lines-before 0 |
286 |
"*Number of lines before the changed text to include in refontification." |
"*Number of lines before the changed text to include in refontification." |
287 |
:type 'integer |
:type 'integer |
288 |
:group 'font-lock |
:group 'font-lock |
1038 |
;; Use the fontification syntax table, if any. |
;; Use the fontification syntax table, if any. |
1039 |
(when font-lock-syntax-table |
(when font-lock-syntax-table |
1040 |
(set-syntax-table font-lock-syntax-table)) |
(set-syntax-table font-lock-syntax-table)) |
1041 |
|
(goto-char beg) |
1042 |
|
(setq beg (line-beginning-position (- 1 font-lock-lines-before))) |
1043 |
;; check to see if we should expand the beg/end area for |
;; check to see if we should expand the beg/end area for |
1044 |
;; proper multiline matches |
;; proper multiline matches |
1045 |
(when (and font-lock-multiline |
(when (and font-lock-multiline |
1096 |
(save-match-data |
(save-match-data |
1097 |
;; Rescan between start of lines enclosing the region. |
;; Rescan between start of lines enclosing the region. |
1098 |
(font-lock-fontify-region |
(font-lock-fontify-region |
1099 |
(progn (goto-char beg) |
(progn (goto-char beg) (forward-line 0) (point)) |
|
(forward-line (- font-lock-lines-before)) (point)) |
|
1100 |
(progn (goto-char end) (forward-line 1) (point))))))) |
(progn (goto-char end) (forward-line 1) (point))))))) |
1101 |
|
|
1102 |
(defun font-lock-fontify-block (&optional arg) |
(defun font-lock-fontify-block (&optional arg) |