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

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

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

revision 1.20 by monnier, Mon Apr 14 23:07:49 2003 UTC revision 1.21 by monnier, Fri Jul 4 18:29:12 2003 UTC
# Line 1  Line 1 
1  ;;; font-core.el --- Core interface to font-lock  ;;; font-core.el --- Core interface to font-lock
2    
3  ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 1999, 2000, 2001, 2002  ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 1999, 2000, 2001, 02, 2003
4  ;;  Free Software Foundation, Inc.  ;;  Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 77  and those for buffer-specialized fontifi Line 77  and those for buffer-specialized fontifi
77  ;; keywords.  Really, this shouldn't need to be in font-core.el, but  ;; keywords.  Really, this shouldn't need to be in font-core.el, but
78  ;; we can't avoid it.  In the future, this stuff will hopefully be  ;; we can't avoid it.  In the future, this stuff will hopefully be
79  ;; moved to cc-mode itself.  ;; moved to cc-mode itself.
80  (defvar font-lock-defaults-alist  (defvar font-lock-defaults-alist nil
   (let (;; We use `beginning-of-defun', rather than nil, for SYNTAX-BEGIN.  
         ;; Thus the calculation of the cache is usually faster but not  
         ;; infallible, so we risk mis-fontification.  sm.  
         (c-mode-defaults  
          '((c-font-lock-keywords c-font-lock-keywords-1  
             c-font-lock-keywords-2 c-font-lock-keywords-3)  
            nil nil ((?_ . "w")) beginning-of-defun  
            (font-lock-syntactic-face-function  
             . c-font-lock-syntactic-face-function)  
            (font-lock-mark-block-function . mark-defun)))  
         (c++-mode-defaults  
          '((c++-font-lock-keywords c++-font-lock-keywords-1  
             c++-font-lock-keywords-2 c++-font-lock-keywords-3)  
            nil nil ((?_ . "w")) beginning-of-defun  
            (font-lock-syntactic-face-function  
             . c-font-lock-syntactic-face-function)  
            (font-lock-mark-block-function . mark-defun)))  
         (objc-mode-defaults  
          '((objc-font-lock-keywords objc-font-lock-keywords-1  
             objc-font-lock-keywords-2 objc-font-lock-keywords-3)  
            nil nil ((?_ . "w") (?$ . "w")) nil  
            (font-lock-syntactic-face-function  
             . c-font-lock-syntactic-face-function)  
            (font-lock-mark-block-function . mark-defun)))  
         (java-mode-defaults  
          '((java-font-lock-keywords java-font-lock-keywords-1  
             java-font-lock-keywords-2 java-font-lock-keywords-3)  
            nil nil ((?_ . "w") (?$ . "w")) nil  
            (font-lock-syntactic-face-function  
             . java-font-lock-syntactic-face-function)  
            (font-lock-mark-block-function . mark-defun))))  
     (list  
      (cons 'c-mode                      c-mode-defaults)  
      (cons 'c++-mode                    c++-mode-defaults)  
      (cons 'objc-mode                   objc-mode-defaults)  
      (cons 'java-mode                   java-mode-defaults)))  
81    "Alist of fall-back Font Lock defaults for major modes.    "Alist of fall-back Font Lock defaults for major modes.
82    
 This variable should not be used any more.  
 Set the buffer-local `font-lock-keywords' in the major mode instead.  
   
83  Each item should be a list of the form:  Each item should be a list of the form:
84    
85   (MAJOR-MODE . FONT-LOCK-DEFAULTS)   (MAJOR-MODE . FONT-LOCK-DEFAULTS)

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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