Mercurial > emacs

changeset 6219:d960f0463014

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables. (c++-font-lock-keywords): Use c++-font-lock-keywords-1.
author Richard M. Stallman <rms@gnu.org>
date Sat, 05 Mar 1994 23:32:27 +0000
parents f4d5338c2142
children 42589aecdd59
files lisp/font-lock.el
diffstat 1 files changed, 23 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Sat Mar 05 23:28:35 1994 +0000
+++ b/lisp/font-lock.el	Sat Mar 05 23:32:27 1994 +0000
@@ -496,11 +496,22 @@
  "For consideration as a value of `c-font-lock-keywords'.
 This does a lot more highlighting.")
 
+(defconst c++-font-lock-keywords-1 nil
+ "For consideration as a value of `c++-font-lock-keywords'.
+This does fairly subdued highlighting.")
+
+(defconst c++-font-lock-keywords-2 nil
+ "For consideration as a value of `c++-font-lock-keywords'.
+This does a lot more highlighting.")
+
 (let* ((storage "auto\\|extern\\|register\\|static\\|typedef")
        (struct "struct\\|union\\|enum")
        (prefixes "signed\\|unsigned\\|short\\|long")
        (types (concat prefixes "\\|int\\|char\\|float\\|double\\|void"))
-       (ctoken "[a-zA-Z0-9_:~*]+"))
+       (ctoken "[a-zA-Z0-9_:~*]+")
+       (c++-things (concat
+		    "const\\|class\\|protected:\\|private:\\|public:\\|inline\\|"
+		    "new\\|delete")))
  (setq c-font-lock-keywords-1
   (list
    ;; fontify preprocessor directives as comments.
@@ -559,6 +570,7 @@
     ;;
     ;; fontify all storage classes and type specifiers
     (cons (concat "\\<\\(" storage "\\)\\>") 'font-lock-type-face)
+    (cons (concat "\\<\\(" types "\\)\\>") 'font-lock-type-face)
     (cons (concat "\\<\\(\\(\\(" prefixes "\\)\\>[ \t]*\\)*\\(" types
 	   "\\)\\)\\>")
      'font-lock-type-face)
@@ -586,15 +598,22 @@
     ;; Fontify global variables without a type.
 ;    '("^\\([_a-zA-Z0-9:~*]+\\)[ \t]*[[;={]" 1 font-lock-function-name-face)
     )))
+
+ (setq c++-font-lock-keywords-1
+       (cons 
+	(concat "\\(" c++-things "\\)[ \t\n]")
+	c-font-lock-keywords-1))
+ (setq c++-font-lock-keywords-2
+       (cons 
+	(cons (concat "\\<\\(" c++-things "\\)\\>") 'font-lock-type-face)
+	c-font-lock-keywords-2))
  )
 
 ; default to the gaudier variety?
-;(defvar c-font-lock-keywords c-font-lock-keywords-2
-;  "Additional expressions to highlight in C mode.")
 (defvar c-font-lock-keywords c-font-lock-keywords-1
   "Additional expressions to highlight in C mode.")
 
-(defvar c++-font-lock-keywords c-font-lock-keywords
+(defvar c++-font-lock-keywords c++-font-lock-keywords-1
   "Additional expressions to highlight in C++ mode.")