Mercurial > hg > xemacs-beta

comparison lisp/modes/cc-mode.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents e04119814345
children 7e54bd776075
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
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.379 9 ;; Version: 4.381
10 ;; Last Modified: 1997/03/10 00:59:10 10 ;; Last Modified: 1997/03/18 16:43:13
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
1211 (defconst c-C-class-key "\\(struct\\|union\\)" 1211 (defconst c-C-class-key "\\(struct\\|union\\)"
1212 "Regexp describing a C struct declaration.") 1212 "Regexp describing a C struct declaration.")
1213 (defconst c-inher-key 1213 (defconst c-inher-key
1214 (concat "\\(\\<static\\>\\s +\\)?" 1214 (concat "\\(\\<static\\>\\s +\\)?"
1215 c-C++-class-key "[ \t]+" c-symbol-key 1215 c-C++-class-key "[ \t]+" c-symbol-key
1216 "\\([ \t]*:[ \t]*\\)?\\s *[^;]") 1216 "\\([ \t]*:[ \t]*\\)\\s *[^;]")
1217 "Regexp describing a class inheritance declaration.") 1217 "Regexp describing a class inheritance declaration.")
1218 (defconst c-switch-label-key 1218 (defconst c-switch-label-key
1219 "\\(\\(case[( \t]+\\S .*\\)\\|default[ \t]*\\):" 1219 "\\(\\(case[( \t]+\\S .*\\)\\|default[ \t]*\\):"
1220 "Regexp describing a switch's case or default label") 1220 "Regexp describing a switch's case or default label")
1221 (defconst c-C++-access-key 1221 (defconst c-C++-access-key
2561 ;; How shall we decide where the end of the 2561 ;; How shall we decide where the end of the
2562 ;; fill-prefix is? 2562 ;; fill-prefix is?
2563 (progn 2563 (progn
2564 (beginning-of-line) 2564 (beginning-of-line)
2565 (skip-chars-forward " \t*" (c-point 'eol)) 2565 (skip-chars-forward " \t*" (c-point 'eol))
2566 ;; kludge alert, watch out for */, in
2567 ;; which case fill-prefix should *not*
2568 ;; be "*"!
2569 (if (and (= (following-char) ?/)
2570 (= (preceding-char) ?*))
2571 (forward-char -1))
2566 (point))) 2572 (point)))
2567 2573
2568 ;; If the comment is only one line followed 2574 ;; If the comment is only one line followed
2569 ;; by a blank line, calling move-to-column 2575 ;; by a blank line, calling move-to-column
2570 ;; above may have added some spaces and tabs 2576 ;; above may have added some spaces and tabs
5197 (progn (skip-chars-backward " \t") (point))))))) 5203 (progn (skip-chars-backward " \t") (point)))))))
5198 5204
5199 5205
5200 ;; defuns for submitting bug reports 5206 ;; defuns for submitting bug reports
5201 5207
5202 (defconst c-version "4.379" 5208 (defconst c-version "4.381"
5203 "CC Mode version number.") 5209 "CC Mode version number.")
5204 (defconst c-mode-help-address 5210 (defconst c-mode-help-address
5205 "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"
5206 "Address for CC Mode bug reports.") 5212 "Address for CC Mode bug reports.")
5207 5213