Show
Ignore:
Timestamp:
09/10/05 10:16:00 (3 years ago)
Author:
miyoshi
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/font-lock.el

    r3809 r3863  
    224224(defgroup font-lock-extra-types nil 
    225225  "Extra mode-specific type names for highlighting declarations." 
    226   :group 'font-lock) 
    227  
    228 ;; Define support mode groups here to impose `font-lock' group order. 
    229 (defgroup fast-lock nil 
    230   "Font Lock support mode to cache fontification." 
    231   :load 'fast-lock 
    232   :group 'font-lock) 
    233  
    234 (defgroup lazy-lock nil 
    235   "Font Lock support mode to fontify lazily." 
    236   :load 'lazy-lock 
    237226  :group 'font-lock) 
    238227  
    …… 
    294283  :group 'font-lock) 
    295284 
    296 (defcustom font-lock-lines-before 1 
     285(defcustom font-lock-lines-before 0 
    297286  "*Number of lines before the changed text to include in refontification." 
    298287  :type 'integer 
    …… 
    858847  "*Support mode for Font Lock mode. 
    859848Support modes speed up Font Lock mode by being choosy about when fontification 
    860 occurs.  Known support modes are Fast Lock mode (symbol `fast-lock-mode'), 
    861 Lazy Lock mode (symbol `lazy-lock-mode'), and Just-in-time Lock mode (symbol 
    862 `jit-lock-mode'.  See those modes for more info. 
     849occurs.  The default support mode, Just-in-time Lock mode (symbol 
     850`jit-lock-mode'), is recommended. 
     851 
     852Other, older support modes are Fast Lock mode (symbol `fast-lock-mode') and 
     853Lazy Lock mode (symbol `lazy-lock-mode').  See those modes for more info. 
     854However, they are no longer recommended, as Just-in-time Lock mode is better. 
     855 
    863856If nil, means support for Font Lock mode is never performed. 
    864857If a symbol, use that support mode. 
    …… 
    10501043          (when font-lock-syntax-table 
    10511044            (set-syntax-table font-lock-syntax-table)) 
     1045          (goto-char beg) 
     1046          (setq beg (line-beginning-position (- 1 font-lock-lines-before))) 
    10521047          ;; check to see if we should expand the beg/end area for 
    10531048          ;; proper multiline matches 
    …… 
    11061101        ;; Rescan between start of lines enclosing the region. 
    11071102        (font-lock-fontify-region 
    1108          (progn (goto-char beg) 
    1109                 (forward-line (- font-lock-lines-before)) (point)) 
     1103         (progn (goto-char beg) (forward-line 0) (point)) 
    11101104         (progn (goto-char end) (forward-line 1) (point))))))) 
    11111105