Mercurial > hg > xemacs-beta

comparison lisp/cc-mode/cc-engine.el @ 177:6075d714658b r20-3b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 2d532a89d707
children bfd6434d15b3
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
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.13 10 ;; Version: 5.14
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
55 (eq (char-before) ?\;)) 55 (eq (char-before) ?\;))
56 (c-safe (progn (forward-char -1) 56 (c-safe (progn (forward-char -1)
57 (setq saved (point)) 57 (setq saved (point))
58 t)) 58 t))
59 (progn (c-backward-syntactic-ws lim) 59 (progn (c-backward-syntactic-ws lim)
60 (memq (char-before) '(?\; ?{ ?} ?:))) 60 (memq (char-before) '(?\; ?{ ?:)))
61 ) 61 )
62 (setq last-begin saved) 62 (setq last-begin saved)
63 (goto-char last-begin) 63 (goto-char last-begin)
64 (while (not donep) 64 (while (not donep)
65 ;; stop at beginning of buffer 65 ;; stop at beginning of buffer
1247 (widen) 1247 (widen)
1248 (c-add-syntax 'topmost-intro (c-point 'bol)) 1248 (c-add-syntax 'topmost-intro (c-point 'bol))
1249 (if inclass-p 1249 (if inclass-p
1250 (progn 1250 (progn
1251 (goto-char (aref inclass-p 1)) 1251 (goto-char (aref inclass-p 1))
1252 (or (= (point) (c-point 'boi))
1253 (goto-char (aref inclass-p 0)))
1252 (if inextern-p 1254 (if inextern-p
1253 (c-add-syntax 'inextern-lang) 1255 (c-add-syntax 'inextern-lang)
1254 (c-add-syntax 'inclass (c-point 'boi))))) 1256 (c-add-syntax 'inclass (c-point 'boi)))))
1255 )) 1257 ))
1256 ;; CASE 5J: we are at an ObjC or Java method definition 1258 ;; CASE 5J: we are at an ObjC or Java method definition