Mercurial > hg > xemacs-beta

comparison lisp/modes/cc-mode.el @ 54:05472e90ae02 r19-16-pre2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre2
author cvs
date Mon, 13 Aug 2007 08:57:55 +0200
parents 8d2a9b52c682
children 131b0175ea99
comparison
equal deleted inserted replaced
53:875393c1a535 54:05472e90ae02
4 4
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 ;; Created: a long, long, time ago. adapted from the original c-mode.el 8 ;; Created: a long, long, time ago. adapted from the original c-mode.el
9 ;; Version: 4.388 9 ;; Version: 4.389
10 ;; Last Modified: 1997/03/25 03:19:17 10 ;; Last Modified: 1997/03/28 16:48:31
11 ;; Keywords: c languages oop 11 ;; Keywords: c languages oop
12 12
13 ;; NOTE: Read the commentary below for the right way to submit bug reports! 13 ;; NOTE: Read the commentary below for the right way to submit bug reports!
14 ;; NOTE: See the accompanying texinfo manual for details on using this mode! 14 ;; NOTE: See the accompanying texinfo manual for details on using this mode!
15 15
4139 ((or (not (c-safe (forward-sexp -1) t)) 4139 ((or (not (c-safe (forward-sexp -1) t))
4140 (<= (point) fence)) 4140 (<= (point) fence))
4141 (setq done t)) 4141 (setq done t))
4142 ) 4142 )
4143 (setq cont t))) 4143 (setq cont t)))
4144 injava-inher)) 4144 injava-inher)
4145 ) 4145 (not (c-crosses-statement-barrier-p (cdr injava-inher)
4146 (point)))
4147 ))
4146 (cond 4148 (cond
4147 ;; CASE 5C.1: non-hanging colon on an inher intro 4149 ;; CASE 5C.1: non-hanging colon on an inher intro
4148 ((= char-after-ip ?:) 4150 ((= char-after-ip ?:)
4149 (c-backward-syntactic-ws lim) 4151 (c-backward-syntactic-ws lim)
4150 (c-add-syntax 'inher-intro (c-point 'boi)) 4152 (c-add-syntax 'inher-intro (c-point 'boi))
5201 (progn (skip-chars-backward " \t") (point))))))) 5203 (progn (skip-chars-backward " \t") (point)))))))
5202 5204
5203 5205
5204 ;; defuns for submitting bug reports 5206 ;; defuns for submitting bug reports
5205 5207
5206 (defconst c-version "4.388" 5208 (defconst c-version "4.389"
5207 "CC Mode version number.") 5209 "CC Mode version number.")
5208 (defconst c-mode-help-address 5210 (defconst c-mode-help-address
5209 "bug-gnu-emacs@prep.ai.mit.edu, cc-mode-help@python.org" 5211 "bug-gnu-emacs@prep.ai.mit.edu, cc-mode-help@python.org"
5210 "Address for CC Mode bug reports.") 5212 "Address for CC Mode bug reports.")
5211 5213