cc-vars.el 68.8 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 5
;;   1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
;;   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
Richard M. Stallman's avatar
Richard M. Stallman committed
10 11
;;             1987 Dave Detlefs and Stewart Clamen
;;             1985 Richard M. Stallman
Barry A. Warsaw's avatar
Barry A. Warsaw committed
12
;; Maintainer: bug-cc-mode@gnu.org
Richard M. Stallman's avatar
Richard M. Stallman committed
13
;; Created:    22-Apr-1997 (split from cc-mode.el)
14
;; Version:    See cc-mode.el
Richard M. Stallman's avatar
Richard M. Stallman committed
15 16 17 18 19 20
;; Keywords:   c languages oop

;; This file is part of GNU Emacs.

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

;; 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
30
;; along with this program; see the file COPYING.  If not, write to
Lute Kamstra's avatar
Lute Kamstra committed
31 32
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
Richard M. Stallman's avatar
Richard M. Stallman committed
33

34 35 36 37
;;; Commentary:

;;; Code:

Barry A. Warsaw's avatar
Barry A. Warsaw committed
38
(eval-when-compile
Gerd Moellmann's avatar
Gerd Moellmann committed
39
  (let ((load-path
Gerd Moellmann's avatar
Gerd Moellmann committed
40 41 42
	 (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
43
	   load-path)))
44
    (load "cc-bytecomp" nil t)))
Gerd Moellmann's avatar
Gerd Moellmann committed
45 46 47 48

(cc-require 'cc-defs)

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

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

55 56 57 58 59 60 61 62 63
(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
64 65 66

;;; Helpers

67
;; This widget exists in newer versions of the Custom library
Gerd Moellmann's avatar
Gerd Moellmann committed
68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98
(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))

(define-widget 'c-const-symbol 'item
  "An uneditable lisp symbol."
  :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)))

99 100 101 102 103 104
(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))))

105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142
(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
143
(defvar c-style-variables
144 145
  '(c-basic-offset c-comment-only-line-offset c-indent-comment-alist
    c-indent-comments-syntactically-p c-block-comment-prefix
146 147 148 149
    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
150 151
  "List of the style variables.")

152 153 154 155 156 157
(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
158
(defmacro defcustom-c-stylevar (name val doc &rest args)
159 160 161 162 163 164 165 166 167 168 169 170 171
  "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
172 173

This is a style variable.  Apart from the valid values described
174 175
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
176
`c-style-alist') when a CC Mode buffer is initialized.  Otherwise,
Gerd Moellmann's avatar
Gerd Moellmann committed
177
the value set here overrides the style system (there is a variable
178
`c-old-style-variable-behavior' that changes this, though)."))
Thien-Thi Nguyen's avatar
Thien-Thi Nguyen committed
179
         (typ (eval (plist-get args :type)))
180 181 182 183 184 185
         (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)
186
                         `(:value ,(eval val)))
187 188 189 190 191 192 193 194 195 196
                       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
197 198

(defun c-valid-offset (offset)
199
  "Return non-nil if OFFSET is a valid offset for a syntactic symbol.
Gerd Moellmann's avatar
Gerd Moellmann committed
200 201 202 203 204 205 206 207 208
See `c-offsets-alist'."
  (or (eq offset '+)
      (eq offset '-)
      (eq offset '++)
      (eq offset '--)
      (eq offset '*)
      (eq offset '/)
      (integerp offset)
      (functionp offset)
209
      (and (symbolp offset) (boundp offset))
210 211 212
      (and (vectorp offset)
	   (= (length offset) 1)
	   (integerp (elt offset 0)))
213 214 215 216 217 218 219 220 221
      (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
222 223


Richard M. Stallman's avatar
Richard M. Stallman committed
224

Gerd Moellmann's avatar
Gerd Moellmann committed
225 226
;;; User variables

Richard M. Stallman's avatar
Richard M. Stallman committed
227 228 229
(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
230 231
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
232 233 234 235 236
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
237 238 239 240 241 242 243 244
  :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)

245 246 247 248 249 250 251 252 253 254 255 256
(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
257
(defcustom-c-stylevar c-basic-offset 4
258 259 260
  "*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
261 262
  :type 'integer
  :group 'c)
263
;;;###autoload(put 'c-basic-offset 'safe-local-variable 'integerp)
Richard M. Stallman's avatar
Richard M. Stallman committed
264 265 266

(defcustom c-tab-always-indent t
  "*Controls the operation of the TAB key.
Martin Stjernholm's avatar
Martin Stjernholm committed
267 268 269 270 271 272
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
line's indentation, otherwise it inserts a `real' tab character \(see
note\).  If some other value (not nil or t), then tab is inserted only
within literals \(comments and strings), but the line is always
reindented.
Richard M. Stallman's avatar
Richard M. Stallman committed
273 274

Note: The value of `indent-tabs-mode' will determine whether a real
Gerd Moellmann's avatar
Gerd Moellmann committed
275
tab character will be inserted, or the equivalent number of spaces.
Richard M. Stallman's avatar
Richard M. Stallman committed
276 277 278 279 280 281
When inserting a tab, actually the function stored in the variable
`c-insert-tab-function' is called.

Note: indentation of lines containing only comments is also controlled
by the `c-comment-only-line-offset' variable."
  :type '(radio
282 283 284
	  (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
285 286 287
  :group 'c)

(defcustom c-insert-tab-function 'insert-tab
288
  "*Function used when inserting a tab for \\[c-indent-command].
Richard M. Stallman's avatar
Richard M. Stallman committed
289 290 291 292 293
Only used when `c-tab-always-indent' indicates a `real' tab character
should be inserted.  Value must be a function taking no arguments."
  :type 'function
  :group 'c)

294
(defcustom c-syntactic-indentation t
Gerd Moellmann's avatar
Gerd Moellmann committed
295
  "*Whether the indentation should be controlled by the syntactic context.
296

297
If t, the indentation functions indent according to the syntactic
298 299 300
context, using the style settings specified by `c-offsets-alist'.

If nil, every line is just indented to the same level as the previous
301 302 303
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,
304 305 306
e.g. `c-special-indent-hook'."
  :type 'boolean
  :group 'c)
307
(make-variable-buffer-local 'c-syntactic-indentation)
308

309 310 311 312 313 314 315 316 317 318 319 320
(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
321
handle this in most cases.  If this problem occurs, it's usually
322 323 324 325 326
countered easily by surrounding the statements by a block \(or even
better with the \"do { ... } while \(0)\" trick)."
  :type 'boolean
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
327
(defcustom-c-stylevar c-comment-only-line-offset 0
Richard M. Stallman's avatar
Richard M. Stallman committed
328 329 330 331 332 333 334 335
  "*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
336 337 338 339 340 341
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
342 343 344 345 346 347
		 (cons :tag "Non-anchored & anchored offset"
		       :value (0 . 0)
		       (integer :tag "Non-anchored offset")
		       (integer :tag "Anchored offset")))
  :group 'c)

348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 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 426 427
(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"
		      (c-const-symbol :format "%v: "
				      :size 20
				      :value ,elt)
		      (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
428
  "*Specifies how \\[indent-for-comment] should handle comment-only lines.
Richard M. Stallman's avatar
Richard M. Stallman committed
429
When this variable is non-nil, comment-only lines are indented
Gerd Moellmann's avatar
Gerd Moellmann committed
430 431 432 433
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
434 435 436
  :type 'boolean
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
437 438 439 440 441 442
(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.
443 444 445
;; [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
446

Gerd Moellmann's avatar
Gerd Moellmann committed
447 448
(defcustom-c-stylevar c-block-comment-prefix
  (if (boundp 'c-comment-continuation-stars)
449
      (symbol-value 'c-comment-continuation-stars)
Gerd Moellmann's avatar
Gerd Moellmann committed
450 451
    "* ")
  "*Specifies the line prefix of continued C-style block comments.
452 453
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
454 455 456 457 458 459 460 461 462
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."
463
  :type 'string
Gerd Moellmann's avatar
Gerd Moellmann committed
464 465
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
466 467
(defcustom-c-stylevar c-comment-prefix-regexp
  '((pike-mode . "//+!?\\|\\**")
468
    (awk-mode . "#+")
Gerd Moellmann's avatar
Gerd Moellmann committed
469
    (other . "//+\\|\\**"))
Gerd Moellmann's avatar
Gerd Moellmann committed
470 471 472 473
  "*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
474 475 476 477 478 479 480 481 482 483 484 485 486
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
487

488
Note that CC Mode uses this variable to set many other variables that
489
handle the paragraph filling.  That's done at mode initialization or
490 491
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,
492 493
you will need to do \\[c-setup-paragraph-variables] afterwards so that
the other variables are updated with the new value.
494

495 496 497 498
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
499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515
  :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"
516 517 518
		  (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
519 520
	   (cons :format "    %v"
		 (const :format "Other " other) (regexp :format "%v"))))
521 522
  :group 'c)

523 524
(defcustom-c-stylevar c-doc-comment-style
  '((java-mode . javadoc)
525 526
    (pike-mode . autodoc)
    (c-mode    . gtkdoc))
527 528 529 530 531 532 533 534 535
  "*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).
536
 gtkdoc  -- GtkDoc style for \"/** ... **/\" comments (default in C mode).
537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 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

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"))
588 589 590
	    (cons :format "%v"
		  (const :format "AWK   " awk-mode)
		  (c-symbol-list :format "%v"))
591 592 593 594 595
	    (cons :format "%v"
		  (const :format "Other " other)
		  (c-symbol-list :format "%v")))))
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616
(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
617
  "*List of various C/C++/ObjC constructs to \"clean up\".
Gerd Moellmann's avatar
Gerd Moellmann committed
618
The following clean ups only take place when the auto-newline feature
619 620
is turned on, as evidenced by the `/la' appearing next to the mode
name:
Richard M. Stallman's avatar
Richard M. Stallman committed
621

Gerd Moellmann's avatar
Gerd Moellmann committed
622 623 624
 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
625
                        white space between the braces and the `else'.
Gerd Moellmann's avatar
Gerd Moellmann committed
626
                        Clean up occurs when the open brace after the
Richard M. Stallman's avatar
Richard M. Stallman committed
627
                        `else' is typed.
Gerd Moellmann's avatar
Gerd Moellmann committed
628 629 630 631 632 633 634
 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
635
                        braces on the same line.  Clean up occurs when
636
                        the defun closing brace is typed.
637 638 639 640
 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.
641 642 643
                        `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
644
 defun-close-semi    -- Clean up the terminating semi-colon on defuns
645 646 647
                        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
648
 list-close-comma    -- Clean up commas following braces in array
Richard M. Stallman's avatar
Richard M. Stallman committed
649
                        and aggregate initializers.  Clean up occurs
650
                        when the comma is typed.
Gerd Moellmann's avatar
Gerd Moellmann committed
651
 scope-operator      -- Clean up double colons which may designate
652 653 654 655 656 657
                        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
658 659 660 661 662 663 664 665 666

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
667
                        opening parenthesis if and only if the
Gerd Moellmann's avatar
Gerd Moellmann committed
668 669 670 671
                        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
672 673 674 675 676
                        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
677
  :type '(set
678
	  (const :tag "Put \"} else {\" on one line (brace-else-brace)"
Gerd Moellmann's avatar
Gerd Moellmann committed
679
		 brace-else-brace)
680
	  (const :tag "Put \"} else if (...) {\" on one line (brace-elseif-brace)"
Gerd Moellmann's avatar
Gerd Moellmann committed
681
		 brace-elseif-brace)
682
	  (const :tag "Put \"} catch (...) {\" on one line (brace-catch-brace)"
Gerd Moellmann's avatar
Gerd Moellmann committed
683
		 brace-catch-brace)
684
	  (const :tag "Put empty defun braces on one line (empty-defun-braces)"
Gerd Moellmann's avatar
Gerd Moellmann committed
685
		 empty-defun-braces)
686 687 688
	  (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
689
		 defun-close-semi)
690
	  (const :tag "Put \"},\" in aggregates on one line (list-close-comma)"
Gerd Moellmann's avatar
Gerd Moellmann committed
691
		 list-close-comma)
692
	  (const :tag "Put C++ style \"::\" on one line (scope-operator)"
Gerd Moellmann's avatar
Gerd Moellmann committed
693
		 scope-operator)
694
	  (const :tag "Put a space before funcall parens, e.g. \"foo (bar)\" (space-before-funcall)"
Gerd Moellmann's avatar
Gerd Moellmann committed
695
		 space-before-funcall)
696 697 698 699
	  (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
700 701
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
702 703
(defcustom-c-stylevar c-hanging-braces-alist '((brace-list-open)
					       (brace-entry-open)
704
					       (statement-cont)
Gerd Moellmann's avatar
Gerd Moellmann committed
705 706 707
					       (substatement-open after)
					       (block-close . c-snug-do-while)
					       (extern-lang-open after)
708 709 710
					       (namespace-open after)
					       (module-open after)
					       (composition-open after)
Gerd Moellmann's avatar
Gerd Moellmann committed
711 712 713 714 715 716
					       (inexpr-class-open after)
					       (inexpr-class-close before))
  "*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
717 718 719 720 721 722 723

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.

724 725 726 727 728 729 730
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
731 732 733 734 735 736 737 738 739 740 741

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
742 743 744 745 746 747 748 749
  :type
  `(set ,@(mapcar
	   (lambda (elt)
	     `(cons :format "%v"
		    (c-const-symbol :format "%v: "
				    :size 20
				    :value ,elt)
		    (choice :format "%[Choice%] %v"
750
			    :value (before after)
Gerd Moellmann's avatar
Gerd Moellmann committed
751 752 753 754 755 756 757 758 759 760 761
			    (set :menu-tag "Before/after"
				 :format "Newline %v brace\n"
				 (const :format "%v, " before)
				 (const :format "%v" after))
			    (function :menu-tag "Function"
				      :format "Run function: %v"
				      :value c-))))
	   '(defun-open defun-close
	      class-open class-close
	      inline-open inline-close
	      block-open block-close
762
	      statement-cont substatement-open statement-case-open
Gerd Moellmann's avatar
Gerd Moellmann committed
763 764
	      brace-list-open brace-list-close
	      brace-list-intro brace-entry-open
765
	      extern-lang-open extern-lang-close
Gerd Moellmann's avatar
Gerd Moellmann committed
766
	      namespace-open namespace-close
767 768
	      module-open module-close
	      composition-open composition-close
Gerd Moellmann's avatar
Gerd Moellmann committed
769 770 771
	      inexpr-class-open inexpr-class-close)))
    :group 'c)

772 773 774 775 776 777
(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
778
(defcustom-c-stylevar c-hanging-colons-alist nil
Richard M. Stallman's avatar
Richard M. Stallman committed
779 780 781 782 783 784 785 786 787 788
  "*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
789 790 791 792 793 794 795 796 797 798 799
  :type
  `(set ,@(mapcar
	   (lambda (elt)
	     `(cons :format "%v"
		    (c-const-symbol :format "%v: "
				    :size 20
				    :value ,elt)
		    (set :format "Newline %v brace\n"
			 (const :format "%v, " before)
			 (const :format "%v" after))))
	   '(case-label label access-label member-init-intro inher-intro)))
Richard M. Stallman's avatar
Richard M. Stallman committed
800 801
  :group 'c)

Gerd Moellmann's avatar
Gerd Moellmann committed
802 803
(defcustom-c-stylevar c-hanging-semi&comma-criteria
  '(c-semi&comma-inside-parenlist)
Richard M. Stallman's avatar
Richard M. Stallman committed
804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819
  "*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
820
(defcustom-c-stylevar c-backslash-column 48
821 822 823 824
  "*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
825
used as alignment column instead.  See also `c-backslash-max-column'."
Richard M. Stallman's avatar
Richard M. Stallman committed
826 827
  :type 'integer
  :group 'c)
828
;;;###autoload(put 'c-backslash-column 'safe-local-variable 'integerp)
Richard M. Stallman's avatar
Richard M. Stallman committed
829

830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846
(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
847 848 849 850 851 852 853 854
  :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
855
  "*Function called by `c-electric-delete-forward' when deleting forwards."
Richard M. Stallman's avatar
Richard M. Stallman committed
856 857 858
  :type 'function
  :group 'c)

859
(defcustom c-require-final-newline
860
  ;; C and C++ mandate that all nonempty files should end with a
861
  ;; newline.  Objective-C refers to C for all things it doesn't
862
  ;; specify, so the same holds there.  The other languages do not
863 864 865 866
  ;; require it (at least not explicitly in a normative text).
  '((c-mode    . t)
    (c++-mode  . t)
    (objc-mode . t))
867 868 869 870 871 872
  "*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."
873 874
  :type `(set (cons :format "%v"
		    (const :format "C     " c-mode)
875
		    (symbol :format "%v" :value ,require-final-newline))
876 877
	      (cons :format "%v"
		    (const :format "C++   " c++-mode)
878
		    (symbol :format "%v" :value ,require-final-newline))
879 880
	      (cons :format "%v"
		    (const :format "ObjC  " objc-mode)
881
		    (symbol :format "%v" :value ,require-final-newline))
882 883
	      (cons :format "%v"
		    (const :format "Java  " java-mode)
884
		    (symbol :format "%v" :value ,require-final-newline))
885 886
	      (cons :format "%v"
		    (const :format "IDL   " idl-mode)
887
		    (symbol :format "%v" :value ,require-final-newline))
888 889
	      (cons :format "%v"
		    (const :format "Pike  " pike-mode)
890 891 892 893
		    (symbol :format "%v" :value ,require-final-newline))
	      (cons :format "%v"
		    (const :format "AWK   " awk-mode)
		    (symbol :format "%v" :value ,require-final-newline)))
894 895
  :group 'c)

Richard M. Stallman's avatar
Richard M. Stallman committed
896 897 898
(defcustom c-electric-pound-behavior nil
  "*List of behaviors for electric pound insertion.
Only currently supported behavior is `alignleft'."
899 900 901 902 903
  :type '(set (const alignleft))
  :group 'c)

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

Gerd Moellmann's avatar
Gerd Moellmann committed
909
(defcustom-c-stylevar c-label-minimum-indentation 1
Martin Stjernholm's avatar
Martin Stjernholm committed
910
  "*Minimum indentation for lines inside code blocks.
Richard M. Stallman's avatar
Richard M. Stallman committed
911
This variable typically only affects code using the `gnu' style, which
Martin Stjernholm's avatar
Martin Stjernholm committed
912 913 914
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
915 916 917 918 919 920
  :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
921 922
that many seconds.  To inhibit all messages during indentation, set
this variable to nil."
Richard M. Stallman's avatar
Richard M. Stallman committed
923 924 925
  :type 'integer
  :group 'c)

926 927
(defcustom c-default-style '((java-mode . "java") (awk-mode . "awk")
			     (other . "gnu"))
Barry A. Warsaw's avatar
Barry A. Warsaw committed
928
  "*Style which gets installed by default when a file is visited.
929 930

The value of this variable can be any style defined in
Barry A. Warsaw's avatar
Barry A. Warsaw committed
931 932 933 934
`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
935
style by default.
Barry A. Warsaw's avatar
Barry A. Warsaw committed
936

Gerd Moellmann's avatar
Gerd Moellmann committed
937 938 939 940 941 942 943 944
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
945
`c-set-style' in the appropriate mode hook."
Gerd Moellmann's avatar
Gerd Moellmann committed
946
  :type '(radio
Gerd Moellmann's avatar
Gerd Moellmann committed
947 948 949 950 951 952 953 954 955 956 957 958 959 960
	  (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"))
961 962
	    (cons :format "%v"
		  (const :format "AWK   " awk-mode) (string :format "%v"))
Gerd Moellmann's avatar
Gerd Moellmann committed
963 964
	    (cons :format "%v"
		  (const :format "Other " other) (string :format "%v"))))
Gerd Moellmann's avatar
Gerd Moellmann committed
965 966
  :group 'c)

967 968 969 970 971 972 973 974
;; *) 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
975
     '((string                . c-lineup-dont-change)
976
       ;; Anchor pos: Beg of previous line.
Gerd Moellmann's avatar
Gerd Moellmann committed
977
       (c                     . c-lineup-C-comments)
978
       ;; Anchor pos: Beg of the comment.
Gerd Moellmann's avatar
Gerd Moellmann committed
979
       (defun-open            . 0)
980
       ;; Anchor pos: When inside a class: Boi at the func decl start.
981 982 983
       ;; 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
984
       (defun-close           . 0)
985 986
       ;; 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
987
       (defun-block-intro     . +)
988
       ;; Anchor pos: At the block open(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
989
       (class-open            . 0)
990
       ;; Anchor pos: Boi at the class decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
991
       (class-close           . 0)
992
       ;; Anchor pos: Boi at the class decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
993
       (inline-open           . +)
994 995
       ;; Anchor pos: None for functions (inclass got the relpos
       ;; then), boi at the lambda start for lambdas.
Gerd Moellmann's avatar
Gerd Moellmann committed
996
       (inline-close          . 0)
997 998 999 1000
       ;; 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
1001
       (func-decl-cont        . +)
1002
       ;; Anchor pos: Boi at the func decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1003
       (knr-argdecl-intro     . +)
1004
       ;; Anchor pos: Boi at the topmost intro line.
Gerd Moellmann's avatar
Gerd Moellmann committed
1005
       (knr-argdecl           . 0)
1006
       ;; Anchor pos: At the beginning of the first K&R argdecl.
Gerd Moellmann's avatar
Gerd Moellmann committed
1007
       (topmost-intro         . 0)
1008
       ;; Anchor pos: Bol at the last line of previous construct.
1009
       (topmost-intro-cont    . c-lineup-topmost-intro-cont)
1010
       ;; Anchor pos: Boi at the topmost intro line.
Gerd Moellmann's avatar
Gerd Moellmann committed
1011
       (member-init-intro     . +)
1012
       ;; Anchor pos: Boi at the func decl arglist open.
1013
       (member-init-cont      . c-lineup-multi-inher)
1014
       ;; Anchor pos: Beg of the first member init.
Gerd Moellmann's avatar
Gerd Moellmann committed
1015
       (inher-intro           . +)
1016
       ;; Anchor pos: Boi at the class decl start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1017
       (inher-cont            . c-lineup-multi-inher)
1018
       ;; Anchor pos: Java: At the implements/extends keyword start.
Gerd Moellmann's avatar
Gerd Moellmann committed
1019 1020 1021 1022
       ;; 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)
1023 1024
       ;; 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
1025
       (block-close           . 0)
1026 1027 1028 1029 1030
       ;; 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
1031
       (brace-list-open       . 0)
1032
       ;; Anchor pos: Boi at the brace list decl start, but a starting
Gerd Moellmann's avatar
Gerd Moellmann committed
1033 1034
       ;; "typedef" token is ignored.
       (brace-list-close      . 0)
1035
       ;; Anchor pos: At the brace list decl start(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1036
       (brace-list-intro      . +)
1037
       ;; Anchor pos: At the brace list decl start(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1038
       (brace-list-entry      . 0)
1039 1040
       ;; 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
1041 1042
       ;; token.
       (brace-entry-open      . 0)
1043
       ;; Anchor pos: Same as brace-list-entry.
Gerd Moellmann's avatar
Gerd Moellmann committed
1044
       (statement             . 0)
1045
       ;; Anchor pos: After a `;' in the condition clause of a for
Gerd Moellmann's avatar
Gerd Moellmann committed
1046
       ;; statement: At the first token after the starting paren.
1047
       ;; Otherwise: At the preceding statement(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1048
       (statement-cont        . +)
1049 1050 1051
       ;; 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
1052
       (statement-block-intro . +)
1053 1054 1055
       ;; 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
1056 1057 1058
       ;; 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
1059
       (statement-case-intro  . +)
1060
       ;; Anchor pos: At the case/default label(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1061
       (statement-case-open   . 0)
1062
       ;; Anchor pos: At the case/default label(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1063
       (substatement          . +)
1064
       ;; Anchor pos: At the containing statement(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1065
       (substatement-open     . +)
1066
       ;; Anchor pos: At the containing statement(*).
1067
       (substatement-label    . 2)
1068
       ;; Anchor pos: At the containing statement(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1069
       (case-label            . 0)
1070
       ;; Anchor pos: At the start of the switch block(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1071
       (access-label          . -)
1072
       ;; Anchor pos: Same as inclass.
Gerd Moellmann's avatar
Gerd Moellmann committed
1073
       (label                 . 2)
1074
       ;; Anchor pos: At the start of the containing block(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1075
       (do-while-closure      . 0)
1076
       ;; Anchor pos: At the corresponding while statement(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1077
       (else-clause           . 0)
1078
       ;; Anchor pos: At the corresponding if statement(*).
Gerd Moellmann's avatar
Gerd Moellmann committed
1079
       (catch-clause          . 0)
1080
       ;; Anchor pos: At the previous try or catch statement clause(*).
1081
       (comment-intro         . (c-lineup-knr-region-comment c-lineup-comment))
1082
       ;; Anchor pos: None.
Gerd Moellmann's avatar
Gerd Moellmann committed
1083
       (arglist-intro         . +)
1084 1085
       ;; Anchor pos: At the containing statement(*).
       ;; 2nd pos: At the open paren.
1086
       (arglist-cont          . (c-lineup-gcc-asm-reg 0))
1087
       ;; Anchor pos: At the first token after the open paren.
1088
       (arglist-cont-nonempty . (c-lineup-gcc-asm-reg c-lineup-arglist))
1089