Mercurial > hg > xemacs-beta

comparison lisp/cc-mode/cc-mode.el @ 181:bfd6434d15b3 r20-3b17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b17
author cvs
date Mon, 13 Aug 2007 09:53:19 +0200
parents 6075d714658b
children e121b013d1f0
comparison
equal deleted inserted replaced
180:add28d59e586 181:bfd6434d15b3
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: a long, long, time ago. adapted from the original c-mode.el 9 ;; Created: a long, long, time ago. adapted from the original c-mode.el
10 ;; Version: 5.14 10 ;; Version: 5.15
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
89 ;; (require 'cc-mode) 89 ;; (require 'cc-mode)
90 ;; (c-initialize-cc-mode) 90 ;; (c-initialize-cc-mode)
91 91
92 ;;;###autoload 92 ;;;###autoload
93 (defun c-initialize-cc-mode () 93 (defun c-initialize-cc-mode ()
94 (setq c-buffer-is-cc-mode t)
95 ;; sigh. give in to the pressure, but make really sure all the
96 ;; definitions we need are here
97 (if (or (not (fboundp 'functionp))
98 (not (fboundp 'char-before))
99 (not (c-safe (char-after) t)))
100 (require 'cc-mode-19))
94 ;; make sure all necessary components of CC Mode are loaded in. 101 ;; make sure all necessary components of CC Mode are loaded in.
95 (let ((initprop 'cc-mode-is-initialized)) 102 (let ((initprop 'cc-mode-is-initialized))
96 (require 'cc-vars) 103 (require 'cc-vars)
97 (require 'cc-engine) 104 (require 'cc-engine)
98 (require 'cc-langs) 105 (require 'cc-langs)
134 local-abbrev-table c-mode-abbrev-table) 141 local-abbrev-table c-mode-abbrev-table)
135 (use-local-map c-mode-map) 142 (use-local-map c-mode-map)
136 (c-common-init) 143 (c-common-init)
137 (setq comment-start "/* " 144 (setq comment-start "/* "
138 comment-end " */" 145 comment-end " */"
139 comment-multi-line t
140 c-conditional-key c-C-conditional-key 146 c-conditional-key c-C-conditional-key
141 c-class-key c-C-class-key 147 c-class-key c-C-class-key
142 c-baseclass-key nil 148 c-baseclass-key nil
143 c-comment-start-regexp c-C-comment-start-regexp 149 c-comment-start-regexp c-C++-comment-start-regexp
144 imenu-generic-expression cc-imenu-c-generic-expression) 150 imenu-generic-expression cc-imenu-c-generic-expression)
145 (run-hooks 'c-mode-common-hook) 151 (run-hooks 'c-mode-common-hook)
146 (run-hooks 'c-mode-hook) 152 (run-hooks 'c-mode-hook)
147 (c-update-modeline)) 153 (c-update-modeline))
148 154
173 local-abbrev-table c++-mode-abbrev-table) 179 local-abbrev-table c++-mode-abbrev-table)
174 (use-local-map c++-mode-map) 180 (use-local-map c++-mode-map)
175 (c-common-init) 181 (c-common-init)
176 (setq comment-start "// " 182 (setq comment-start "// "
177 comment-end "" 183 comment-end ""
178 comment-multi-line nil
179 c-conditional-key c-C++-conditional-key 184 c-conditional-key c-C++-conditional-key
180 c-comment-start-regexp c-C++-comment-start-regexp 185 c-comment-start-regexp c-C++-comment-start-regexp
181 c-class-key c-C++-class-key 186 c-class-key c-C++-class-key
182 c-access-key c-C++-access-key 187 c-access-key c-C++-access-key
183 c-double-slash-is-comments-p t 188 c-double-slash-is-comments-p t
214 local-abbrev-table objc-mode-abbrev-table) 219 local-abbrev-table objc-mode-abbrev-table)
215 (use-local-map objc-mode-map) 220 (use-local-map objc-mode-map)
216 (c-common-init) 221 (c-common-init)
217 (setq comment-start "// " 222 (setq comment-start "// "
218 comment-end "" 223 comment-end ""
219 comment-multi-line nil
220 c-conditional-key c-C-conditional-key 224 c-conditional-key c-C-conditional-key
221 c-comment-start-regexp c-C++-comment-start-regexp 225 c-comment-start-regexp c-C++-comment-start-regexp
222 c-class-key c-ObjC-class-key 226 c-class-key c-ObjC-class-key
223 c-baseclass-key nil 227 c-baseclass-key nil
224 c-access-key c-ObjC-access-key 228 c-access-key c-ObjC-access-key
257 local-abbrev-table java-mode-abbrev-table) 261 local-abbrev-table java-mode-abbrev-table)
258 (use-local-map java-mode-map) 262 (use-local-map java-mode-map)
259 (c-common-init) 263 (c-common-init)
260 (setq comment-start "// " 264 (setq comment-start "// "
261 comment-end "" 265 comment-end ""
262 comment-multi-line nil
263 c-conditional-key c-Java-conditional-key 266 c-conditional-key c-Java-conditional-key
264 c-comment-start-regexp c-Java-comment-start-regexp 267 c-comment-start-regexp c-Java-comment-start-regexp
265 c-class-key c-Java-class-key 268 c-class-key c-Java-class-key
266 c-method-key c-Java-method-key 269 c-method-key c-Java-method-key
267 c-double-slash-is-comments-p t 270 c-double-slash-is-comments-p t
303 local-abbrev-table idl-mode-abbrev-table) 306 local-abbrev-table idl-mode-abbrev-table)
304 (use-local-map idl-mode-map) 307 (use-local-map idl-mode-map)
305 (c-common-init) 308 (c-common-init)
306 (setq comment-start "// " 309 (setq comment-start "// "
307 comment-end "" 310 comment-end ""
308 comment-multi-line nil
309 c-conditional-key c-C++-conditional-key 311 c-conditional-key c-C++-conditional-key
310 c-comment-start-regexp c-C++-comment-start-regexp 312 c-comment-start-regexp c-C++-comment-start-regexp
311 c-class-key c-C++-class-key 313 c-class-key c-C++-class-key
312 c-access-key c-C++-access-key 314 c-access-key c-C++-access-key
313 c-double-slash-is-comments-p t 315 c-double-slash-is-comments-p t
317 (run-hooks 'idl-mode-hook) 319 (run-hooks 'idl-mode-hook)
318 (c-update-modeline)) 320 (c-update-modeline))
319 321
320 322
321 ;; defuns for submitting bug reports 323 ;; defuns for submitting bug reports
322 (defconst c-version "5.14" 324 (defconst c-version "5.15"
323 "CC Mode version number.") 325 "CC Mode version number.")
324 326
325 (defconst c-mode-help-address 327 (defconst c-mode-help-address
326 "bug-gnu-emacs@prep.ai.mit.edu, cc-mode-help@python.org" 328 "bug-gnu-emacs@prep.ai.mit.edu, cc-mode-help@python.org"
327 "Address for CC Mode bug reports.") 329 "Address for CC Mode bug reports.")