325 |
"* If non-nil, this inhibits progress indicators during highlighting") |
"* If non-nil, this inhibits progress indicators during highlighting") |
326 |
|
|
327 |
(defvar hilit-auto-highlight t |
(defvar hilit-auto-highlight t |
328 |
"* T if we should highlight all buffers as we find 'em, nil to disable |
"* t if we should highlight all buffers as we find 'em, nil to disable |
329 |
automatic highlighting by the find-file hook.") |
automatic highlighting by the find-file hook.") |
330 |
|
|
331 |
(defvar hilit-auto-highlight-maxout 60000 ; hilit19 keeps getting bigger... |
(defvar hilit-auto-highlight-maxout 60000 ; hilit19 keeps getting bigger... |
333 |
|
|
334 |
(defvar hilit-auto-rehighlight t |
(defvar hilit-auto-rehighlight t |
335 |
"* If this is non-nil, then hilit-redraw and hilit-recenter will also |
"* If this is non-nil, then hilit-redraw and hilit-recenter will also |
336 |
rehighlight part or all of the current buffer. T will rehighlight the |
rehighlight part or all of the current buffer. t will rehighlight the |
337 |
whole buffer, a NUMBER will rehighlight that many lines before and after |
whole buffer, a NUMBER will rehighlight that many lines before and after |
338 |
the cursor, and the symbol 'visible' will rehighlight only the visible |
the cursor, and the symbol 'visible' will rehighlight only the visible |
339 |
portion of the current buffer. This variable is buffer-local.") |
portion of the current buffer. This variable is buffer-local.") |
346 |
THRESHOLD.") |
THRESHOLD.") |
347 |
|
|
348 |
(defvar hilit-face-check t |
(defvar hilit-face-check t |
349 |
"* T slows down highlighting but permits the user to change fonts without |
"* t slows down highlighting but permits the user to change fonts without |
350 |
losing bold and italic faces... T causes hilit-lookup-face-create to dig |
losing bold and italic faces... t causes hilit-lookup-face-create to dig |
351 |
through the frame parameters for the current window every time it's called. |
through the frame parameters for the current window every time it's called. |
352 |
If you never change fonts in emacs, set this to NIL.") |
If you never change fonts in emacs, set this to nil.") |
353 |
|
|
354 |
;; Variables which must be set before loading hilit19. |
;; Variables which must be set before loading hilit19. |
355 |
|
|
1051 |
(and (interactive-p) (hilit-rehighlight-buffer))) |
(and (interactive-p) (hilit-rehighlight-buffer))) |
1052 |
|
|
1053 |
(defun hilit-string-find (qchar) |
(defun hilit-string-find (qchar) |
1054 |
"looks for a string and returns (start . end) or NIL. The argument QCHAR |
"Looks for a string and returns (start . end) or nil. The argument QCHAR |
1055 |
is the character that would precede a character constant double quote. |
is the character that would precede a character constant double quote. |
1056 |
Finds strings delimited by double quotes. The first double quote may not be |
Finds strings delimited by double quotes. The first double quote may not be |
1057 |
preceded by QCHAR and the closing double quote may not be preceded by an odd |
preceded by QCHAR and the closing double quote may not be preceded by an odd |