Mercurial > emacs
annotate lisp/progmodes/cc-langs.el @ 19250:23f71af4d504
(c-symbol-key):
First character must be a letter or underscore.
(c-styles-are-initialized): Variable deleted.
(c-common-init): Don't initialize styles here.
(idl-mode-abbrev-table): New variable.
(idl-mode-map, idl-mode-syntax-table): New variables.
(c-idl-menu): New menu.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 09 Aug 1997 18:26:19 +0000 |
parents | 72c2475ece1c |
children | b07fa43938cc |
rev | line source |
---|---|
18720 | 1 ;;; cc-langs.el --- specific language support for CC Mode |
2 | |
3 ;; Copyright (C) 1985,87,92,93,94,95,96,97 Free Software Foundation, Inc. | |
4 | |
5 ;; Authors: 1992-1997 Barry A. Warsaw | |
6 ;; 1987 Dave Detlefs and Stewart Clamen | |
7 ;; 1985 Richard M. Stallman | |
8 ;; Maintainer: cc-mode-help@python.org | |
9 ;; Created: 22-Apr-1997 (split from cc-mode.el) | |
19250 | 10 ;; Version: 5.14 |
18720 | 11 ;; Keywords: c languages oop |
12 | |
13 ;; This file is part of GNU Emacs. | |
14 | |
15 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
16 ;; it under the terms of the GNU General Public License as published by | |
17 ;; the Free Software Foundation; either version 2, or (at your option) | |
18 ;; any later version. | |
19 | |
20 ;; GNU Emacs is distributed in the hope that it will be useful, | |
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
23 ;; GNU General Public License for more details. | |
24 | |
25 ;; You should have received a copy of the GNU General Public License | |
26 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
28 ;; Boston, MA 02111-1307, USA. | |
29 | |
18842
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
30 (require 'cc-defs) |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
31 |
18720 | 32 |
18772 | 33 (require 'cc-defs) |
34 | |
18720 | 35 ;; Regular expressions and other values which must be parameterized on |
36 ;; a per-language basis. | |
37 | |
38 ;; Keywords defining protection levels | |
39 (defconst c-protection-key "\\<\\(public\\|protected\\|private\\)\\>") | |
40 | |
18842
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
41 ;; Regex describing a `symbol' in all languages. We cannot use just |
18720 | 42 ;; `word' syntax class since `_' cannot be in word class. Putting |
43 ;; underscore in word class breaks forward word movement behavior that | |
18842
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
44 ;; users are familiar with. Besides, this runs counter to Emacs |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
45 ;; convention. |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
46 ;; |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
47 ;; I suspect this definition isn't correct in light of Java's |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
48 ;; definition of a symbol as being Unicode. I know so little about |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
49 ;; I18N (except how to sound cool and say I18N :-) that I'm willing to |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
50 ;; punt on this for now. |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
51 |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
52 (defconst c-symbol-key "[_a-zA-Z]\\(\\w\\|\\s_\\)*") |
18720 | 53 |
54 | |
55 ;; keywords introducing class definitions. language specific | |
56 (defconst c-C-class-key "\\(struct\\|union\\)") | |
57 (defconst c-C++-class-key "\\(class\\|struct\\|union\\)") | |
58 | |
59 (defconst c-ObjC-class-key | |
60 (concat | |
61 "@\\(interface\\|implementation\\)\\s +" | |
62 c-symbol-key ;name of the class | |
63 "\\(\\s *:\\s *" c-symbol-key "\\)?" ;maybe followed by the superclass | |
64 "\\(\\s *<[^>]+>\\)?" ;and maybe the adopted protocols list | |
65 )) | |
66 | |
67 (defconst c-Java-class-key | |
68 (concat | |
69 "\\(" c-protection-key "\\s +\\)?" | |
70 "\\(interface\\|class\\)\\s +" | |
71 c-symbol-key ;name of the class | |
72 "\\(\\s *extends\\s *" c-symbol-key "\\)?" ;maybe followed by superclass | |
73 ;;"\\(\\s *implements *[^{]+{\\)?" ;maybe the adopted protocols list | |
74 )) | |
75 | |
76 (defvar c-class-key c-C-class-key) | |
77 (make-variable-buffer-local 'c-class-key) | |
78 | |
79 | |
80 ;; regexp describing access protection clauses. language specific | |
81 (defvar c-access-key nil) | |
82 (make-variable-buffer-local 'c-access-key) | |
83 (defconst c-C++-access-key (concat c-protection-key "[ \t]*:")) | |
84 (defconst c-ObjC-access-key (concat "@" c-protection-key)) | |
85 (defconst c-Java-access-key nil) | |
86 | |
87 | |
88 ;; keywords introducing conditional blocks | |
89 (defconst c-C-conditional-key nil) | |
90 (defconst c-C++-conditional-key nil) | |
91 (defconst c-Java-conditional-key nil) | |
92 | |
93 (let ((all-kws "for\\|if\\|do\\|else\\|while\\|switch") | |
94 (exc-kws "\\|try\\|catch") | |
95 (thr-kws "\\|finally\\|synchronized") | |
96 (front "\\b\\(") | |
97 (back "\\)\\b[^_]")) | |
98 (setq c-C-conditional-key (concat front all-kws back) | |
99 c-C++-conditional-key (concat front all-kws exc-kws back) | |
100 c-Java-conditional-key (concat front all-kws exc-kws thr-kws back))) | |
101 | |
102 (defvar c-conditional-key c-C-conditional-key) | |
103 (make-variable-buffer-local 'c-conditional-key) | |
104 | |
105 | |
106 ;; keywords describing method definition introductions | |
107 (defvar c-method-key nil) | |
108 (make-variable-buffer-local 'c-method-key) | |
109 | |
110 (defconst c-ObjC-method-key | |
111 (concat | |
112 "^\\s *[+-]\\s *" | |
113 "\\(([^)]*)\\)?" ; return type | |
114 ;; \\s- in objc syntax table does not include \n | |
115 ;; since it is considered the end of //-comments. | |
116 "[ \t\n]*" c-symbol-key)) | |
117 | |
118 (defconst c-Java-method-key | |
119 (concat | |
120 "^\\s *[+-]\\s *" | |
121 "\\(([^)]*)\\)?" ; return type | |
122 ;; \\s- in java syntax table does not include \n | |
123 ;; since it is considered the end of //-comments. | |
124 "[ \t\n]*" c-symbol-key)) | |
125 | |
126 | |
127 ;; comment starter definitions for various languages. language specific | |
128 (defconst c-C-comment-start-regexp "/[*]") | |
129 (defconst c-C++-comment-start-regexp "/[/*]") | |
130 ;; We need to match all 3 Java style comments | |
131 ;; 1) Traditional C block; 2) javadoc /** ...; 3) C++ style | |
132 (defconst c-Java-comment-start-regexp "/\\(/\\|[*][*]?\\)") | |
133 (defvar c-comment-start-regexp c-C-comment-start-regexp) | |
134 (make-variable-buffer-local 'c-comment-start-regexp) | |
135 | |
136 | |
137 | |
138 ;; Regexp describing a switch's case or default label for all languages | |
139 (defconst c-switch-label-key "\\(\\(case[( \t]+\\S .*\\)\\|default[ \t]*\\):") | |
140 ;; Regexp describing any label. | |
141 (defconst c-label-key (concat c-symbol-key ":\\([^:]\\|$\\)")) | |
142 | |
143 ;; Regexp describing class inheritance declarations. TBD: this should | |
144 ;; be language specific, and only makes sense for C++ | |
145 (defconst c-inher-key | |
146 (concat "\\(\\<static\\>\\s +\\)?" | |
147 c-C++-class-key "[ \t]+" c-symbol-key | |
148 "\\([ \t]*:[ \t]*\\)\\s *[^;]")) | |
149 | |
150 ;; Regexp describing C++ base classes in a derived class definition. | |
151 ;; TBD: this should be language specific, and only makes sense for C++ | |
152 (defvar c-baseclass-key | |
153 (concat | |
154 ":?[ \t]*\\(virtual[ \t]+\\)?\\(" | |
155 c-protection-key "[ \t]+\\)" c-symbol-key)) | |
156 (make-variable-buffer-local 'c-baseclass-key) | |
157 | |
158 ;; Regexp describing friend declarations in C++ classes. | |
159 (defconst c-C++-friend-key | |
160 "friend[ \t]+\\|template[ \t]*<.+>[ \t]*friend[ \t]+") | |
161 | |
162 ;; Regexp describing Java inheritance and throws clauses. | |
163 (defconst c-Java-special-key "\\(implements\\|extends\\|throws\\)[^_]") | |
164 | |
165 ;; Regexp describing the beginning of a Java top-level definition. | |
166 (defconst c-Java-defun-prompt-regexp | |
167 "^[ \t]*\\(\\(\\(public\\|protected\\|private\\|const\\|abstract\\|synchronized\\|final\\|static\\|threadsafe\\|transient\\|native\\|volatile\\)\\s-+\\)*\\(\\(\\([[a-zA-Z][][_$.a-zA-Z0-9]*[][_$.a-zA-Z0-9]+\\|[[a-zA-Z]\\)\\s-*\\)\\s-+\\)\\)?\\(\\([[a-zA-Z][][_$.a-zA-Z0-9]*\\s-+\\)\\s-*\\)?\\([_a-zA-Z][^][ \t:;.,{}()=]*\\|\\([_$a-zA-Z][_$.a-zA-Z0-9]*\\)\\)\\s-*\\(([^);{}]*)\\)?\\([] \t]*\\)\\(\\s-*\\<throws\\>\\s-*\\(\\([_$a-zA-Z][_$.a-zA-Z0-9]*\\)[, \t\n\r\f]*\\)+\\)?\\s-*") | |
168 | |
169 | |
170 | |
171 ;; internal state variables | |
172 | |
173 ;; Internal state of hungry delete key feature | |
174 (defvar c-hungry-delete-key nil) | |
175 (make-variable-buffer-local 'c-hungry-delete-key) | |
176 | |
177 ;; Internal state of auto newline feature. | |
178 (defvar c-auto-newline nil) | |
179 (make-variable-buffer-local 'c-auto-newline) | |
180 | |
181 ;; Internal auto-newline/hungry-delete designation string for mode line. | |
182 (defvar c-auto-hungry-string nil) | |
183 (make-variable-buffer-local 'c-auto-hungry-string) | |
184 | |
185 ;; Buffer local language-specific comment style flag. | |
186 (defvar c-double-slash-is-comments-p nil) | |
187 (make-variable-buffer-local 'c-double-slash-is-comments-p) | |
188 | |
189 ;; Non-nil means K&R style argument declarations are valid. | |
190 (defvar c-recognize-knr-p t) | |
191 (make-variable-buffer-local 'c-recognize-knr-p) | |
192 | |
193 | |
194 | |
195 (defun c-use-java-style () | |
196 "Institutes `java' indentation style. | |
197 For use with the variable `java-mode-hook'." | |
198 (c-set-style "java")) | |
199 | |
200 (defun c-common-init () | |
201 ;; Common initializations for all modes. | |
202 ;; these variables should always be buffer local; they do not affect | |
203 ;; indentation style. | |
204 (make-local-variable 'paragraph-start) | |
205 (make-local-variable 'paragraph-separate) | |
206 (make-local-variable 'paragraph-ignore-fill-prefix) | |
207 (make-local-variable 'require-final-newline) | |
208 (make-local-variable 'parse-sexp-ignore-comments) | |
209 (make-local-variable 'indent-line-function) | |
210 (make-local-variable 'indent-region-function) | |
211 (make-local-variable 'comment-start) | |
212 (make-local-variable 'comment-end) | |
213 (make-local-variable 'comment-column) | |
214 (make-local-variable 'comment-start-skip) | |
215 (make-local-variable 'comment-multi-line) | |
216 (make-local-variable 'outline-regexp) | |
217 (make-local-variable 'outline-level) | |
218 (make-local-variable 'adaptive-fill-regexp) | |
219 (make-local-variable 'imenu-generic-expression) ;set in the mode functions | |
220 ;; Emacs 19.30 and beyond only, AFAIK | |
221 (if (boundp 'fill-paragraph-function) | |
222 (progn | |
223 (make-local-variable 'fill-paragraph-function) | |
224 (setq fill-paragraph-function 'c-fill-paragraph))) | |
225 ;; now set their values | |
226 (setq paragraph-start (concat page-delimiter "\\|$") | |
227 paragraph-separate paragraph-start | |
228 paragraph-ignore-fill-prefix t | |
229 require-final-newline t | |
230 parse-sexp-ignore-comments t | |
231 indent-line-function 'c-indent-line | |
232 indent-region-function 'c-indent-region | |
233 outline-regexp "[^#\n\^M]" | |
234 outline-level 'c-outline-level | |
235 comment-column 32 | |
236 comment-start-skip "/\\*+ *\\|// *" | |
237 adaptive-fill-regexp nil) | |
238 ;; we have to do something special for c-offsets-alist so that the | |
239 ;; buffer local value has its own alist structure. | |
240 (setq c-offsets-alist (copy-alist c-offsets-alist)) | |
241 ;; setup the comment indent variable in a Emacs version portable way | |
242 ;; ignore any byte compiler warnings you might get here | |
243 (make-local-variable 'comment-indent-function) | |
244 (setq comment-indent-function 'c-comment-indent) | |
245 ;; add menus to menubar | |
246 (easy-menu-add (c-mode-menu mode-name)) | |
247 ;; put auto-hungry designators onto minor-mode-alist, but only once | |
248 (or (assq 'c-auto-hungry-string minor-mode-alist) | |
249 (setq minor-mode-alist | |
250 (cons '(c-auto-hungry-string c-auto-hungry-string) | |
251 minor-mode-alist)))) | |
252 | |
253 (defun c-postprocess-file-styles () | |
254 "Function that post processes relevant file local variables. | |
255 Currently, this function simply applies any style and offset settings | |
256 found in the file's Local Variable list. It first applies any style | |
257 setting found in `c-file-style', then it applies any offset settings | |
258 it finds in `c-file-offsets'." | |
259 ;; apply file styles and offsets | |
260 (and c-file-style | |
261 (c-set-style c-file-style)) | |
262 (and c-file-offsets | |
263 (mapcar | |
264 (function | |
265 (lambda (langentry) | |
266 (let ((langelem (car langentry)) | |
267 (offset (cdr langentry))) | |
268 (c-set-offset langelem offset) | |
269 ))) | |
270 c-file-offsets))) | |
271 | |
272 (add-hook 'hack-local-variables-hook 'c-postprocess-file-styles) | |
273 | |
274 | |
275 ;; Common routines | |
18842
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
276 (defun c-make-inherited-keymap () |
18720 | 277 (let ((map (make-sparse-keymap))) |
278 (cond | |
279 ;; XEmacs 19 & 20 | |
280 ((fboundp 'set-keymap-parents) | |
281 (set-keymap-parents map c-mode-base-map)) | |
282 ;; Emacs 19 | |
283 ((fboundp 'set-keymap-parent) | |
284 (set-keymap-parent map c-mode-base-map)) | |
285 ;; incompatible | |
286 (t (error "CC Mode is incompatible with this version of Emacs"))) | |
287 map)) | |
288 | |
289 (defun c-populate-syntax-table (table) | |
290 ;; Populate the syntax TABLE | |
291 ;; DO NOT TRY TO SET _ (UNDERSCORE) TO WORD CLASS! | |
292 (modify-syntax-entry ?_ "_" table) | |
293 (modify-syntax-entry ?\\ "\\" table) | |
294 (modify-syntax-entry ?+ "." table) | |
295 (modify-syntax-entry ?- "." table) | |
296 (modify-syntax-entry ?= "." table) | |
297 (modify-syntax-entry ?% "." table) | |
298 (modify-syntax-entry ?< "." table) | |
299 (modify-syntax-entry ?> "." table) | |
300 (modify-syntax-entry ?& "." table) | |
301 (modify-syntax-entry ?| "." table) | |
302 (modify-syntax-entry ?\' "\"" table)) | |
303 | |
304 (defun c-setup-dual-comments (table) | |
305 ;; Set up TABLE to handle block and line style comments | |
306 (cond | |
307 ;; XEmacs 19 & 20 | |
308 ((memq '8-bit c-emacs-features) | |
309 (modify-syntax-entry ?/ ". 1456" table) | |
310 (modify-syntax-entry ?* ". 23" table) | |
311 (modify-syntax-entry ?\n "> b" table) | |
312 ;; Give CR the same syntax as newline, for selective-display | |
313 (modify-syntax-entry ?\^m "> b" table)) | |
314 ;; Emacs 19 | |
315 ((memq '1-bit c-emacs-features) | |
316 (modify-syntax-entry ?/ ". 124b" table) | |
317 (modify-syntax-entry ?* ". 23" table) | |
318 (modify-syntax-entry ?\n "> b" table) | |
319 ;; Give CR the same syntax as newline, for selective-display | |
320 (modify-syntax-entry ?\^m "> b" table)) | |
321 ;; incompatible | |
322 (t (error "CC Mode is incompatible with this version of Emacs")) | |
323 )) | |
324 | |
325 (defvar c-mode-base-map () | |
326 "Keymap shared by all CC Mode related modes.") | |
327 | |
328 (if c-mode-base-map | |
329 nil | |
330 ;; TBD: should we even worry about naming this keymap. My vote: no, | |
331 ;; because Emacs and XEmacs do it differently. | |
332 (setq c-mode-base-map (make-sparse-keymap)) | |
333 ;; put standard keybindings into MAP | |
334 ;; the following mappings correspond more or less directly to BOCM | |
335 (define-key c-mode-base-map "{" 'c-electric-brace) | |
336 (define-key c-mode-base-map "}" 'c-electric-brace) | |
337 (define-key c-mode-base-map ";" 'c-electric-semi&comma) | |
338 (define-key c-mode-base-map "#" 'c-electric-pound) | |
339 (define-key c-mode-base-map ":" 'c-electric-colon) | |
340 ;; Lucid Emacs 19.9 defined these two, the second of which was | |
341 ;; commented out... | |
342 ;; (define-key c-mode-base-map "\e{" 'c-insert-braces) | |
343 ;; Commented out electric square brackets because nobody likes them. | |
344 ;; (define-key c-mode-base-map "[" 'c-insert-brackets) | |
345 (define-key c-mode-base-map "\C-c\C-m" 'c-mark-function) | |
346 (define-key c-mode-base-map "\e\C-q" 'c-indent-exp) | |
347 (define-key c-mode-base-map "\ea" 'c-beginning-of-statement) | |
348 (define-key c-mode-base-map "\ee" 'c-end-of-statement) | |
349 (define-key c-mode-base-map "\C-c\C-n" 'c-forward-conditional) | |
350 (define-key c-mode-base-map "\C-c\C-p" 'c-backward-conditional) | |
351 (define-key c-mode-base-map "\C-c\C-u" 'c-up-conditional) | |
352 (define-key c-mode-base-map "\t" 'c-indent-command) | |
353 ;; Caution! Enter here at your own risk. We are trying to support | |
354 ;; several behaviors and it gets disgusting. :-( | |
355 ;; | |
356 ;; In XEmacs 19, Emacs 19, and Emacs 20, we use this to bind | |
357 ;; backwards deletion behavior to DEL, which both Delete and | |
358 ;; Backspace get translated to. There's no way to separate this | |
359 ;; behavior in a clean way, so deal with it! Besides, it's been | |
360 ;; this way since the dawn of BOCM. | |
361 (if (not (boundp 'delete-key-deletes-forward)) | |
362 (define-key c-mode-base-map "\177" 'c-electric-backspace) | |
363 ;; However, XEmacs 20 actually achieved enlightenment. It is | |
364 ;; possible to sanely define both backward and forward deletion | |
365 ;; behavior under X separately (TTYs are forever beyond hope, but | |
366 ;; who cares? XEmacs 20 does the right thing with these too). | |
367 (define-key c-mode-base-map [delete] 'c-electric-delete) | |
368 (define-key c-mode-base-map [backspace] 'c-electric-backspace)) | |
369 ;; these are new keybindings, with no counterpart to BOCM | |
370 (define-key c-mode-base-map "," 'c-electric-semi&comma) | |
371 (define-key c-mode-base-map "*" 'c-electric-star) | |
372 (define-key c-mode-base-map "\C-c\C-q" 'c-indent-defun) | |
373 (define-key c-mode-base-map "\C-c\C-\\" 'c-backslash-region) | |
374 ;; TBD: where if anywhere, to put c-backward|forward-into-nomenclature | |
375 (define-key c-mode-base-map "\C-c\C-a" 'c-toggle-auto-state) | |
376 (define-key c-mode-base-map "\C-c\C-b" 'c-submit-bug-report) | |
377 (define-key c-mode-base-map "\C-c\C-c" 'comment-region) | |
378 (define-key c-mode-base-map "\C-c\C-d" 'c-toggle-hungry-state) | |
379 (define-key c-mode-base-map "\C-c\C-e" 'c-macro-expand) | |
380 (define-key c-mode-base-map "\C-c\C-o" 'c-set-offset) | |
381 (define-key c-mode-base-map "\C-c\C-s" 'c-show-syntactic-information) | |
382 (define-key c-mode-base-map "\C-c\C-t" 'c-toggle-auto-hungry-state) | |
383 (define-key c-mode-base-map "\C-c." 'c-set-style) | |
384 ;; conflicts with OOBR | |
385 ;;(define-key c-mode-base-map "\C-c\C-v" 'c-version) | |
386 ) | |
387 | |
388 ;; menu support for both XEmacs and Emacs. If you don't have easymenu | |
389 ;; with your version of Emacs, you are incompatible! | |
390 (require 'easymenu) | |
391 | |
392 (defvar c-c-menu nil) | |
393 (defvar c-c++-menu nil) | |
394 (defvar c-objc-menu nil) | |
395 (defvar c-java-menu nil) | |
396 | |
397 (defun c-mode-menu (modestr) | |
398 (let ((m | |
399 '(["Comment Out Region" comment-region (mark)] | |
18842
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
400 ["Uncomment Region" |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
401 (comment-region (region-beginning) (region-end) '(4)) |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
402 (mark)] |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
403 ["Fill Comment Paragraph" c-fill-paragraph t] |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
404 "---" |
18720 | 405 ["Indent Expression" c-indent-exp |
406 (memq (char-after) '(?\( ?\[ ?\{))] | |
407 ["Indent Line" c-indent-command t] | |
408 ["Up Conditional" c-up-conditional t] | |
409 ["Backward Conditional" c-backward-conditional t] | |
410 ["Forward Conditional" c-forward-conditional t] | |
411 ["Backward Statement" c-beginning-of-statement t] | |
412 ["Forward Statement" c-end-of-statement t] | |
18842
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
413 "---" |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
414 ["Macro Expand Region" c-macro-expand (mark)] |
72c2475ece1c
Require 'cc-defs for the definition of c-emacs-features.
Richard M. Stallman <rms@gnu.org>
parents:
18772
diff
changeset
|
415 ["Backslashify" c-backslash-region (mark)] |
18720 | 416 ))) |
417 (cons modestr m))) | |
418 | |
419 | |
420 | |
421 ;; Support for C | |
422 | |
423 (defvar c-mode-abbrev-table nil | |
19250 | 424 "Abbreviation table used in c-mode buffers.") |
18720 | 425 (define-abbrev-table 'c-mode-abbrev-table ()) |
426 | |
427 (defvar c-mode-map () | |
428 "Keymap used in c-mode buffers.") | |
429 (if c-mode-map | |
430 nil | |
431 (setq c-mode-map (c-make-inherited-keymap)) | |
432 ;; add bindings which are only useful for C | |
433 ) | |
434 | |
435 ;;;###autoload | |
436 (defvar c-mode-syntax-table nil | |
437 "Syntax table used in c-mode buffers.") | |
438 (if c-mode-syntax-table | |
439 () | |
440 (setq c-mode-syntax-table (make-syntax-table)) | |
441 (c-populate-syntax-table c-mode-syntax-table) | |
442 ;; add extra comment syntax | |
443 (modify-syntax-entry ?/ ". 14" c-mode-syntax-table) | |
444 (modify-syntax-entry ?* ". 23" c-mode-syntax-table)) | |
445 | |
446 (defun c-enable-//-in-c-mode () | |
447 "Enables // as a comment delimiter in `c-mode'. | |
448 ANSI C currently does *not* allow this, although many C compilers | |
449 support optional C++ style comments. To use, call this function from | |
450 your `.emacs' file before you visit any C files. The changes are | |
451 global and affect all future `c-mode' buffers." | |
452 (c-setup-dual-comments c-mode-syntax-table) | |
453 (setq-default c-C-comment-start-regexp c-C++-comment-start-regexp)) | |
454 | |
455 (easy-menu-define c-c-menu c-mode-map "C Mode Commands" | |
456 (c-mode-menu "C")) | |
457 | |
458 | |
459 ;; Support for C++ | |
460 | |
461 (defvar c++-mode-abbrev-table nil | |
19250 | 462 "Abbreviation table used in c++-mode buffers.") |
18720 | 463 (define-abbrev-table 'c++-mode-abbrev-table ()) |
464 | |
465 (defvar c++-mode-map () | |
466 "Keymap used in c++-mode buffers.") | |
467 (if c++-mode-map | |
468 nil | |
469 (setq c++-mode-map (c-make-inherited-keymap)) | |
470 ;; add bindings which are only useful for C++ | |
471 (define-key c++-mode-map "\C-c:" 'c-scope-operator) | |
472 (define-key c++-mode-map "/" 'c-electric-slash) | |
473 (define-key c++-mode-map "<" 'c-electric-lt-gt) | |
474 (define-key c++-mode-map ">" 'c-electric-lt-gt)) | |
475 | |
476 (defvar c++-mode-syntax-table nil | |
477 "Syntax table used in c++-mode buffers.") | |
478 (if c++-mode-syntax-table | |
479 () | |
480 (setq c++-mode-syntax-table (make-syntax-table)) | |
481 (c-populate-syntax-table c++-mode-syntax-table) | |
482 ;; add extra comment syntax | |
483 (c-setup-dual-comments c++-mode-syntax-table) | |
484 ;; TBD: does it make sense for colon to be symbol class in C++? | |
485 ;; I'm not so sure, since c-label-key is busted on lines like: | |
486 ;; Foo::bar( i ); | |
487 ;; maybe c-label-key should be fixed instead of commenting this out, | |
488 ;; but it also bothers me that this only seems appropriate for C++ | |
489 ;; and not C. | |
490 ;;(modify-syntax-entry ?: "_" c++-mode-syntax-table) | |
491 ) | |
492 | |
493 (easy-menu-define c-c++-menu c++-mode-map "C++ Mode Commands" | |
494 (c-mode-menu "C++")) | |
495 | |
496 | |
497 ;; Support for Objective-C | |
498 | |
499 (defvar objc-mode-abbrev-table nil | |
19250 | 500 "Abbreviation table used in objc-mode buffers.") |
18720 | 501 (define-abbrev-table 'objc-mode-abbrev-table ()) |
502 | |
503 (defvar objc-mode-map () | |
504 "Keymap used in objc-mode buffers.") | |
505 (if objc-mode-map | |
506 nil | |
507 (setq objc-mode-map (c-make-inherited-keymap)) | |
508 ;; add bindings which are only useful for Objective-C | |
509 (define-key objc-mode-map "/" 'c-electric-slash)) | |
510 | |
511 (defvar objc-mode-syntax-table nil | |
512 "Syntax table used in objc-mode buffers.") | |
513 (if objc-mode-syntax-table | |
514 () | |
515 (setq objc-mode-syntax-table (make-syntax-table)) | |
516 (c-populate-syntax-table objc-mode-syntax-table) | |
517 ;; add extra comment syntax | |
518 (c-setup-dual-comments objc-mode-syntax-table) | |
519 ;; everyone gets these | |
520 (modify-syntax-entry ?@ "_" objc-mode-syntax-table) | |
521 ) | |
522 | |
523 (easy-menu-define c-objc-menu objc-mode-map "ObjC Mode Commands" | |
524 (c-mode-menu "ObjC")) | |
525 | |
526 | |
527 ;; Support for Java | |
528 | |
529 (defvar java-mode-abbrev-table nil | |
19250 | 530 "Abbreviation table used in java-mode buffers.") |
18720 | 531 (define-abbrev-table 'java-mode-abbrev-table ()) |
532 | |
533 (defvar java-mode-map () | |
534 "Keymap used in java-mode buffers.") | |
535 (if java-mode-map | |
536 nil | |
537 (setq java-mode-map (c-make-inherited-keymap)) | |
538 ;; add bindings which are only useful for Java | |
539 (define-key java-mode-map "/" 'c-electric-slash)) | |
540 | |
541 (defvar java-mode-syntax-table nil | |
542 "Syntax table used in java-mode buffers.") | |
543 (if java-mode-syntax-table | |
544 () | |
545 (setq java-mode-syntax-table (make-syntax-table)) | |
546 (c-populate-syntax-table java-mode-syntax-table) | |
547 ;; add extra comment syntax | |
548 (c-setup-dual-comments java-mode-syntax-table) | |
549 ;; everyone gets these | |
550 (modify-syntax-entry ?@ "_" java-mode-syntax-table) | |
551 ) | |
552 | |
553 (easy-menu-define c-java-menu java-mode-map "Java Mode Commands" | |
554 (c-mode-menu "Java")) | |
555 | |
556 | |
19250 | 557 ;; Support for CORBA's IDL language |
558 | |
559 (defvar idl-mode-abbrev-table nil | |
560 "Abbreviation table used in idl-mode buffers.") | |
561 (define-abbrev-table 'idl-mode-abbrev-table ()) | |
562 | |
563 (defvar idl-mode-map () | |
564 "Keymap used in idl-mode buffers.") | |
565 (if idl-mode-map | |
566 nil | |
567 (setq idl-mode-map (c-make-inherited-keymap)) | |
568 ;; additional bindings | |
569 (define-key idl-mode-map "/" 'c-electric-slash)) | |
570 | |
571 (defvar idl-mode-syntax-table nil | |
572 "Syntax table used in idl-mode buffers.") | |
573 (if idl-mode-syntax-table | |
574 nil | |
575 (setq idl-mode-syntax-table (make-syntax-table)) | |
576 (c-populate-syntax-table idl-mode-syntax-table) | |
577 ;; add extra comment syntax | |
578 (c-setup-dual-comments idl-mode-syntax-table) | |
579 ) | |
580 | |
581 (easy-menu-define c-idl-menu idl-mode-map "IDL Mode Commands" | |
582 (c-mode-menu "IDL")) | |
583 | |
584 | |
585 | |
18720 | 586 (provide 'cc-langs) |
587 ;;; cc-langs.el ends here |