Show
Ignore:
Timestamp:
10/02/05 07:23:38 (3 years ago)
Author:
miyoshi
Message:

Update.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/font-lock.el

    r3861 r3892  
    341341;; Fontification variables: 
    342342 
     343;;;###autoload 
    343344(defvar font-lock-keywords nil 
    344345  "A list of the keywords to highlight. 
    …… 
    10611062                          (point-max)))) 
    10621063          (goto-char end) 
    1063           (setq end (line-beginning-position 2)) 
     1064          ;; Round up to a whole line. 
     1065          (unless (bolp) (setq end (line-beginning-position 2))) 
    10641066          ;; Now do the fontification. 
    10651067          (font-lock-unfontify-region beg end) 
    …… 
    10731075 
    10741076;; The following must be rethought, since keywords can override fontification. 
    1075 ;      ;; Now scan for keywords, but not if we are inside a comment now. 
    1076 ;      (or (and (not font-lock-keywords-only) 
    1077 ;             (let ((state (parse-partial-sexp beg end nil nil 
    1078 ;                                              font-lock-cache-state))) 
    1079 ;              (or (nth 4 state) (nth 7 state)))) 
    1080 ;        (font-lock-fontify-keywords-region beg end)) 
     1077;;    ;; Now scan for keywords, but not if we are inside a comment now. 
     1078;;    (or (and (not font-lock-keywords-only) 
     1079;;             (let ((state (parse-partial-sexp beg end nil nil 
     1080;;                                              font-lock-cache-state))) 
     1081;;              (or (nth 4 state) (nth 7 state)))) 
     1082;;        (font-lock-fontify-keywords-region beg end)) 
    10811083 
    10821084(defvar font-lock-extra-managed-props nil