comparison lisp/progmodes/cc-fonts.el @ 90667:dbe3f29e61d6

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 505-522) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: etc/TUTORIAL.cn: Updated. - Merge from erc--emacs--22 * gnus--rel--5.10 (patch 164-167) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-137

90666:00d54c8fa693

	    ;; square brackets, and we treat them as initializers too.
	    (c-syntactic-re-search-forward
	     "[;,]\\|\\s)\\|\\'\\|\\(=\\|\\s(\\)" limit t t))

      (setq next-pos (match-beginning 0)
	    id-face (if (eq (char-after next-pos) ?\()
			'font-lock-function-name-face
		      'font-lock-variable-name-face)
	    got-init (and (match-beginning 1)
			  (char-after (match-beginning 1))))

	      ;; A cast or declaration has been successfully identified, so do
	      ;; all the fontification of types and refs that's been recorded.
	      (c-fontify-recorded-types-and-refs)
	      nil))

	  ;; It was a false alarm.  Check if we're in a label instead.
	  (goto-char start-pos)
	  (when (c-forward-label t match-pos nil)
	    ;; Can't use `c-fontify-types-and-refs' here since we
	    ;; should use the label face.
	    (let (elem)
	      (while c-record-ref-identifiers
		(setq elem (car c-record-ref-identifiers)
		      c-record-ref-identifiers (cdr c-record-ref-identifiers))
		(c-put-font-lock-face (car elem) (cdr elem)
				      c-label-face-name)))
	    ;; `c-forward-label' probably has added a `c-decl-end'
	    ;; marker, so return t to `c-find-decl-spots' to signal
	    ;; that.
	    t))))

      nil)))

(c-lang-defconst c-simple-decl-matchers
  "Simple font lock matchers for types and declarations.  These are used

90667:dbe3f29e61d6

	    ;; square brackets, and we treat them as initializers too.
	    (c-syntactic-re-search-forward
	     "[;,]\\|\\s)\\|\\'\\|\\(=\\|\\s(\\)" limit t t))

      (setq next-pos (match-beginning 0)
	    id-face (if (and (eq (char-after next-pos) ?\()
			     (let (c-last-identifier-range)
			       (save-excursion
				 (goto-char next-pos)
				 (c-at-toplevel-p))))
			'font-lock-function-name-face
		      'font-lock-variable-name-face)
	    got-init (and (match-beginning 1)
			  (char-after (match-beginning 1))))

	      ;; A cast or declaration has been successfully identified, so do
	      ;; all the fontification of types and refs that's been recorded.
	      (c-fontify-recorded-types-and-refs)
	      nil))

	  ;; It was a false alarm.
	  (goto-char start-pos)
	  ;; The below code attempts to fontify the case constants in
	  ;; c-label-face-name, but it cannot catch every case [sic].
	  ;; And do we want to fontify case constants anyway?
	  nil
;;;	  (when (c-forward-label t match-pos nil)
;;;	    ;; Can't use `c-fontify-types-and-refs' here since we
;;;	    ;; should use the label face.
;;;	    (save-excursion
;;;	      (while c-record-ref-identifiers
;;;		(let ((elem (car c-record-ref-identifiers))
;;;		      c-record-type-identifiers)
;;;		  (goto-char (cdr elem))
;;;		  ;; Find the end of any label.
;;;		  (while (and (re-search-forward "\\sw\\|:" nil t)
;;;			      (progn (backward-char 1) t)
;;;			      (or (re-search-forward
;;;				   "\\=0[Xx][0-9A-Fa-f]+\\|\\([0-9]+\\)" nil t)
;;;				  (c-forward-name)))
;;;		    (c-backward-syntactic-ws)
;;;		    (let ((end (point)))
;;;		      ;; Now find the start of the bit we regard as the label.
;;;		      (when (and (c-simple-skip-symbol-backward)
;;;				 (not (c-get-char-property (point) 'face)))
;;;			(c-put-font-lock-face (point) end c-label-face-name))
;;;		      (goto-char end))))
;;;		(setq c-record-ref-identifiers (cdr c-record-ref-identifiers))))
;;;	    ;; `c-forward-label' probably has added a `c-decl-end'
;;;	    ;; marker, so return t to `c-find-decl-spots' to signal
;;;	    ;; that.
;;;	    t)
	  )))

      nil)))

(c-lang-defconst c-simple-decl-matchers
  "Simple font lock matchers for types and declarations.  These are used