;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 01:58:18 1993 ;;; from file /th/jwz/emacs19/lisp/modes/c-style.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar default-c-style 'GNU "\ *The default value of c-style. Set this in your .emacs.") (byte-code "!" [boundp c-style-alist ((GNU (c-indent-level 2) (c-continued-statement-offset 2) (c-brace-offset 0) (c-argdecl-indent 5) (c-label-offset -2)) (BSD (c-indent-level 8) (c-continued-statement-offset 8) (c-brace-offset -8) (c-argdecl-indent 8) (c-label-offset -8)) (K&R (c-indent-level 5) (c-continued-statement-offset 5) (c-brace-offset -5) (c-argdecl-indent 0) (c-label-offset -5)) (BS (c-indent-level 4) (c-continued-statement-offset 4) (c-brace-offset -4) (c-argdecl-indent 4) (c-label-offset -4)) (LRS (c-indent-level 4) (c-continued-statement-offset 4) (c-brace-offset 0) (c-argdecl-indent 4) (c-label-offset -2) (c-auto-newline nil)) (Plauger (c-indent-level 0) (c-continued-statement-offset 8) (c-continued-brace-offset -8) (c-brace-offset 8) (c-brace-imaginary-offset 0) (c-argdecl-indent 0) (c-label-offset -8) (c-auto-newline t) (c-tab-always-indent t)) (Alman (c-argdecl-indent 0) (c-brace-imaginary-offset 2) (c-brace-offset 0) (c-continued-statement-offset 2) (c-indent-level 0) (c-label-offset -2) (c-auto-newline t) (comment-column 40) (tab-width 2) (fill-column '79)) (Gould (c-indent-level 4) (c-continued-statement-offset 4) (c-brace-offset -4) (c-argdecl-indent 8) (c-label-offset -2) (c-brace-imaginary-offset 0)) (WRS (c-indent-level 0) (c-continued-statement-offset 4) (c-brace-offset 0) (c-argdecl-indent 4) (c-label-offset -2) (c-brace-imaginary-offset 4) (c-continued-brace-offset -4)))] 2) (defvar c-style nil "\ The buffer local c-mode indentation style.") (defvar c-style-name nil "\ The style name for a c-mode indentation style. This is to be set by set-c-style, and used by the mode line.") (byte-code " \"!" [c-style-name minor-mode-alist purecopy append ((c-style-name c-style-name))] 4) (fset 'set-c-style #[(&optional style) "\n\"t\" !#\n˘\n!)   ! >  \"\"!\"\nA\")" [mapcar car c-style-alist c-styles completing-read format "Set c-mode indentation style to (default %s): " default-c-style vconcat #[(arg) " >" [arg c-styles] 2] style-string "" intern style make-local-variable c-style error "Undefined c style: %s" message "c-style: %s" c-style-name " %s" #[(c-style-pair) " @! @ A@L" [make-local-variable c-style-pair] 2]] 5 "\ Set up the c-mode style variables from STYLE if it is given, or default-c-style otherwise. It makes the c indentation style variables buffer local." nil])