(defvar c-styles (quote (gnu-style my-style))) (defvar current-style nil) (defvar c-mode-hook nil) (setq c-mode-hook (cons (quote (lambda nil (and current-style (funcall current-style)))) c-mode-hook)) (defun choose-c-style (&optional style) (interactive) (byte-code "ˆ†ΖΗΘΙΚ \"ΒΓΒ%!‰ˆ‰ˆ Λ>…\"Μ !‡" [style c-styles nil t current-style major-mode intern completing-read "C style: " mapcar (lambda (x) (byte-code "Α!B‡" [x symbol-name] 3)) (c-mode c++-mode) funcall] 8)) (defun gnu-style nil (byte-code "Ε‰ˆΕ‰ˆΕ‰ˆΖ‰ˆΖ‰‡" [c-brace-offset c-continued-brace-offset c-brace-imaginary-offset c-indent-level c-continued-statement-offset 0 2] 2)) (defun my-style nil (byte-code "Ε‰ˆΕ‰ˆΕ‰ˆΖ‰ˆΖ‰‡" [c-brace-offset c-continued-brace-offset c-brace-imaginary-offset c-indent-level c-continued-statement-offset 0 4] 2))