Mercurial > emacs
comparison lisp/progmodes/cc-mode.el @ 49496:2c05c557df6c
(c-require-final-newline): Made this variable an alist to specify a value
for each language. The default value causes `require-final-newline' to be
set to t only in languages where the standard requires a final newline.
| author | Martin Stjernholm <mast@lysator.liu.se> |
|---|---|
| date | Tue, 28 Jan 2003 00:41:21 +0000 |
| parents | 13365bab7fce |
| children | b025ca405045 |
comparison
equal
deleted
inserted
replaced
| 49495:c6abb7476297 | 49496:2c05c557df6c |
|---|---|
| 297 ;; Common initializations for all modes. | 297 ;; Common initializations for all modes. |
| 298 (setq c-buffer-is-cc-mode mode) | 298 (setq c-buffer-is-cc-mode mode) |
| 299 | 299 |
| 300 ;; these variables should always be buffer local; they do not affect | 300 ;; these variables should always be buffer local; they do not affect |
| 301 ;; indentation style. | 301 ;; indentation style. |
| 302 (make-local-variable 'require-final-newline) | |
| 303 (make-local-variable 'parse-sexp-ignore-comments) | 302 (make-local-variable 'parse-sexp-ignore-comments) |
| 304 (make-local-variable 'indent-line-function) | 303 (make-local-variable 'indent-line-function) |
| 305 (make-local-variable 'indent-region-function) | 304 (make-local-variable 'indent-region-function) |
| 306 (make-local-variable 'outline-regexp) | 305 (make-local-variable 'outline-regexp) |
| 307 (make-local-variable 'outline-level) | 306 (make-local-variable 'outline-level) |
| 324 (make-local-variable 'comment-line-break-function) | 323 (make-local-variable 'comment-line-break-function) |
| 325 (setq comment-line-break-function | 324 (setq comment-line-break-function |
| 326 'c-indent-new-comment-line))) | 325 'c-indent-new-comment-line))) |
| 327 | 326 |
| 328 ;; now set their values | 327 ;; now set their values |
| 329 (setq require-final-newline c-require-final-newline | 328 (setq parse-sexp-ignore-comments t |
| 330 parse-sexp-ignore-comments t | |
| 331 indent-line-function 'c-indent-line | 329 indent-line-function 'c-indent-line |
| 332 indent-region-function 'c-indent-region | 330 indent-region-function 'c-indent-region |
| 333 outline-regexp "[^#\n\^M]" | 331 outline-regexp "[^#\n\^M]" |
| 334 outline-level 'c-outline-level | 332 outline-level 'c-outline-level |
| 335 normal-auto-fill-function 'c-do-auto-fill | 333 normal-auto-fill-function 'c-do-auto-fill |
| 336 comment-column 32 | 334 comment-column 32 |
| 337 comment-start-skip "/\\*+ *\\|//+ *" | 335 comment-start-skip "/\\*+ *\\|//+ *" |
| 338 comment-multi-line t) | 336 comment-multi-line t) |
| 337 | |
| 338 ;; Set `require-final-newline' only if we should. | |
| 339 (let ((rfn (assq mode c-require-final-newline))) | |
| 340 (when rfn | |
| 341 (make-local-variable 'require-final-newline) | |
| 342 (setq require-final-newline (cdr rfn)))) | |
| 339 | 343 |
| 340 ;; Fix keyword regexps. | 344 ;; Fix keyword regexps. |
| 341 (c-init-language-vars) | 345 (c-init-language-vars) |
| 342 | 346 |
| 343 ;; now set the mode style based on c-default-style | 347 ;; now set the mode style based on c-default-style |