Mercurial > emacs
annotate lisp/progmodes/cc-styles.el @ 38957:113b18d8a765
Add Keywords header. From Pavel Janik.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sun, 26 Aug 2001 16:34:04 +0000 |
parents | 7a94f1c588c4 |
children | 7a3ac6c387fe |
rev | line source |
---|---|
18720 | 1 ;;; cc-styles.el --- support for styles in CC Mode |
2 | |
36920 | 3 ;; Copyright (C) 1985,1987,1992-2001 Free Software Foundation, Inc. |
18720 | 4 |
30400
58d2360c8677
(c-style-alist): The basic offset for the BSD
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
5 ;; Authors: 2000- Martin Stjernholm |
58d2360c8677
(c-style-alist): The basic offset for the BSD
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
6 ;; 1998-1999 Barry A. Warsaw and Martin Stjernholm |
24282 | 7 ;; 1992-1997 Barry A. Warsaw |
18720 | 8 ;; 1987 Dave Detlefs and Stewart Clamen |
9 ;; 1985 Richard M. Stallman | |
24282 | 10 ;; Maintainer: bug-cc-mode@gnu.org |
18720 | 11 ;; Created: 22-Apr-1997 (split from cc-mode.el) |
20147 | 12 ;; Version: See cc-mode.el |
18720 | 13 ;; Keywords: c languages oop |
14 | |
15 ;; This file is part of GNU Emacs. | |
16 | |
17 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
18 ;; it under the terms of the GNU General Public License as published by | |
19 ;; the Free Software Foundation; either version 2, or (at your option) | |
20 ;; any later version. | |
21 | |
22 ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 ;; GNU General Public License for more details. | |
26 | |
27 ;; You should have received a copy of the GNU General Public License | |
36920 | 28 ;; along with this program; see the file COPYING. If not, write to |
29 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
18720 | 30 ;; Boston, MA 02111-1307, USA. |
31 | |
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38167
diff
changeset
|
32 ;;; Commentary: |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38167
diff
changeset
|
33 |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38167
diff
changeset
|
34 ;;; Code: |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38167
diff
changeset
|
35 |
26817 | 36 (eval-when-compile |
37 (let ((load-path | |
36920 | 38 (if (and (boundp 'byte-compile-dest-file) |
39 (stringp byte-compile-dest-file)) | |
40 (cons (file-name-directory byte-compile-dest-file) load-path) | |
26817 | 41 load-path))) |
36920 | 42 (require 'cc-bytecomp))) |
18720 | 43 |
36920 | 44 (cc-require 'cc-defs) |
45 (cc-require 'cc-vars) | |
24282 | 46 |
18720 | 47 |
24282 | 48 ;; Warning: don't eval-defun this constant or you'll break style inheritance. |
18720 | 49 (defconst c-style-alist |
50 '(("gnu" | |
51 (c-basic-offset . 2) | |
52 (c-comment-only-line-offset . (0 . 0)) | |
53 (c-offsets-alist . ((statement-block-intro . +) | |
54 (knr-argdecl-intro . 5) | |
55 (substatement-open . +) | |
56 (label . 0) | |
57 (statement-case-open . +) | |
58 (statement-cont . +) | |
59 (arglist-intro . c-lineup-arglist-intro-after-paren) | |
60 (arglist-close . c-lineup-arglist) | |
24282 | 61 (inline-open . 0) |
30400
58d2360c8677
(c-style-alist): The basic offset for the BSD
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
62 (brace-list-open . +) |
18720 | 63 )) |
64 (c-special-indent-hook . c-gnu-impose-minimum) | |
26817 | 65 (c-block-comment-prefix . "") |
18720 | 66 ) |
67 ("k&r" | |
68 (c-basic-offset . 5) | |
69 (c-comment-only-line-offset . 0) | |
70 (c-offsets-alist . ((statement-block-intro . +) | |
71 (knr-argdecl-intro . 0) | |
72 (substatement-open . 0) | |
73 (label . 0) | |
74 (statement-cont . +) | |
75 )) | |
76 ) | |
77 ("bsd" | |
30400
58d2360c8677
(c-style-alist): The basic offset for the BSD
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
78 (c-basic-offset . 8) |
18720 | 79 (c-comment-only-line-offset . 0) |
80 (c-offsets-alist . ((statement-block-intro . +) | |
81 (knr-argdecl-intro . +) | |
82 (substatement-open . 0) | |
83 (label . 0) | |
84 (statement-cont . +) | |
26817 | 85 (inline-open . 0) |
86 (inexpr-class . 0) | |
18720 | 87 )) |
88 ) | |
89 ("stroustrup" | |
90 (c-basic-offset . 4) | |
91 (c-comment-only-line-offset . 0) | |
92 (c-offsets-alist . ((statement-block-intro . +) | |
93 (substatement-open . 0) | |
94 (label . 0) | |
95 (statement-cont . +) | |
96 )) | |
97 ) | |
98 ("whitesmith" | |
99 (c-basic-offset . 4) | |
100 (c-comment-only-line-offset . 0) | |
26817 | 101 (c-offsets-alist . ((knr-argdecl-intro . +) |
18720 | 102 (label . 0) |
103 (statement-cont . +) | |
26817 | 104 (substatement-open . +) |
105 (block-open . +) | |
106 (statement-block-intro . c-lineup-whitesmith-in-block) | |
107 (block-close . c-lineup-whitesmith-in-block) | |
108 (inline-open . +) | |
109 (defun-open . +) | |
110 (defun-block-intro . c-lineup-whitesmith-in-block) | |
111 (defun-close . c-lineup-whitesmith-in-block) | |
112 (brace-list-open . +) | |
113 (brace-list-intro . c-lineup-whitesmith-in-block) | |
114 (brace-entry-open . c-indent-multi-line-block) | |
115 (brace-list-close . c-lineup-whitesmith-in-block) | |
116 (class-open . +) | |
117 (inclass . c-lineup-whitesmith-in-block) | |
118 (class-close . +) | |
119 (inexpr-class . 0) | |
120 (extern-lang-open . +) | |
121 (inextern-lang . c-lineup-whitesmith-in-block) | |
122 (extern-lang-close . +) | |
123 (namespace-open . +) | |
124 (innamespace . c-lineup-whitesmith-in-block) | |
125 (namespace-close . +) | |
18720 | 126 )) |
127 ) | |
128 ("ellemtel" | |
129 (c-basic-offset . 3) | |
130 (c-comment-only-line-offset . 0) | |
131 (c-hanging-braces-alist . ((substatement-open before after))) | |
132 (c-offsets-alist . ((topmost-intro . 0) | |
133 (topmost-intro-cont . 0) | |
134 (substatement . +) | |
135 (substatement-open . 0) | |
136 (case-label . +) | |
137 (access-label . -) | |
138 (inclass . ++) | |
139 (inline-open . 0) | |
140 )) | |
141 ) | |
142 ("linux" | |
143 (c-basic-offset . 8) | |
144 (c-comment-only-line-offset . 0) | |
145 (c-hanging-braces-alist . ((brace-list-open) | |
24282 | 146 (brace-entry-open) |
18720 | 147 (substatement-open after) |
148 (block-close . c-snug-do-while))) | |
149 (c-cleanup-list . (brace-else-brace)) | |
150 (c-offsets-alist . ((statement-block-intro . +) | |
151 (knr-argdecl-intro . 0) | |
152 (substatement-open . 0) | |
153 (label . 0) | |
154 (statement-cont . +) | |
155 )) | |
156 ) | |
157 ("python" | |
158 (indent-tabs-mode . t) | |
26817 | 159 (fill-column . 78) |
18720 | 160 (c-basic-offset . 8) |
161 (c-offsets-alist . ((substatement-open . 0) | |
19807
86412da1174b
(c-style-alist) <python>:, knr-argdecl-intro == +
Richard M. Stallman <rms@gnu.org>
parents:
19376
diff
changeset
|
162 (inextern-lang . 0) |
86412da1174b
(c-style-alist) <python>:, knr-argdecl-intro == +
Richard M. Stallman <rms@gnu.org>
parents:
19376
diff
changeset
|
163 (arglist-intro . +) |
86412da1174b
(c-style-alist) <python>:, knr-argdecl-intro == +
Richard M. Stallman <rms@gnu.org>
parents:
19376
diff
changeset
|
164 (knr-argdecl-intro . +) |
18720 | 165 )) |
166 (c-hanging-braces-alist . ((brace-list-open) | |
167 (brace-list-intro) | |
168 (brace-list-close) | |
24282 | 169 (brace-entry-open) |
18720 | 170 (substatement-open after) |
171 (block-close . c-snug-do-while) | |
172 )) | |
26817 | 173 (c-block-comment-prefix . "") |
18720 | 174 ) |
175 ("java" | |
20918
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
176 (c-basic-offset . 4) |
18720 | 177 (c-comment-only-line-offset . (0 . 0)) |
19254
81353d4e05b7
(c-styles-alist): In "java" style, set
Richard M. Stallman <rms@gnu.org>
parents:
19212
diff
changeset
|
178 ;; the following preserves Javadoc starter lines |
20918
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
179 (c-offsets-alist . ((inline-open . 0) |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
180 (topmost-intro-cont . +) |
18720 | 181 (statement-block-intro . +) |
182 (knr-argdecl-intro . 5) | |
183 (substatement-open . +) | |
26817 | 184 (label . +) |
18720 | 185 (statement-case-open . +) |
186 (statement-cont . +) | |
187 (arglist-intro . c-lineup-arglist-intro-after-paren) | |
188 (arglist-close . c-lineup-arglist) | |
189 (access-label . 0) | |
190 (inher-cont . c-lineup-java-inher) | |
191 (func-decl-cont . c-lineup-java-throws) | |
192 )) | |
193 ) | |
194 ) | |
195 "Styles of indentation. | |
196 Elements of this alist are of the form: | |
197 | |
198 (STYLE-STRING [BASE-STYLE] (VARIABLE . VALUE) [(VARIABLE . VALUE) ...]) | |
199 | |
200 where STYLE-STRING is a short descriptive string used to select a | |
201 style, VARIABLE is any Emacs variable, and VALUE is the intended value | |
202 for that variable when using the selected style. | |
203 | |
204 Optional BASE-STYLE if present, is a string and must follow | |
205 STYLE-STRING. BASE-STYLE names a style that this style inherits from. | |
26817 | 206 By default, all styles inherit from the \"user\" style, which is |
18720 | 207 computed at run time. Style loops generate errors. |
208 | |
209 Two variables are treated specially. When VARIABLE is | |
210 `c-offsets-alist', the VALUE is a list containing elements of the | |
211 form: | |
212 | |
213 (SYNTACTIC-SYMBOL . OFFSET) | |
214 | |
215 as described in `c-offsets-alist'. These are passed directly to | |
216 `c-set-offset' so there is no need to set every syntactic symbol in | |
217 your style, only those that are different from the default. | |
218 | |
219 When VARIABLE is `c-special-indent-hook', its VALUE is added to | |
220 `c-special-indent-hook' using `add-hook'. If VALUE is a list, each | |
221 element of the list is added with `add-hook'. | |
222 | |
223 Do not change this variable directly. Use the function `c-add-style' | |
224 to add new styles or modify existing styles (it is not a good idea to | |
225 modify existing styles -- you should create a new style that inherits | |
226 the existing style.") | |
227 | |
26817 | 228 |
18720 | 229 |
230 ;; Functions that manipulate styles | |
26817 | 231 (defun c-set-style-1 (conscell dont-override) |
18720 | 232 ;; Set the style for one variable |
233 (let ((attr (car conscell)) | |
234 (val (cdr conscell))) | |
235 (cond | |
236 ;; first special variable | |
237 ((eq attr 'c-offsets-alist) | |
238 (mapcar | |
239 (function | |
240 (lambda (langentry) | |
241 (let ((langelem (car langentry)) | |
242 (offset (cdr langentry))) | |
26817 | 243 (unless (and dont-override |
244 (assq langelem c-offsets-alist)) | |
245 (c-set-offset langelem offset)) | |
18720 | 246 ))) |
26817 | 247 (if dont-override (reverse val) val))) |
18720 | 248 ;; second special variable |
249 ((eq attr 'c-special-indent-hook) | |
26817 | 250 (let ((add-func (if dont-override |
251 (lambda (func) | |
252 (unless (memq func c-special-indent-hook) | |
253 (add-hook 'c-special-indent-hook func t))) | |
254 (lambda (func) | |
255 (add-hook 'c-special-indent-hook func))))) | |
256 (if (listp val) | |
257 (mapcar add-func (if dont-override (reverse val) val)) | |
258 (funcall add-func val)))) | |
18720 | 259 ;; all other variables |
26817 | 260 (t (if (or (not dont-override) |
261 (not (memq attr c-style-variables)) | |
262 (eq (symbol-value attr) 'set-from-style)) | |
263 (set attr val)))) | |
18720 | 264 )) |
265 | |
26817 | 266 (defun c-get-style-variables (style basestyles) |
267 ;; Return all variables in a style by resolving inheritances. | |
18720 | 268 (let ((vars (cdr (or (assoc (downcase style) c-style-alist) |
269 (assoc (upcase style) c-style-alist) | |
270 (assoc style c-style-alist) | |
271 (error "Undefined style: %s" style))))) | |
26817 | 272 (if (string-equal style "user") |
273 (copy-alist vars) | |
274 (let ((base (if (stringp (car vars)) | |
275 (prog1 | |
276 (downcase (car vars)) | |
277 (setq vars (cdr vars))) | |
278 "user"))) | |
279 (if (memq base basestyles) | |
280 (error "Style loop detected: %s in %s" base basestyles)) | |
281 (nconc (c-get-style-variables base (cons base basestyles)) | |
282 (copy-alist vars)))))) | |
283 | |
18720 | 284 (defvar c-set-style-history nil) |
285 | |
286 ;;;###autoload | |
26817 | 287 (defun c-set-style (stylename &optional dont-override) |
18720 | 288 "Set CC Mode variables to use one of several different indentation styles. |
289 STYLENAME is a string representing the desired style from the list of | |
290 styles described in the variable `c-style-alist'. See that variable | |
291 for details of setting up styles. | |
292 | |
293 The variable `c-indentation-style' always contains the buffer's current | |
26817 | 294 style name. |
295 | |
296 If the optional argument DONT-OVERRIDE is non-nil, no style variables | |
297 that already have values will be overridden. I.e. in the case of | |
298 `c-offsets-alist', syntactic symbols will only be added, and in the | |
299 case of all other style variables, only those set to `set-from-style' | |
300 will be reassigned. | |
301 | |
302 Obviously, specifying DONT-OVERRIDE is useful mainly when the initial | |
303 style is chosen for a CC Mode buffer by a major mode. Since this is | |
304 done internally by CC Mode, there's hardly ever a reason to use it." | |
18720 | 305 (interactive (list (let ((completion-ignore-case t) |
306 (prompt (format "Which %s indentation style? " | |
307 mode-name))) | |
308 (completing-read prompt c-style-alist nil t | |
38167
728d49350f43
(c-set-style): Don't specify initial contents for completing-read.
Richard M. Stallman <rms@gnu.org>
parents:
36920
diff
changeset
|
309 nil |
728d49350f43
(c-set-style): Don't specify initial contents for completing-read.
Richard M. Stallman <rms@gnu.org>
parents:
36920
diff
changeset
|
310 'c-set-style-history |
728d49350f43
(c-set-style): Don't specify initial contents for completing-read.
Richard M. Stallman <rms@gnu.org>
parents:
36920
diff
changeset
|
311 c-indentation-style)))) |
19254
81353d4e05b7
(c-styles-alist): In "java" style, set
Richard M. Stallman <rms@gnu.org>
parents:
19212
diff
changeset
|
312 (c-initialize-builtin-style) |
26817 | 313 (let ((vars (c-get-style-variables stylename nil))) |
314 (mapcar (lambda (elem) | |
315 (c-set-style-1 elem dont-override)) | |
316 ;; Need to go through the variables backwards when we | |
317 ;; don't override. | |
318 (if dont-override (nreverse vars) vars))) | |
18720 | 319 (setq c-indentation-style stylename) |
320 (c-keep-region-active)) | |
321 | |
322 ;;;###autoload | |
323 (defun c-add-style (style descrip &optional set-p) | |
324 "Adds a style to `c-style-alist', or updates an existing one. | |
325 STYLE is a string identifying the style to add or update. DESCRIP is | |
326 an association list describing the style and must be of the form: | |
327 | |
328 ([BASESTYLE] (VARIABLE . VALUE) [(VARIABLE . VALUE) ...]) | |
329 | |
330 See the variable `c-style-alist' for the semantics of BASESTYLE, | |
331 VARIABLE and VALUE. This function also sets the current style to | |
332 STYLE using `c-set-style' if the optional SET-P flag is non-nil." | |
333 (interactive | |
334 (let ((stylename (completing-read "Style to add: " c-style-alist | |
335 nil nil nil 'c-set-style-history)) | |
336 (description (eval-minibuffer "Style description: "))) | |
337 (list stylename description | |
338 (y-or-n-p "Set the style too? ")))) | |
339 (setq style (downcase style)) | |
340 (let ((s (assoc style c-style-alist))) | |
341 (if s | |
342 (setcdr s (copy-alist descrip)) ; replace | |
343 (setq c-style-alist (cons (cons style descrip) c-style-alist)))) | |
344 (and set-p (c-set-style style))) | |
345 | |
346 | |
347 | |
348 (defvar c-read-offset-history nil) | |
349 | |
350 (defun c-read-offset (langelem) | |
351 ;; read new offset value for LANGELEM from minibuffer. return a | |
352 ;; legal value only | |
26817 | 353 (let* ((oldoff (cdr-safe (or (assq langelem c-offsets-alist) |
354 (assq langelem (get 'c-offsets-alist | |
355 'c-stylevar-fallback))))) | |
24282 | 356 (symname (symbol-name langelem)) |
357 (defstr (format "(default %s): " oldoff)) | |
36920 | 358 (errmsg (concat "Offset must be int, func, var, vector, list, " |
24282 | 359 "or [+,-,++,--,*,/] " |
360 defstr)) | |
361 (prompt (concat symname " offset " defstr)) | |
18720 | 362 offset input interned raw) |
363 (while (not offset) | |
364 (setq input (completing-read prompt obarray 'fboundp nil nil | |
365 'c-read-offset-history) | |
366 offset (cond ((string-equal "" input) oldoff) ; default | |
367 ((string-equal "+" input) '+) | |
368 ((string-equal "-" input) '-) | |
369 ((string-equal "++" input) '++) | |
370 ((string-equal "--" input) '--) | |
371 ((string-equal "*" input) '*) | |
372 ((string-equal "/" input) '/) | |
373 ((string-match "^-?[0-9]+$" input) | |
374 (string-to-int input)) | |
375 ;; a symbol with a function binding | |
376 ((fboundp (setq interned (intern input))) | |
377 interned) | |
378 ;; a symbol with variable binding | |
379 ((boundp interned) interned) | |
36920 | 380 ;; a lambda function or a vector |
381 ((progn | |
382 (c-safe (setq raw (read input))) | |
383 (or (functionp raw) | |
384 (vectorp raw))) | |
385 raw) | |
18720 | 386 ;; error, but don't signal one, keep trying |
387 ;; to read an input value | |
388 (t (ding) | |
389 (setq prompt errmsg) | |
390 nil)))) | |
391 offset)) | |
392 | |
19212
024594beef65
(c-set-offset): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
18845
diff
changeset
|
393 ;;;###autoload |
26817 | 394 (defun c-set-offset (symbol offset &optional ignored) |
18720 | 395 "Change the value of a syntactic element symbol in `c-offsets-alist'. |
396 SYMBOL is the syntactic element symbol to change and OFFSET is the new | |
26817 | 397 offset for that syntactic element. The optional argument is not used |
398 and exists only for compatibility reasons." | |
18720 | 399 (interactive |
400 (let* ((langelem | |
401 (intern (completing-read | |
402 (concat "Syntactic symbol to change" | |
403 (if current-prefix-arg " or add" "") | |
404 ": ") | |
405 (mapcar | |
406 #'(lambda (langelem) | |
407 (cons (format "%s" (car langelem)) nil)) | |
26817 | 408 (get 'c-offsets-alist 'c-stylevar-fallback)) |
18720 | 409 nil (not current-prefix-arg) |
410 ;; initial contents tries to be the last element | |
411 ;; on the syntactic analysis list for the current | |
412 ;; line | |
413 (let* ((syntax (c-guess-basic-syntax)) | |
414 (len (length syntax)) | |
415 (ic (format "%s" (car (nth (1- len) syntax))))) | |
416 (cons ic 0)) | |
417 ))) | |
418 (offset (c-read-offset langelem))) | |
419 (list langelem offset current-prefix-arg))) | |
420 ;; sanity check offset | |
26817 | 421 (unless (c-valid-offset offset) |
36920 | 422 (error (concat "Offset must be int, func, var, vector, list, " |
423 "or in [+,-,++,--,*,/]: %s") | |
26817 | 424 offset)) |
18720 | 425 (let ((entry (assq symbol c-offsets-alist))) |
426 (if entry | |
427 (setcdr entry offset) | |
26817 | 428 (if (assq symbol (get 'c-offsets-alist 'c-stylevar-fallback)) |
18720 | 429 (setq c-offsets-alist (cons (cons symbol offset) c-offsets-alist)) |
26817 | 430 (error "%s is not a valid syntactic symbol" symbol)))) |
18720 | 431 (c-keep-region-active)) |
432 | |
26817 | 433 |
24282 | 434 |
18720 | 435 (defun c-initialize-builtin-style () |
436 ;; Dynamically append the default value of most variables. This is | |
437 ;; crucial because future c-set-style calls will always reset the | |
438 ;; variables first to the `cc-mode' style before instituting the new | |
439 ;; style. Only do this once! | |
24282 | 440 (unless (get 'c-initialize-builtin-style 'is-run) |
441 (put 'c-initialize-builtin-style 'is-run t) | |
36920 | 442 ;;(c-initialize-cc-mode) |
24282 | 443 (or (assoc "cc-mode" c-style-alist) |
444 (assoc "user" c-style-alist) | |
445 (progn | |
26817 | 446 (c-add-style |
447 "user" | |
448 (mapcar | |
449 (lambda (var) | |
450 (let ((val (symbol-value var))) | |
451 (cons var | |
452 (cond ((eq var 'c-offsets-alist) | |
453 (mapcar | |
454 (lambda (langentry) | |
455 (setq langentry (or (assq (car langentry) val) | |
456 langentry)) | |
457 (cons (car langentry) | |
458 (cdr langentry))) | |
459 (get var 'c-stylevar-fallback))) | |
460 ((eq var 'c-special-indent-hook) | |
461 val) | |
462 (t | |
463 (if (eq val 'set-from-style) | |
464 (get var 'c-stylevar-fallback) | |
465 val)))))) | |
466 c-style-variables)) | |
467 (c-add-style "cc-mode" '("user")))) | |
24282 | 468 (if c-style-variables-are-local-p |
469 (c-make-styles-buffer-local)))) | |
19254
81353d4e05b7
(c-styles-alist): In "java" style, set
Richard M. Stallman <rms@gnu.org>
parents:
19212
diff
changeset
|
470 |
20918
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
471 (defun c-make-styles-buffer-local (&optional this-buf-only-p) |
18720 | 472 "Make all CC Mode style variables buffer local. |
26817 | 473 If you edit primarily one style of C (or C++, Objective-C, Java, etc) |
474 code, you probably want style variables to be global. This is the | |
475 default. | |
18720 | 476 |
26817 | 477 If you edit many different styles of C (or C++, Objective-C, Java, |
478 etc) at the same time, you probably want the CC Mode style variables | |
479 to be buffer local. If you do, it's advicable to set any CC Mode | |
480 style variables in a hook function (e.g. off of `c-mode-common-hook'), | |
481 instead of at the top level of your ~/.emacs file. | |
18720 | 482 |
483 This function makes all the CC Mode style variables buffer local. | |
484 Call it after CC Mode is loaded into your Emacs environment. | |
485 Conversely, set the variable `c-style-variables-are-local-p' to t in | |
486 your .emacs file, before CC Mode is loaded, and this function will be | |
20918
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
487 automatically called when CC Mode is loaded. |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
488 |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
489 Optional argument, when non-nil, means use `make-local-variable' |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
490 instead of `make-variable-buffer-local'." |
18720 | 491 ;; style variables |
20918
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
492 (let ((func (if this-buf-only-p |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
493 'make-local-variable |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
494 'make-variable-buffer-local)) |
26817 | 495 (varsyms (cons 'c-indentation-style (copy-alist c-style-variables)))) |
496 (delq 'c-special-indent-hook varsyms) | |
20918
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
497 (mapcar func varsyms) |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
498 ;; Hooks must be handled specially |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
499 (if this-buf-only-p |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
500 (make-local-hook 'c-special-indent-hook) |
26817 | 501 (make-variable-buffer-local 'c-special-indent-hook) |
502 (setq c-style-variables-are-local-p t)) | |
20918
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
503 )) |
8e64bd5b1b5f
(c-make-styles-buffer-local): Take an optional argument which switches
Richard M. Stallman <rms@gnu.org>
parents:
20147
diff
changeset
|
504 |
18720 | 505 |
506 | |
36920 | 507 (cc-provide 'cc-styles) |
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38167
diff
changeset
|
508 |
18720 | 509 ;;; cc-styles.el ends here |