cc-vars.el 69.4 KB
Newer Older
Richard M. Stallman's avatar
Richard M. Stallman committed
1 2
;;; cc-vars.el --- user customization variables for CC Mode

Glenn Morris's avatar
Glenn Morris committed
3
;; Copyright (C) 1985, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
Glenn Morris's avatar
Glenn Morris committed
4
;;   1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
Glenn Morris's avatar
Glenn Morris committed
5
;;   Free Software Foundation, Inc.
Richard M. Stallman's avatar
Richard M. Stallman committed
6

Alan Mackenzie's avatar
Alan Mackenzie committed
7 8
;; Authors:    2002- Alan Mackenzie
;;             1998- Martin Stjernholm
9
;;             1992-1999 Barry A. Warsaw
10 11
;;             1987 Dave Detlefs
;;             1987 Stewart Clamen
Richard M. Stallman's avatar
Richard M. Stallman committed
12
;;             1985 Richard M. Stallman
Barry A. Warsaw's avatar
Barry A. Warsaw committed
13
;; Maintainer: bug-cc-mode@gnu.org
Richard M. Stallman's avatar
Richard M. Stallman committed
14
;; Created:    22-Apr-1997 (split from cc-mode.el)
15
;; Version:    See cc-mode.el
Richard M. Stallman's avatar
Richard M. Stallman committed
16 17 18 19
;; Keywords:   c languages oop

;; This file is part of GNU Emacs.

20
;; GNU Emacs is free software: you can redistribute it and/or modify
Richard M. Stallman's avatar
Richard M. Stallman committed
21
;; it under the terms of the GNU General Public License as published by
22 23
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Richard M. Stallman's avatar
Richard M. Stallman committed
24 25 26 27 28 29 30

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
31
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
Richard M. Stallman's avatar
Richard M. Stallman committed
32

33 34 35 36
;;; Commentary:

;;; Code:

Barry A. Warsaw's avatar
Barry A. Warsaw committed
37
(eval-when-compile
Gerd Moellmann's avatar
Gerd Moellmann committed
38
  (let ((load-path
Gerd Moellmann's avatar
Gerd Moellmann committed
39 40 41
	 (if (and (boundp 'byte-compile-dest-file)
		  (stringp byte-compile-dest-file))
	     (cons (file-name-directory byte-compile-dest-file) load-path)
Gerd Moellmann's avatar
Gerd Moellmann committed
42
	   load-path)))
43
    (load "cc-bytecomp" nil t)))
Gerd Moellmann's avatar
Gerd Moellmann committed
44 45 46 47

(cc-require 'cc-defs)

;; Silence the compiler.
48 49 50 51 52
(cc-bytecomp-defun get-char-table)	; XEmacs

(cc-eval-when-compile
  (require 'custom)
  (require 'widget))
Gerd Moellmann's avatar
Gerd Moellmann committed
53

54 55 56 57 58 59 60 61 62
(cc-eval-when-compile
  ;; Need the function form of `backquote', which isn't standardized
  ;; between Emacsen.  It's called `bq-process' in XEmacs, and
  ;; `backquote-process' in Emacs.  `backquote-process' returns a
  ;; slightly more convoluted form, so let `bq-process' be the norm.
  (if (fboundp 'backquote-process)
      (cc-bytecomp-defmacro bq-process (form)
	`(cdr (backquote-process ,form)))))

Gerd Moellmann's avatar
Gerd Moellmann committed
63 64 65

;;; Helpers

66
;; This widget exists in newer versions of the Custom library
Gerd Moellmann's avatar
Gerd Moellmann committed
67 68 69 70 71 72 73 74
(or (get 'other 'widget-type)
    (define-widget 'other 'sexp
      "Matches everything, but doesn't let the user edit the value.
Useful as last item in a `choice' widget."
      :tag "Other"
      :format "%t%n"
      :value 'other))

75
;; The next defun will supersede c-const-symbol.
76 77
(eval-and-compile
  (defun c-constant-symbol (sym len)
78 79 80 81 82 83 84 85 86 87 88 89 90 91
  "Create an uneditable symbol for customization buffers.
SYM is the name of the symbol, LEN the length of the field (in
characters) the symbol will be displayed in.  LEN must be big
enough.

This returns a (const ....) structure, suitable for embedding
within a customization type."
  (or (symbolp sym) (error "c-constant-symbol: %s is not a symbol" sym))
  (let* ((name (symbol-name sym))
	 (l (length name))
	 (disp (concat name ":" (make-string (- len l 1) ?\ ))))
    `(const
      :size ,len
      :format ,disp
92
      :value ,sym))))
93

Gerd Moellmann's avatar
Gerd Moellmann committed
94
(define-widget 'c-const-symbol 'item
95 96
  "An uneditable lisp symbol.  This is obsolete -
use c-constant-symbol instead."
Gerd Moellmann's avatar
Gerd Moellmann committed
97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117
  :value nil
  :tag "Symbol"
  :format "%t: %v\n%d"
  :match (lambda (widget value) (symbolp value))
  :value-to-internal
  (lambda (widget value)
    (let ((s (if (symbolp value)
		 (symbol-name value)
	       value))
	  (l (widget-get widget :size)))
      (if l
	  (setq s (concat s (make-string (- l (length s)) ?\ ))))
      s))
  :value-to-external
  (lambda (widget value)
    (if (stringp value)
	(intern (progn
		  (string-match "\\`[^ ]*" value)
		  (match-string 0 value)))
      value)))

118 119 120 121 122 123
(define-widget 'c-integer-or-nil 'sexp
  "An integer or the value nil."
  :value nil
  :tag "Optional integer"
  :match (lambda (widget value) (or (integerp value) (null value))))

124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161
(define-widget 'c-symbol-list 'sexp
  "A single symbol or a list of symbols."
  :tag "Symbols separated by spaces"
  :validate 'widget-field-validate
  :match
  (lambda (widget value)
    (or (symbolp value)
	(catch 'ok
	  (while (listp value)
	    (unless (symbolp (car value))
	      (throw 'ok nil))
	    (setq value (cdr value)))
	  (null value))))
  :value-to-internal
  (lambda (widget value)
    (cond ((null value)
	   "")
	  ((symbolp value)
	   (symbol-name value))
	  ((consp value)
	   (mapconcat (lambda (symbol)
			(symbol-name symbol))
		      value
		      " "))
	  (t
	   value)))
  :value-to-external
  (lambda (widget value)
    (if (stringp value)
	(let (list end)
	  (while (string-match "\\S +" value end)
	    (setq list (cons (intern (match-string 0 value)) list)
		  end (match-end 0)))
	  (if (and list (not (cdr list)))
	      (car list)
	    (nreverse list)))
      value)))

Gerd Moellmann's avatar
Gerd Moellmann committed
162
(defvar c-style-variables
163 164
  '(c-basic-offset c-comment-only-line-offset c-indent-comment-alist
    c-indent-comments-syntactically-p c-block-comment-prefix
165 166 167 168
    c-comment-prefix-regexp c-doc-comment-style c-cleanup-list
    c-hanging-braces-alist c-hanging-colons-alist
    c-hanging-semi&comma-criteria c-backslash-column c-backslash-max-column
    c-special-indent-hook c-label-minimum-indentation c-offsets-alist)
Gerd Moellmann's avatar
Gerd Moellmann committed
169 170
  "List of the style variables.")

171 172 173 174 175 176
(defvar c-fallback-style nil)

(defsubst c-set-stylevar-fallback (name val)
  (put name 'c-stylevar-fallback val)
  (setq c-fallback-style (cons (cons name val) c-fallback-style)))

Gerd Moellmann's avatar
Gerd Moellmann committed
177
(defmacro defcustom-c-stylevar (name val doc &rest args)
178 179 180 181 182 183 184 185 186 187 188 189 190
  "Define a style variable NAME with VAL and DOC.
More precisely, convert the given `:type FOO', mined out of ARGS,
to an aggregate `:type (radio STYLE (PREAMBLE FOO))', append some
some boilerplate documentation to DOC, arrange for the fallback
value of NAME to be VAL, and call `custom-declare-variable' to
do the rest of the work.

STYLE stands for the choice where the value is taken from some
style setting.  PREAMBLE is optionally prepended to FOO; that is,
if FOO contains :tag or :value, the respective two-element list
component is ignored."
  (declare (debug (symbolp form stringp &rest)))
  (let* ((expanded-doc (concat doc "
Gerd Moellmann's avatar
Gerd Moellmann committed
191 192

This is a style variable.  Apart from the valid values described
193 194
above, it can be set to the symbol `set-from-style'.  In that case,
it takes its value from the style system (see `c-default-style' and
195
`c-style-alist') when a CC Mode buffer is initialized.  Otherwise,
Gerd Moellmann's avatar
Gerd Moellmann committed
196
the value set here overrides the style system (there is a variable
197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215
`c-old-style-variable-behavior' that changes this, though)."))
         (typ (eval (plist-get args :type)))
         (type (if (consp typ) typ (list typ)))
         (head (car type))
         (tail (cdr type))
         (newt (append (unless (plist-get tail :tag)
                         '(:tag "Override style settings"))
                       (unless (plist-get tail :value)
                         `(:value ,(eval val)))
                       tail))
         (aggregate `'(radio
                       (const :tag "Use style settings" set-from-style)
                       ,(cons head newt))))
    `(progn
       (c-set-stylevar-fallback ',name ,val)
       (custom-declare-variable
        ',name ''set-from-style
        ,expanded-doc
        ,@(plist-put args :type aggregate)))))
Gerd Moellmann's avatar
Gerd Moellmann committed
216 217

(defun c-valid-offset (offset)
218
  "Return non-nil if OFFSET is a valid offset for a syntactic symbol.
Gerd Moellmann's avatar
Gerd Moellmann committed
219 220 221 222 223 224 225 226 227
See `c-offsets-alist'."
  (or (eq offset '+)
      (eq offset '-)
      (eq offset '++)
      (eq offset '--)
      (eq offset '*)
      (eq offset '/)
      (integerp offset)
      (functionp offset)
228
      (and (symbolp offset) (boundp offset))
229 230 231
      (and (vectorp offset)
	   (= (length offset) 1)
	   (integerp (elt offset 0)))
232 233 234 235 236 237 238 239 240
      (and (consp offset)
	   (not (eq (car offset) 'quote)) ; Detect misquoted lists.
	   (progn
	     (when (memq (car offset) '(first min max add))
	       (setq offset (cdr offset)))
	     (while (and (consp offset)
			 (c-valid-offset (car offset)))
	       (setq offset (cdr offset)))
	     (null offset)))))
Gerd Moellmann's avatar
Gerd Moellmann committed
241 242


Richard M. Stallman's avatar
Richard M. Stallman committed
243

Gerd Moellmann's avatar
Gerd Moellmann committed
244 245
;;; User variables

Richard M. Stallman's avatar
Richard M. Stallman committed
246 247 248
(defcustom c-strict-syntax-p nil
  "*If non-nil, all syntactic symbols must be found in `c-offsets-alist'.
If the syntactic symbol for a particular line does not match a symbol
Barry A. Warsaw's avatar
Barry A. Warsaw committed
249 250
in the offsets alist, or if no non-nil offset value can be determined
for a symbol, an error is generated, otherwise no error is reported
Gerd Moellmann's avatar
Gerd Moellmann committed
251 252 253 254 255
and the syntactic symbol is ignored.

This variable is considered obsolete; it doesn't work well with lineup
functions that return nil to support the feature of using lists on
syntactic symbols in `c-offsets-alist'.  Please keep it set to nil."
Richard M. Stallman's avatar
Richard M. Stallman committed
256 257 258 259 260 261 262 263
  :type 'boolean
  :group 'c)

(defcustom c-echo-syntactic-information-p nil
  "*If non-nil, syntactic info is echoed when the line is indented."
  :type 'boolean
  :group 'c)

264 265 266 267 268 269 270 271 272 273 274 275
(defcustom c-report-syntactic-errors nil
  "*If non-nil, certain syntactic errors are reported with a ding
and a message, for example when an \"else\" is indented for which
there's no corresponding \"if\".

Note however that CC Mode doesn't make any special effort to check for
syntactic errors; that's the job of the compiler.  The reason it can
report cases like the one above is that it can't find the correct
anchoring position to indent the line in that case."
  :type 'boolean
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
276
(defcustom-c-stylevar c-basic-offset 4
277 278 279
  "*Amount of basic offset used by + and - symbols in `c-offsets-alist'.
Also used as the indentation step when `c-syntactic-indentation' is
nil."
Richard M. Stallman's avatar
Richard M. Stallman committed
280 281
  :type 'integer
  :group 'c)
282
;;;###autoload(put 'c-basic-offset 'safe-local-variable 'integerp)
Richard M. Stallman's avatar
Richard M. Stallman committed
283 284 285

(defcustom c-tab-always-indent t
  "*Controls the operation of the TAB key.
Martin Stjernholm's avatar
Martin Stjernholm committed
286 287
If t, hitting TAB always just indents the current line.  If nil, hitting
TAB indents the current line if point is at the left margin or in the
288 289 290 291 292 293 294
line's indentation, otherwise it calls `c-insert-tab-function' to
insert a `real' tab character.  If some other value (neither nil nor t),
then inserts a tab only within literals (comments and strings), but
always reindents the line.

Note: the variable `c-comment-only-line-offset' also controls the
indentation of lines containing only comments."
Richard M. Stallman's avatar
Richard M. Stallman committed
295
  :type '(radio
296 297 298
	  (const :tag "TAB key always indents, never inserts TAB" t)
	  (const :tag "TAB key indents in left margin, otherwise inserts TAB" nil)
	  (other :tag "TAB key inserts TAB in literals, otherwise indents" other))
Richard M. Stallman's avatar
Richard M. Stallman committed
299 300 301
  :group 'c)

(defcustom c-insert-tab-function 'insert-tab
302
  "*Function used when inserting a tab for \\[c-indent-command].
Richard M. Stallman's avatar
Richard M. Stallman committed
303
Only used when `c-tab-always-indent' indicates a `real' tab character
304 305 306
should be inserted.  Value must be a function taking no arguments.
The default, `insert-tab', inserts either a tab or the equivalent
number of spaces depending on the value of `indent-tabs-mode'."
Richard M. Stallman's avatar
Richard M. Stallman committed
307 308 309
  :type 'function
  :group 'c)

310
(defcustom c-syntactic-indentation t
Gerd Moellmann's avatar
Gerd Moellmann committed
311
  "*Whether the indentation should be controlled by the syntactic context.
312

313
If t, the indentation functions indent according to the syntactic
314 315 316
context, using the style settings specified by `c-offsets-alist'.

If nil, every line is just indented to the same level as the previous
317 318 319
one, and the \\[c-indent-command] command adjusts the indentation in
steps specified by `c-basic-offset'.  The indentation style has no
effect in this mode, nor any of the indentation associated variables,
320 321 322
e.g. `c-special-indent-hook'."
  :type 'boolean
  :group 'c)
323
(make-variable-buffer-local 'c-syntactic-indentation)
324
(put 'c-syntactic-indentation 'safe-local-variable 'booleanp)
325

326 327 328 329 330 331 332 333 334 335 336 337
(defcustom c-syntactic-indentation-in-macros t
  "*Enable syntactic analysis inside macros.
If this is nil, all lines inside macro definitions are analyzed as
`cpp-macro-cont'.  Otherwise they are analyzed syntactically, just
like normal code, and `cpp-define-intro' is used to create the
additional indentation of the bodies of \"#define\" macros.

Having this enabled simplifies editing of large multiline macros, but
it might complicate editing if CC Mode doesn't recognize the context
of the macro content.  The default context inside the macro is the
same as the top level, so if it contains \"bare\" statements they
might be indented wrongly, although there are special cases that
338
handle this in most cases.  If this problem occurs, it's usually
339 340 341 342
countered easily by surrounding the statements by a block \(or even
better with the \"do { ... } while \(0)\" trick)."
  :type 'boolean
  :group 'c)
343
(put 'c-syntactic-indentation-in-macros 'safe-local-variable 'booleanp)
344

Gerd Moellmann's avatar
Gerd Moellmann committed
345
(defcustom-c-stylevar c-comment-only-line-offset 0
Richard M. Stallman's avatar
Richard M. Stallman committed
346 347 348 349 350 351 352 353
  "*Extra offset for line which contains only the start of a comment.
Can contain an integer or a cons cell of the form:

 (NON-ANCHORED-OFFSET . ANCHORED-OFFSET)

Where NON-ANCHORED-OFFSET is the amount of offset given to
non-column-zero anchored comment-only lines, and ANCHORED-OFFSET is
the amount of offset to give column-zero anchored comment-only lines.
Gerd Moellmann's avatar
Gerd Moellmann committed
354 355 356 357 358 359
Just an integer as value is equivalent to (<val> . -1000).

Note that this variable only has effect when the `c-lineup-comment'
lineup function is used on the `comment-intro' syntactic symbol (the
default)."
  :type '(choice (integer :tag "Non-anchored offset" 0)
Richard M. Stallman's avatar
Richard M. Stallman committed
360 361 362 363 364 365
		 (cons :tag "Non-anchored & anchored offset"
		       :value (0 . 0)
		       (integer :tag "Non-anchored offset")
		       (integer :tag "Anchored offset")))
  :group 'c)

366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425
(defcustom-c-stylevar c-indent-comment-alist
  '((anchored-comment . (column . 0))
    (end-block . (space . 1))
    (cpp-end-block . (space . 2)))
  "*Specifies how \\[indent-for-comment] calculates the comment start column.
This is an association list that contains entries of the form:

 (LINE-TYPE . INDENT-SPEC)

LINE-TYPE specifies a type of line as described below, and INDENT-SPEC
says what \\[indent-for-comment] should do when used on that type of line.

The recognized values for LINE-TYPE are:

 empty-line        -- The line is empty.
 anchored-comment  -- The line contains a comment that starts in column 0.
 end-block         -- The line contains a solitary block closing brace.
 cpp-end-block     -- The line contains a preprocessor directive that
                      closes a block, i.e. either \"#endif\" or \"#else\".
 other             -- The line does not match any other entry
                      currently on the list.

An INDENT-SPEC is a cons cell of the form:

 (ACTION . VALUE)

ACTION says how \\[indent-for-comment] should align the comment, and
VALUE is interpreted depending on ACTION.  ACTION can be any of the
following:

 space   -- Put VALUE spaces between the end of the line and the start
            of the comment.
 column  -- Start the comment at the column VALUE.  If the line is
            longer than that, the comment is preceded by a single
            space.  If VALUE is nil, `comment-column' is used.
 align   -- Align the comment with one on the previous line, if there
            is any.  If the line is too long, the comment is preceded
            by a single space.  If there isn't a comment start on the
            previous line, the behavior is specified by VALUE, which
            in turn is interpreted as an INDENT-SPEC.

If a LINE-TYPE is missing, then \\[indent-for-comment] indents the comment
according to `comment-column'.

Note that a non-nil value on `c-indent-comments-syntactically-p'
overrides this variable, so empty lines are indentented syntactically
in that case, i.e. as if \\[c-indent-command] was used instead."
  :type
  (let ((space '(cons :tag "space"
		      :format "%v"
		      :value (space . 1)
		      (const :format "space  " space)
		      (integer :format "%v")))
	(column '(cons :tag "column"
		       :format "%v"
		       (const :format "column " column)
		       (c-integer-or-nil :format "%v"))))
    `(set ,@(mapcar
	     (lambda (elt)
	       `(cons :format "%v"
426
		      ,(c-constant-symbol elt 20)
427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443
		      (choice
		       :format "%[Choice%] %v"
		       :value (column . nil)
		       ,space
		       ,column
		       (cons :tag "align"
			     :format "%v"
			     (const :format "align  " align)
			     (choice
			      :format "%[Choice%] %v"
			      :value (column . nil)
			      ,space
			      ,column)))))
	     '(empty-line anchored-comment end-block cpp-end-block other))))
  :group 'c)

(defcustom-c-stylevar c-indent-comments-syntactically-p nil
Gerd Moellmann's avatar
Gerd Moellmann committed
444
  "*Specifies how \\[indent-for-comment] should handle comment-only lines.
Richard M. Stallman's avatar
Richard M. Stallman committed
445
When this variable is non-nil, comment-only lines are indented
Gerd Moellmann's avatar
Gerd Moellmann committed
446 447 448 449
according to syntactic analysis via `c-offsets-alist'.  Otherwise, the
comment is indented as if it was preceded by code.  Note that this
variable does not affect how the normal line indentation treats
comment-only lines."
Richard M. Stallman's avatar
Richard M. Stallman committed
450 451 452
  :type 'boolean
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
453 454 455 456 457 458
(make-obsolete-variable 'c-comment-continuation-stars
			'c-block-comment-prefix)

;; Although c-comment-continuation-stars is obsolete, we look at it in
;; some places in CC Mode anyway, so make the compiler ignore it
;; during our compilation.
459 460 461
;; [This is unclean; better to use `symbol-value'. --ttn]
;;(cc-bytecomp-obsolete-var c-comment-continuation-stars)
;;(cc-bytecomp-defvar c-comment-continuation-stars)
Gerd Moellmann's avatar
Gerd Moellmann committed
462

Gerd Moellmann's avatar
Gerd Moellmann committed
463 464
(defcustom-c-stylevar c-block-comment-prefix
  (if (boundp 'c-comment-continuation-stars)
465
      (symbol-value 'c-comment-continuation-stars)
Gerd Moellmann's avatar
Gerd Moellmann committed
466 467
    "* ")
  "*Specifies the line prefix of continued C-style block comments.
468 469
You should set this variable to the literal string that gets inserted
at the front of continued block style comment lines.  This should
Gerd Moellmann's avatar
Gerd Moellmann committed
470 471 472 473 474 475 476 477 478
either be the empty string, or some characters without preceding
spaces.  To adjust the alignment under the comment starter, put an
appropriate value on the `c' syntactic symbol (see the
`c-offsets-alist' variable).

It's only used when a one-line block comment is broken into two or
more lines for the first time; otherwise the appropriate prefix is
adapted from the comment.  This variable is not used for C++ line
style comments."
479
  :type 'string
Gerd Moellmann's avatar
Gerd Moellmann committed
480 481
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
482 483
(defcustom-c-stylevar c-comment-prefix-regexp
  '((pike-mode . "//+!?\\|\\**")
484
    (awk-mode . "#+")
Gerd Moellmann's avatar
Gerd Moellmann committed
485
    (other . "//+\\|\\**"))
Gerd Moellmann's avatar
Gerd Moellmann committed
486 487 488 489
  "*Regexp to match the line prefix inside comments.
This regexp is used to recognize the fill prefix inside comments for
correct paragraph filling and other things.

Gerd Moellmann's avatar
Gerd Moellmann committed
490 491 492 493 494 495 496 497 498 499 500 501 502
If this variable is a string, it will be used in all CC Mode major
modes.  It can also be an association list, to associate specific
regexps to specific major modes.  The symbol for the major mode is
looked up in the association list, and its value is used as the line
prefix regexp.  If it's not found, then the symbol `other' is looked
up and its value is used instead.

The regexp should match the prefix used in both C++ style line
comments and C style block comments, but it does not need to match a
block comment starter.  In other words, it should at least match
\"//\" for line comments and the string in `c-block-comment-prefix',
which is sometimes inserted by CC Mode inside block comments.  It
should not match any surrounding whitespace.
Gerd Moellmann's avatar
Gerd Moellmann committed
503

504
Note that CC Mode uses this variable to set many other variables that
505
handle the paragraph filling.  That's done at mode initialization or
506 507
when you switch to a style which sets this variable.  Thus, if you
change it in some other way, e.g. interactively in a CC Mode buffer,
508 509
you will need to do \\[c-setup-paragraph-variables] afterwards so that
the other variables are updated with the new value.
510

511 512 513 514
Note also that when CC Mode starts up, all variables are initialized
before the mode hooks are run.  It's therefore necessary to make a
call to `c-setup-paragraph-variables' explicitly if you change this
variable in a mode hook."
Gerd Moellmann's avatar
Gerd Moellmann committed
515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531
  :type '(radio
	  (regexp :tag "Regexp for all modes")
	  (list
	   :tag "Mode-specific regexps"
	   (set
	    :inline t :format "%v"
	    (cons :format "%v"
		  (const :format "C     " c-mode) (regexp :format "%v"))
	    (cons :format "%v"
		  (const :format "C++   " c++-mode) (regexp :format "%v"))
	    (cons :format "%v"
		  (const :format "ObjC  " objc-mode) (regexp :format "%v"))
	    (cons :format "%v"
		  (const :format "Java  " java-mode) (regexp :format "%v"))
	    (cons :format "%v"
		  (const :format "IDL   " idl-mode) (regexp :format "%v"))
	    (cons :format "%v"
532 533 534
		  (const :format "Pike  " pike-mode) (regexp :format "%v"))
            (cons :format "%v"
		  (const :format "AWK   " awk-mode) (regexp :format "%v")))
Gerd Moellmann's avatar
Gerd Moellmann committed
535 536
	   (cons :format "    %v"
		 (const :format "Other " other) (regexp :format "%v"))))
537 538
  :group 'c)

539 540
(defcustom-c-stylevar c-doc-comment-style
  '((java-mode . javadoc)
541 542
    (pike-mode . autodoc)
    (c-mode    . gtkdoc))
543 544 545 546 547 548 549 550 551
  "*Specifies documentation comment style(s) to recognize.
This is primarily used to fontify doc comments and the markup within
them, e.g. Javadoc comments.

The value can be any of the following symbols for various known doc
comment styles:

 javadoc -- Javadoc style for \"/** ... */\" comments (default in Java mode).
 autodoc -- Pike autodoc style for \"//! ...\" comments (default in Pike mode).
552
 gtkdoc  -- GtkDoc style for \"/** ... **/\" comments (default in C mode).
553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603

The value may also be a list of doc comment styles, in which case all
of them are recognized simultaneously (presumably with markup cues
that don't conflict).

The value may also be an association list to specify different doc
comment styles for different languages.  The symbol for the major mode
is then looked up in the alist, and the value of that element is
interpreted as above if found.  If it isn't found then the symbol
`other' is looked up and its value is used instead.

Note that CC Mode uses this variable to set other variables that
handle fontification etc.  That's done at mode initialization or when
you switch to a style which sets this variable.  Thus, if you change
it in some other way, e.g. interactively in a CC Mode buffer, you will
need to do \\[java-mode] (or whatever mode you're currently using) to
reinitialize.

Note also that when CC Mode starts up, the other variables are
modified before the mode hooks are run.  If you change this variable
in a mode hook, you have to call `c-setup-doc-comment-style'
afterwards to redo that work."
  ;; Symbols other than those documented above may be used on this
  ;; variable.  If a variable exists that has that name with
  ;; "-font-lock-keywords" appended, it's value is prepended to the
  ;; font lock keywords list.  If it's a function then it's called and
  ;; the result is prepended.
  :type '(radio
	  (c-symbol-list :tag "Doc style(s) in all modes")
	  (list
	   :tag "Mode-specific doc styles"
	   (set
	    :inline t :format "%v"
	    (cons :format "%v"
		  (const :format "C     " c-mode)
		  (c-symbol-list :format "%v"))
	    (cons :format "%v"
		  (const :format "C++   " c++-mode)
		  (c-symbol-list :format "%v"))
	    (cons :format "%v"
		  (const :format "ObjC  " objc-mode)
		  (c-symbol-list :format "%v"))
	    (cons :format "%v"
		  (const :format "Java  " java-mode)
		  (c-symbol-list :format "%v"))
	    (cons :format "%v"
		  (const :format "IDL   " idl-mode)
		  (c-symbol-list :format "%v"))
	    (cons :format "%v"
		  (const :format "Pike  " pike-mode)
		  (c-symbol-list :format "%v"))
604 605 606
	    (cons :format "%v"
		  (const :format "AWK   " awk-mode)
		  (c-symbol-list :format "%v"))
607 608 609 610 611
	    (cons :format "%v"
		  (const :format "Other " other)
		  (c-symbol-list :format "%v")))))
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632
(defcustom c-ignore-auto-fill '(string cpp code)
  "*List of contexts in which automatic filling never occurs.
If Auto Fill mode is active, it will be temporarily disabled if point
is in any context on this list.  It's e.g. useful to enable Auto Fill
in comments only, but not in strings or normal code.  The valid
contexts are:

 string  -- inside a string or character literal
 c       -- inside a C style block comment
 c++     -- inside a C++ style line comment
 cpp     -- inside a preprocessor directive
 code    -- anywhere else, i.e. in normal code"
  :type '(set
	  (const :tag "String literals" string)
	  (const :tag "C style block comments" c)
	  (const :tag "C++ style line comments" c++)
	  (const :tag "Preprocessor directives" cpp)
	  (const :tag "Normal code" code))
  :group 'c)

(defcustom-c-stylevar c-cleanup-list '(scope-operator)
Richard M. Stallman's avatar
Richard M. Stallman committed
633
  "*List of various C/C++/ObjC constructs to \"clean up\".
Gerd Moellmann's avatar
Gerd Moellmann committed
634
The following clean ups only take place when the auto-newline feature
635 636
is turned on, as evidenced by the `/la' appearing next to the mode
name:
Richard M. Stallman's avatar
Richard M. Stallman committed
637

Gerd Moellmann's avatar
Gerd Moellmann committed
638 639 640
 brace-else-brace    -- Clean up \"} else {\" constructs by placing
                        entire construct on a single line.  This clean
                        up only takes place when there is nothing but
Richard M. Stallman's avatar
Richard M. Stallman committed
641
                        white space between the braces and the `else'.
Gerd Moellmann's avatar
Gerd Moellmann committed
642
                        Clean up occurs when the open brace after the
Richard M. Stallman's avatar
Richard M. Stallman committed
643
                        `else' is typed.
Gerd Moellmann's avatar
Gerd Moellmann committed
644 645 646 647 648 649 650
 brace-elseif-brace  -- Similar to brace-else-brace, but clean up
                        \"} else if (...) {\" constructs.  Clean up
                        occurs after the open parenthesis and the open
                        brace.
 brace-catch-brace   -- Similar to brace-elseif-brace, but clean up
                        \"} catch (...) {\" constructs.
 empty-defun-braces  -- Clean up empty defun braces by placing the
Richard M. Stallman's avatar
Richard M. Stallman committed
651
                        braces on the same line.  Clean up occurs when
652
                        the defun closing brace is typed.
653 654 655 656
 one-liner-defun     -- If the code inside a function body can fit in
                        a single line, then remove any newlines
                        between that line and the defun braces so that
                        the whole body becomes a single line.
657 658 659
                        `c-max-one-liner-length' gives the maximum
                        length allowed for the resulting line.  Clean
                        up occurs when the closing brace is typed.
Gerd Moellmann's avatar
Gerd Moellmann committed
660
 defun-close-semi    -- Clean up the terminating semi-colon on defuns
661 662 663
                        by placing the semi-colon on the same line as
                        the closing brace.  Clean up occurs when the
                        semi-colon is typed.
Gerd Moellmann's avatar
Gerd Moellmann committed
664
 list-close-comma    -- Clean up commas following braces in array
Richard M. Stallman's avatar
Richard M. Stallman committed
665
                        and aggregate initializers.  Clean up occurs
666
                        when the comma is typed.
Gerd Moellmann's avatar
Gerd Moellmann committed
667
 scope-operator      -- Clean up double colons which may designate
668 669 670 671 672 673
                        a C++ scope operator split across multiple
                        lines.  Note that certain C++ constructs can
                        generate ambiguous situations.  This clean up
                        only takes place when there is nothing but
                        whitespace between colons.  Clean up occurs
                        when the second colon is typed.
Gerd Moellmann's avatar
Gerd Moellmann committed
674 675 676 677 678 679 680 681 682

The following clean ups always take place when they are on this list,
regardless of the auto-newline feature, since they typically don't
involve auto-newline inserted newlines:

 space-before-funcall -- Insert exactly one space before the opening
                        parenthesis of a function call.  Clean up
                        occurs when the opening parenthesis is typed.
 compact-empty-funcall -- Clean up any space before the function call
683
                        opening parenthesis if and only if the
Gerd Moellmann's avatar
Gerd Moellmann committed
684 685 686 687
                        argument list is empty.  This is typically
                        useful together with `space-before-funcall' to
                        get the style \"foo (bar)\" and \"foo()\".
                        Clean up occurs when the closing parenthesis
688 689 690 691 692
                        is typed.
 comment-close-slash -- When a slash is typed after the comment prefix
                        on a bare line in a c-style comment, the comment
                        is closed by cleaning up preceding space and
                        inserting a star if needed."
Richard M. Stallman's avatar
Richard M. Stallman committed
693
  :type '(set
694
	  (const :tag "Put \"} else {\" on one line (brace-else-brace)"
Gerd Moellmann's avatar
Gerd Moellmann committed
695
		 brace-else-brace)
696
	  (const :tag "Put \"} else if (...) {\" on one line (brace-elseif-brace)"
Gerd Moellmann's avatar
Gerd Moellmann committed
697
		 brace-elseif-brace)
698
	  (const :tag "Put \"} catch (...) {\" on one line (brace-catch-brace)"
Gerd Moellmann's avatar
Gerd Moellmann committed
699
		 brace-catch-brace)
700
	  (const :tag "Put empty defun braces on one line (empty-defun-braces)"
Gerd Moellmann's avatar
Gerd Moellmann committed
701
		 empty-defun-braces)
702 703 704
	  (const :tag "Put short function bodies on one line (one-liner-defun)"
		 one-liner-defun)
	  (const :tag "Put \"};\" ending defuns on one line (defun-close-semi)"
Gerd Moellmann's avatar
Gerd Moellmann committed
705
		 defun-close-semi)
706
	  (const :tag "Put \"},\" in aggregates on one line (list-close-comma)"
Gerd Moellmann's avatar
Gerd Moellmann committed
707
		 list-close-comma)
708
	  (const :tag "Put C++ style \"::\" on one line (scope-operator)"
Gerd Moellmann's avatar
Gerd Moellmann committed
709
		 scope-operator)
710
	  (const :tag "Put a space before funcall parens, e.g. \"foo (bar)\" (space-before-funcall)"
Gerd Moellmann's avatar
Gerd Moellmann committed
711
		 space-before-funcall)
712 713 714 715
	  (const :tag "Remove space before empty funcalls, e.g. \"foo()\" (compact-empty-funcall)"
		 compact-empty-funcall)
	  (const :tag "Make / on a bare line of a C-style comment close it (comment-close-slash)"
		 comment-close-slash))
Richard M. Stallman's avatar
Richard M. Stallman committed
716 717
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
718 719
(defcustom-c-stylevar c-hanging-braces-alist '((brace-list-open)
					       (brace-entry-open)
720
					       (statement-cont)
Gerd Moellmann's avatar
Gerd Moellmann committed
721 722 723
					       (substatement-open after)
					       (block-close . c-snug-do-while)
					       (extern-lang-open after)
724 725 726
					       (namespace-open after)
					       (module-open after)
					       (composition-open after)
Gerd Moellmann's avatar
Gerd Moellmann committed
727
					       (inexpr-class-open after)
728 729
					       (inexpr-class-close before)
					       (arglist-cont-nonempty))
Gerd Moellmann's avatar
Gerd Moellmann committed
730 731 732 733
  "*Controls the insertion of newlines before and after braces
when the auto-newline feature is active.  This variable contains an
association list with elements of the following form:
\(SYNTACTIC-SYMBOL . ACTION).
Richard M. Stallman's avatar
Richard M. Stallman committed
734 735 736 737 738 739 740

When a brace (either opening or closing) is inserted, the syntactic
context it defines is looked up in this list, and if found, the
associated ACTION is used to determine where newlines are inserted.
If the context is not found, the default is to insert a newline both
before and after the brace.

741 742 743 744 745 746 747
SYNTACTIC-SYMBOL can be statement-cont, brace-list-intro,
inexpr-class-open, inexpr-class-close, and any of the *-open and
*-close symbols.  See `c-offsets-alist' for details, except for
inexpr-class-open and inexpr-class-close, which doesn't have any
corresponding symbols there.  Those two symbols are used for the
opening and closing braces, respectively, of anonymous inner classes
in Java.
Richard M. Stallman's avatar
Richard M. Stallman committed
748 749 750 751 752 753 754 755 756 757 758

ACTION can be either a function symbol or a list containing any
combination of the symbols `before' or `after'.  If the list is empty,
no newlines are inserted either before or after the brace.

When ACTION is a function symbol, the function is called with a two
arguments: the syntactic symbol for the brace and the buffer position
at which the brace was inserted.  The function must return a list as
described in the preceding paragraph.  Note that during the call to
the function, the variable `c-syntactic-context' is set to the entire
syntactic context for the brace line."
Gerd Moellmann's avatar
Gerd Moellmann committed
759 760 761 762
  :type
  `(set ,@(mapcar
	   (lambda (elt)
	     `(cons :format "%v"
763
		    ,(c-constant-symbol elt 24)
Gerd Moellmann's avatar
Gerd Moellmann committed
764
		    (choice :format "%[Choice%] %v"
765
			    :value (before after)
Gerd Moellmann's avatar
Gerd Moellmann committed
766
			    (set :menu-tag "Before/after"
767 768 769
				 :format "Newline  %v brace\n"
				 (const :format "%v,  " before)
				 (const :format "%v " after))
Gerd Moellmann's avatar
Gerd Moellmann committed
770
			    (function :menu-tag "Function"
771
				      :format "Run function: %v"))))
Gerd Moellmann's avatar
Gerd Moellmann committed
772 773 774 775
	   '(defun-open defun-close
	      class-open class-close
	      inline-open inline-close
	      block-open block-close
776
	      statement-cont substatement-open statement-case-open
Gerd Moellmann's avatar
Gerd Moellmann committed
777 778
	      brace-list-open brace-list-close
	      brace-list-intro brace-entry-open
779
	      extern-lang-open extern-lang-close
Gerd Moellmann's avatar
Gerd Moellmann committed
780
	      namespace-open namespace-close
781 782
	      module-open module-close
	      composition-open composition-close
783 784
	      inexpr-class-open inexpr-class-close
	      arglist-cont-nonempty)))
Gerd Moellmann's avatar
Gerd Moellmann committed
785 786
    :group 'c)

787 788 789 790 791 792
(defcustom c-max-one-liner-length 80
  "Maximum length of line that clean-up \"one-liner-defun\" will compact to.
Zero or nil means no limit."
  :type 'integer
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
793
(defcustom-c-stylevar c-hanging-colons-alist nil
Richard M. Stallman's avatar
Richard M. Stallman committed
794 795 796 797 798 799 800 801 802 803
  "*Controls the insertion of newlines before and after certain colons.
This variable contains an association list with elements of the
following form: (SYNTACTIC-SYMBOL . ACTION).

SYNTACTIC-SYMBOL can be any of: case-label, label, access-label,
member-init-intro, or inher-intro.

See the variable `c-hanging-braces-alist' for the semantics of this
variable.  Note however that making ACTION a function symbol is
currently not supported for this variable."
Gerd Moellmann's avatar
Gerd Moellmann committed
804 805 806 807
  :type
  `(set ,@(mapcar
	   (lambda (elt)
	     `(cons :format "%v"
808 809 810
		    ,(c-constant-symbol elt 20)
		    (set :format "Newline  %v  colon\n"
			 (const :format "%v,  " before)
Gerd Moellmann's avatar
Gerd Moellmann committed
811 812
			 (const :format "%v" after))))
	   '(case-label label access-label member-init-intro inher-intro)))
Richard M. Stallman's avatar
Richard M. Stallman committed
813 814
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
815 816
(defcustom-c-stylevar c-hanging-semi&comma-criteria
  '(c-semi&comma-inside-parenlist)
Richard M. Stallman's avatar
Richard M. Stallman committed
817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832
  "*List of functions that decide whether to insert a newline or not.
The functions in this list are called, in order, whenever the
auto-newline minor mode is activated (as evidenced by a `/a' or `/ah'
string in the mode line), and a semicolon or comma is typed (see
`c-electric-semi&comma').  Each function in this list is called with
no arguments, and should return one of the following values:

  nil             -- no determination made, continue checking
  'stop           -- do not insert a newline, and stop checking
  (anything else) -- insert a newline, and stop checking

If every function in the list is called with no determination made,
then no newline is inserted."
  :type '(repeat function)
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
833
(defcustom-c-stylevar c-backslash-column 48
834 835 836 837
  "*Minimum alignment column for line continuation backslashes.
This is used by the functions that automatically insert or align the
line continuation backslashes in multiline macros.  If any line in the
macro exceeds this column then the next tab stop from that line is
838
used as alignment column instead.  See also `c-backslash-max-column'."
Richard M. Stallman's avatar
Richard M. Stallman committed
839 840
  :type 'integer
  :group 'c)
841
;;;###autoload(put 'c-backslash-column 'safe-local-variable 'integerp)
Richard M. Stallman's avatar
Richard M. Stallman committed
842

843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859
(defcustom-c-stylevar c-backslash-max-column 72
  "*Maximum alignment column for line continuation backslashes.
This is used by the functions that automatically insert or align the
line continuation backslashes in multiline macros.  If any line in the
macro exceeds this column then the backslashes for the other lines
will be aligned at this column."
  :type 'integer
  :group 'c)

(defcustom c-auto-align-backslashes t
  "*Align automatically inserted line continuation backslashes.
When line continuation backslashes are inserted automatically for line
breaks in multiline macros, e.g. by \\[c-context-line-break], they are
aligned with the other backslashes in the same macro if this flag is
set.  Otherwise the inserted backslashes are preceded by a single
space."
  :type 'boolean
Richard M. Stallman's avatar
Richard M. Stallman committed
860 861 862 863 864 865 866 867
  :group 'c)

(defcustom c-backspace-function 'backward-delete-char-untabify
  "*Function called by `c-electric-backspace' when deleting backwards."
  :type 'function
  :group 'c)

(defcustom c-delete-function 'delete-char
868
  "*Function called by `c-electric-delete-forward' when deleting forwards."
Richard M. Stallman's avatar
Richard M. Stallman committed
869 870 871
  :type 'function
  :group 'c)

872
(defcustom c-require-final-newline
873
  ;; C and C++ mandate that all nonempty files should end with a
874
  ;; newline.  Objective-C refers to C for all things it doesn't
875
  ;; specify, so the same holds there.  The other languages do not
876 877 878 879
  ;; require it (at least not explicitly in a normative text).
  '((c-mode    . t)
    (c++-mode  . t)
    (objc-mode . t))
880 881 882 883 884 885
  "*Controls whether a final newline is ensured when the file is saved.
The value is an association list that for each language mode specifies
the value to give to `require-final-newline' at mode initialization;
see that variable for details about the value.  If a language isn't
present on the association list, CC Mode won't touch
`require-final-newline' in buffers for that language."
886 887
  :type `(set (cons :format "%v"
		    (const :format "C     " c-mode)
888
		    (symbol :format "%v" :value ,require-final-newline))
889 890
	      (cons :format "%v"
		    (const :format "C++   " c++-mode)
891
		    (symbol :format "%v" :value ,require-final-newline))
892 893
	      (cons :format "%v"
		    (const :format "ObjC  " objc-mode)
894
		    (symbol :format "%v" :value ,require-final-newline))
895 896
	      (cons :format "%v"
		    (const :format "Java  " java-mode)
897
		    (symbol :format "%v" :value ,require-final-newline))
898 899
	      (cons :format "%v"
		    (const :format "IDL   " idl-mode)
900
		    (symbol :format "%v" :value ,require-final-newline))
901 902
	      (cons :format "%v"
		    (const :format "Pike  " pike-mode)
903 904 905 906
		    (symbol :format "%v" :value ,require-final-newline))
	      (cons :format "%v"
		    (const :format "AWK   " awk-mode)
		    (symbol :format "%v" :value ,require-final-newline)))
907 908
  :group 'c)

Richard M. Stallman's avatar
Richard M. Stallman committed
909 910 911
(defcustom c-electric-pound-behavior nil
  "*List of behaviors for electric pound insertion.
Only currently supported behavior is `alignleft'."
912 913 914 915 916
  :type '(set (const alignleft))
  :group 'c)

(defcustom c-special-indent-hook nil
  "*Hook for user defined special indentation adjustments.
917 918
This hook gets called after each line is indented by the mode.  It is only
called if `c-syntactic-indentation' is non-nil."
919
  :type 'hook
Richard M. Stallman's avatar
Richard M. Stallman committed
920 921
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
922
(defcustom-c-stylevar c-label-minimum-indentation 1
Martin Stjernholm's avatar
Martin Stjernholm committed
923
  "*Minimum indentation for lines inside code blocks.
Richard M. Stallman's avatar
Richard M. Stallman committed
924
This variable typically only affects code using the `gnu' style, which
Martin Stjernholm's avatar
Martin Stjernholm committed
925 926 927
mandates a minimum of one space in front of every line inside code
blocks.  Specifically, the function `c-gnu-impose-minimum' on your
`c-special-indent-hook' is what enforces this."
Richard M. Stallman's avatar
Richard M. Stallman committed
928 929 930 931 932 933
  :type 'integer
  :group 'c)

(defcustom c-progress-interval 5
  "*Interval used to update progress status during long re-indentation.
If a number, percentage complete gets updated after each interval of
934 935
that many seconds.  To inhibit all messages during indentation, set
this variable to nil."
Richard M. Stallman's avatar
Richard M. Stallman committed
936 937 938
  :type 'integer
  :group 'c)

939 940
(defcustom c-default-style '((java-mode . "java") (awk-mode . "awk")
			     (other . "gnu"))
Barry A. Warsaw's avatar
Barry A. Warsaw committed
941
  "*Style which gets installed by default when a file is visited.
942 943

The value of this variable can be any style defined in
Barry A. Warsaw's avatar
Barry A. Warsaw committed
944 945 946 947
`c-style-alist', including styles you add.  The value can also be an
association list of major mode symbols to style names.

When the value is a string, all CC Mode major modes will install this
Gerd Moellmann's avatar
Gerd Moellmann committed
948
style by default.
Barry A. Warsaw's avatar
Barry A. Warsaw committed
949

Gerd Moellmann's avatar
Gerd Moellmann committed
950 951 952 953 954 955 956 957
When the value is an alist, the major mode symbol is looked up in it
and the associated style is installed.  If the major mode is not
listed in the alist, then the symbol `other' is looked up in it, and
if found, the style in that entry is used.  If `other' is not found in
the alist, then \"gnu\" style is used.

The default style gets installed before your mode hooks run, so you
can always override the use of `c-default-style' by making calls to
Gerd Moellmann's avatar
Gerd Moellmann committed
958
`c-set-style' in the appropriate mode hook."
Gerd Moellmann's avatar
Gerd Moellmann committed
959
  :type '(radio
Gerd Moellmann's avatar
Gerd Moellmann committed
960 961 962 963 964 965 966 967 968 969 970 971 972 973
	  (string :tag "Style in all modes")
	  (set :tag "Mode-specific styles"
	    (cons :format "%v"
		  (const :format "C     " c-mode) (string :format "%v"))
	    (cons :format "%v"
		  (const :format "C++   " c++-mode) (string :format "%v"))
	    (cons :format "%v"
		  (const :format "ObjC  " objc-mode) (string :format "%v"))
	    (cons :format "%v"
		  (const :format "Java  " java-mode) (string :format "%v"))
	    (cons :format "%v"
		  (const :format "IDL   " idl-mode) (string :format "%v"))
	    (cons :format "%v"
		  (const :format "Pike  " pike-mode) (string :format "%v"))
974 975
	    (cons :format "%v"
		  (const :format "AWK   " awk-mode) (string :format "%v"))
Gerd Moellmann's avatar
Gerd Moellmann committed
976 977
	    (cons :format "%v"
		  (const :format "Other " other) (string :format "%v"))))
Gerd Moellmann's avatar
Gerd Moellmann committed
978 979
  :group 'c)

980 981 982 983 984 985 986 987
;; *) At the start of a statement or declaration means in more detail:
;; At the closest preceding statement/declaration that starts at boi
;; and doesn't have a label or comment at that position.  If there's
;; no such statement within the same block, then back up to the
;; surrounding block or statement, add the appropriate
;; statement-block-intro, defun-block-intro or substatement syntax
;; symbol and continue searching.
(c-set-stylevar-fallback 'c-offsets-alist
Gerd Moellmann's avatar
Gerd Moellmann committed
988
     '((string                . c-lineup-dont-change)
989
       ;; Anchor pos: Beg of previous line.
Gerd Moellmann's avatar
Gerd Moellmann committed
990
       (c                     . c-lineup-C-comments)
991
       ;; Anchor pos: Beg of the comment.
Gerd Moellmann's avatar
Gerd Moellmann committed
992
       (defun-open            . 0)
993
       ;; Anchor pos: When inside a class: Boi at the func decl start.
994 995 996
       ;; When at top level: Bol at the func decl start.  When inside
       ;; a code block (only possible in Pike): At the func decl
       ;; start(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
997
       (defun-close           . 0)
998 999
       ;; Anchor pos: At the defun block open if it's at boi,
       ;; otherwise boi at the func decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1000
       (defun-block-intro     . +)
1001
       ;; Anchor pos: At the block open(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1002
       (class-open            . 0)
1003
       ;; Anchor pos: Boi at the class decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1004
       (class-close           . 0)
1005
       ;; Anchor pos: Boi at the class decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1006
       (inline-open           . +)
1007 1008
       ;; Anchor pos: None for functions (inclass got the relpos
       ;; then), boi at the lambda start for lambdas.
Gerd Moellmann's avatar
Gerd Moellmann committed
1009
       (inline-close          . 0)
1010 1011 1012 1013
       ;; Anchor pos: Inexpr functions: At the lambda block open if
       ;; it's at boi, else at the statement(*) at boi of the start of
       ;; the lambda construct.  Otherwise: At the inline block open
       ;; if it's at boi, otherwise boi at the func decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1014
       (func-decl-cont        . +)
1015
       ;; Anchor pos: Boi at the func decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1016
       (knr-argdecl-intro     . +)
1017
       ;; Anchor pos: Boi at the topmost intro line.
Gerd Moellmann's avatar
Gerd Moellmann committed
1018
       (knr-argdecl           . 0)
1019
       ;; Anchor pos: At the beginning of the first K&R argdecl.
Gerd Moellmann's avatar
Gerd Moellmann committed
1020
       (topmost-intro         . 0)
1021
       ;; Anchor pos: Bol at the last line of previous construct.
1022
       (topmost-intro-cont    . c-lineup-topmost-intro-cont)
1023
       ;; Anchor pos: Boi at the topmost intro line.
Gerd Moellmann's avatar
Gerd Moellmann committed
1024
       (member-init-intro     . +)
1025
       ;; Anchor pos: Boi at the func decl arglist open.
1026
       (member-init-cont      . c-lineup-multi-inher)
1027
       ;; Anchor pos: Beg of the first member init.
Gerd Moellmann's avatar
Gerd Moellmann committed
1028
       (inher-intro           . +)
1029
       ;; Anchor pos: Boi at the class decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1030
       (inher-cont            . c-lineup-multi-inher)
1031
       ;; Anchor pos: Java: At the implements/extends keyword start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1032 1033 1034 1035
       ;; Otherwise: At the inher start colon, or boi at the class
       ;; decl start if the first inherit clause hangs and it's not a
       ;; func-local inherit clause (when does that occur?).
       (block-open            . 0)
1036 1037
       ;; Anchor pos: Inexpr statement: At the statement(*) at boi of
       ;; the start of the inexpr construct.  Otherwise: None.
Gerd Moellmann's avatar
Gerd Moellmann committed
1038
       (block-close           . 0)
1039 1040 1041 1042 1043
       ;; Anchor pos: Inexpr statement: At the inexpr block open if
       ;; it's at boi, else at the statement(*) at boi of the start of
       ;; the inexpr construct.  Block hanging on a case/default
       ;; label: At the closest preceding label that starts at boi.
       ;; Otherwise: At the block open(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1044
       (brace-list-open       . 0)
1045
       ;; Anchor pos: Boi at the brace list decl start, but a starting
Gerd Moellmann's avatar
Gerd Moellmann committed
1046 1047
       ;; "typedef" token is ignored.
       (brace-list-close      . 0)
1048
       ;; Anchor pos: At the brace list decl start(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1049
       (brace-list-intro      . +)
1050
       ;; Anchor pos: At the brace list decl start(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1051
       (brace-list-entry      . 0)
1052 1053
       ;; Anchor pos: At the first non-ws char after the open paren if
       ;; the first token is on the same line, otherwise boi at that
Gerd Moellmann's avatar
Gerd Moellmann committed
1054 1055
       ;; token.
       (brace-entry-open      . 0)
1056
       ;; Anchor pos: Same as brace-list-entry.
Gerd Moellmann's avatar
Gerd Moellmann committed
1057
       (statement             . 0)
1058
       ;; Anchor pos: After a `;' in the condition clause of a for
Gerd Moellmann's avatar
Gerd Moellmann committed
1059
       ;; statement: At the first token after the starting paren.
1060
       ;; Otherwise: At the preceding statement(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1061
       (statement-cont        . +)
1062 1063 1064
       ;; Anchor pos: After the first token in the condition clause of
       ;; a for statement: At the first token after the starting
       ;; paren.  Otherwise: At the containing statement(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1065
       (statement-block-intro . +)
1066 1067 1068
       ;; Anchor pos: In inexpr statement block: At the inexpr block
       ;; open if it's at boi, else at the statement(*) at boi of the
       ;; start of the inexpr construct.  In a block hanging on a
1069 1070 1071
       ;; case/default label: At the closest preceding label that
       ;; starts at boi.  Otherwise: At the start of the containing
       ;; block(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1072
       (statement-case-intro  . +)
1073
       ;; Anchor pos: At the case/default label(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1074
       (statement-case-open   . 0)
1075
       ;; Anchor pos: At the case/default label(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1076
       (substatement          . +)
1077
       ;; Anchor pos: At the containing statement(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1078
       (substatement-open     . +)
1079