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