Mercurial > hg > xemacs-beta

comparison lisp/cc-mode/cc-engine.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents 489f57a838ef
children
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
5 ;; Authors: 1992-1997 Barry A. Warsaw 5 ;; Authors: 1992-1997 Barry A. Warsaw
6 ;; 1987 Dave Detlefs and Stewart Clamen 6 ;; 1987 Dave Detlefs and Stewart Clamen
7 ;; 1985 Richard M. Stallman 7 ;; 1985 Richard M. Stallman
8 ;; Maintainer: cc-mode-help@python.org 8 ;; Maintainer: cc-mode-help@python.org
9 ;; Created: 22-Apr-1997 (split from cc-mode.el) 9 ;; Created: 22-Apr-1997 (split from cc-mode.el)
10 ;; Version: 5.18 10 ;; Version: See cc-mode.el
11 ;; Keywords: c languages oop 11 ;; Keywords: c languages oop
12 12
13 ;; This file is part of GNU Emacs. 13 ;; This file is part of GNU Emacs.
14 14
15 ;; GNU Emacs is free software; you can redistribute it and/or modify 15 ;; GNU Emacs is free software; you can redistribute it and/or modify
105 (c-backward-syntactic-ws lim) 105 (c-backward-syntactic-ws lim)
106 (forward-word -1) 106 (forward-word -1)
107 (and lim 107 (and lim
108 (<= lim (point)) 108 (<= lim (point))
109 (not (c-in-literal lim)) 109 (not (c-in-literal lim))
110 (not (eq (char-before) ?_))
110 (looking-at c-conditional-key) 111 (looking-at c-conditional-key)
111 )))) 112 ))))
112 ;; did we find a conditional? 113 ;; did we find a conditional?
113 (if (not foundp) 114 (if (not foundp)
114 (goto-char here)) 115 (goto-char here))
1179 (c-add-syntax 'access-label (c-point 'bonl)) 1180 (c-add-syntax 'access-label (c-point 'bonl))
1180 (c-add-syntax 'inclass (aref inclass-p 0))) 1181 (c-add-syntax 'inclass (aref inclass-p 0)))
1181 ;; CASE 5F: extern-lang-close? 1182 ;; CASE 5F: extern-lang-close?
1182 ((and inextern-p 1183 ((and inextern-p
1183 (eq char-after-ip ?})) 1184 (eq char-after-ip ?}))
1184 (c-add-syntax 'extern-lang-close (aref inclass-p 1))) 1185 (c-add-syntax 'extern-lang-close (aref inclass-p 0)))
1185 ;; CASE 5G: we are looking at the brace which closes the 1186 ;; CASE 5G: we are looking at the brace which closes the
1186 ;; enclosing nested class decl 1187 ;; enclosing nested class decl
1187 ((and inclass-p 1188 ((and inclass-p
1188 (eq char-after-ip ?}) 1189 (eq char-after-ip ?})
1189 (save-excursion 1190 (save-excursion