diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cedet/pulse.el | 3 | ||||
| -rw-r--r-- | lisp/jit-lock.el | 22 |
2 files changed, 17 insertions, 8 deletions
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index 16243e16b45..8649254aedd 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el | |||
| @@ -161,6 +161,9 @@ Return t if there is more drift to do, nil if completed." | |||
| 161 | (face-background face nil t) | 161 | (face-background face nil t) |
| 162 | (face-background 'pulse-highlight-start-face) | 162 | (face-background 'pulse-highlight-start-face) |
| 163 | )) | 163 | )) |
| 164 | (and face | ||
| 165 | (set-face-extend 'pulse-highlight-face | ||
| 166 | (face-extend-p face nil t))) | ||
| 164 | (put 'pulse-highlight-face :startface (or face | 167 | (put 'pulse-highlight-face :startface (or face |
| 165 | 'pulse-highlight-start-face)) | 168 | 'pulse-highlight-start-face)) |
| 166 | (put 'pulse-highlight-face :iteration 0)) | 169 | (put 'pulse-highlight-face :iteration 0)) |
diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index 9cdb108be03..c0c9cac23e7 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el | |||
| @@ -96,16 +96,22 @@ See also `jit-lock-stealth-nice'." | |||
| 96 | 96 | ||
| 97 | (defvaralias 'jit-lock-defer-contextually 'jit-lock-contextually) | 97 | (defvaralias 'jit-lock-defer-contextually 'jit-lock-contextually) |
| 98 | (defcustom jit-lock-contextually 'syntax-driven | 98 | (defcustom jit-lock-contextually 'syntax-driven |
| 99 | "If non-nil, means fontification should be syntactically true. | 99 | "If non-nil, fontification should be syntactically true. |
| 100 | If nil, means fontification occurs only on those lines modified. This | 100 | If nil, refontification occurs only on lines that were modified. This |
| 101 | means where modification on a line causes syntactic change on subsequent lines, | 101 | means where modification on a line causes syntactic change on subsequent lines, |
| 102 | those subsequent lines are not refontified to reflect their new context. | 102 | those subsequent lines are not refontified to reflect their new context. |
| 103 | If t, means fontification occurs on those lines modified and all | 103 | If t, fontification occurs on those lines modified and all subsequent lines. |
| 104 | subsequent lines. This means those subsequent lines are refontified to reflect | 104 | This means those subsequent lines are refontified to reflect their new |
| 105 | their new syntactic context, after `jit-lock-context-time' seconds. | 105 | syntactic context, after `jit-lock-context-time' seconds. |
| 106 | If any other value, e.g., `syntax-driven', means syntactically true | 106 | If any other value, e.g., `syntax-driven', it means refontification of |
| 107 | fontification occurs only if syntactic fontification is performed using the | 107 | subsequent lines to reflect their new syntactic context may or may not |
| 108 | buffer mode's syntax table, i.e., only if `font-lock-keywords-only' is nil. | 108 | occur after `jit-lock-context-time', depending on the the font-lock |
| 109 | definitions of the buffer. Specifically, if `font-lock-keywords-only' | ||
| 110 | is nil in a buffer, which generally means the syntactic fontification | ||
| 111 | is done using the buffer mode's syntax table, the syntactic | ||
| 112 | refontification will be triggered (because in that case font-lock | ||
| 113 | calls `jit-lock-register' to set up for syntactic refontification, | ||
| 114 | and sets the buffer-local value of `jit-lock-contextually' to t). | ||
| 109 | 115 | ||
| 110 | The value of this variable is used when JIT Lock mode is turned on." | 116 | The value of this variable is used when JIT Lock mode is turned on." |
| 111 | :type '(choice (const :tag "never" nil) | 117 | :type '(choice (const :tag "never" nil) |