# HG changeset patch # User Martin Stjernholm # Date 1057434873 0 # Node ID f3cad02bce6289a0ec3ba784d9a30d7016f596bc # Parent b4fb79bf98bad1ac91db0fc8dcf89254ab924fd9 (c-style-alist, c-lang-variable-inits, c-lang-variable-inits-tail): The values of these are changed, so declare them as variables and not constants. diff -r b4fb79bf98ba -r f3cad02bce62 lisp/progmodes/cc-langs.el --- a/lisp/progmodes/cc-langs.el Sat Jul 05 19:53:33 2003 +0000 +++ b/lisp/progmodes/cc-langs.el Sat Jul 05 19:54:33 2003 +0000 @@ -131,8 +131,10 @@ ;; These are used to collect the init forms from the subsequent ;; `c-lang-defvar'. They are used to build the lambda in ;; `c-make-init-lang-vars-fun' below. - (defconst c-lang-variable-inits (list nil)) - (defconst c-lang-variable-inits-tail c-lang-variable-inits)) + (defvar c-lang-variable-inits nil) + (defvar c-lang-variable-inits-tail nil) + (setq c-lang-variable-inits (list nil) + c-lang-variable-inits-tail c-lang-variable-inits)) (defmacro c-lang-defvar (var val &optional doc) "Declares the buffer local variable VAR to get the value VAL at mode diff -r b4fb79bf98ba -r f3cad02bce62 lisp/progmodes/cc-styles.el --- a/lisp/progmodes/cc-styles.el Sat Jul 05 19:53:33 2003 +0000 +++ b/lisp/progmodes/cc-styles.el Sat Jul 05 19:54:33 2003 +0000 @@ -50,8 +50,7 @@ (cc-bytecomp-defvar adaptive-fill-first-line-regexp) ; Emacs -;; Warning: don't eval-defun this constant or you'll break style inheritance. -(defconst c-style-alist +(defvar c-style-alist '(("gnu" (c-basic-offset . 2) (c-comment-only-line-offset . (0 . 0))