changeset 51748:f3cad02bce62

(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.
author Martin Stjernholm <mast@lysator.liu.se>
date Sat, 05 Jul 2003 19:54:33 +0000
parents b4fb79bf98ba
children df7cb5ddf978
files lisp/progmodes/cc-langs.el lisp/progmodes/cc-styles.el
diffstat 2 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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))