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

variables, not constants.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4ecd05a778ffb7b7851d517f1b520529995d8db9..b2237cb06209a8ca34bd0e722abf8e382663d310 100644 (file)
--- 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 0d7c79ec6f7124b31903f47f9b6979233906c325..10f3cecd3ee8da65d5f92fc9d207f840d109fa6d 100644 (file)
--- 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)