/[emacs]/emacs/lisp/font-lock.el
ViewVC logotype

Diff of /emacs/lisp/font-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.271 by ttn, Sat Aug 6 22:13:42 2005 UTC revision 1.272 by monnier, Thu Sep 1 14:04:03 2005 UTC
# Line 224  Line 224 
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    
# Line 293  If a number, only buffers greater than t Line 282  If a number, only buffers greater than t
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
# Line 1049  a very meaningful entity to highlight.") Line 1038  a very meaningful entity to highlight.")
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
# Line 1105  what properties to clear before refontif Line 1096  what properties to clear before refontif
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)

Legend:
Removed from v.1.271  
changed lines
  Added in v.1.272

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26