(foldout-fold-list, foldout-modeline-string): Declare them as

variables, not constants.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4ecd05a778f..b2237cb0620 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-10  John Paul Wallington  <jpw@gnu.org>
+
+        * foldout.el (foldout-fold-list, foldout-modeline-string): 
+        Declare them as variables, not constants.
+
 2004-03-10  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
         * ps-print.el: Modification to print *Messages* buffer.
diff --git a/lisp/foldout.el b/lisp/foldout.el
index 0d7c79ec6f7..10f3cecd3ee 100644
--- a/lisp/foldout.el
+++ b/lisp/foldout.el
@@ -214,12 +214,12 @@
 (if (not (boundp 'outline-minor-mode))
     (error "Can't find outline-minor-mode"))
 
-(defconst foldout-fold-list nil
+(defvar foldout-fold-list nil
   "List of start and end markers for the folds currently entered.
 An end marker of nil means the fold ends after (point-max).")
 (make-variable-buffer-local 'foldout-fold-list)
 
-(defconst foldout-modeline-string nil
+(defvar foldout-modeline-string nil
   "Modeline string announcing that we are in an outline fold.")
 (make-variable-buffer-local 'foldout-modeline-string)