(tpu-help-keypad-map, tpu-help-text)

(tpu-word-separator-list, tpu-skip-chars): defconst->defvar.

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10e9e98710b..7f0fe841865 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-29  Luc Teirlinck  <teirllm@auburn.edu>
+
+        * emulation/tpu-edt.el (tpu-help-keypad-map, tpu-help-text)
+        (tpu-word-separator-list, tpu-skip-chars): defconst->defvar.
+
 2004-11-29  Jay Belanger  <belanger@truman.edu>
 
         * calc/calc-arith.el (math-pow-of-zero): Take into account different
@@ -13,7 +18,7 @@
         * replace.el (occur-next-error): switch to the Occur buffer when
         appropriate, and use the exclusive filter to
         next-error-find-buffer to do it.  Use the absolute value of the
-        motion amount.  
+        motion amount.
 
 2004-11-29  Kenichi Handa  <handa@m17n.org>
 
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index b164588d8f1..f8f608b01d0 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -844,7 +844,7 @@ This is useful for inserting control characters."
 ;;;
 ;;;  Help
 ;;;
-(defconst tpu-help-keypad-map "\f
+(defvar tpu-help-keypad-map "\f
           _______________________    _______________________________
          | HELP  |      Do       |  |       |       |       |       |
          |KeyDefs|               |  |       |       |       |       |
@@ -867,7 +867,7 @@ This is useful for inserting control characters."
                                     |_______________|_______|_______|
 ")
 
-(defconst tpu-help-text "
+(defvar tpu-help-text "
 \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\f
 
       Control Characters
@@ -1706,9 +1706,9 @@ A repeat count means move that many characters."
 ;;;
 ;;;  Movement by word
 ;;;
-(defconst tpu-word-separator-list '()
+(defvar tpu-word-separator-list '()
   "List of additional word separators.")
-(defconst tpu-skip-chars "^ \t"
+(defvar tpu-skip-chars "^ \t"
   "Characters to skip when moving by word.
 Additional word separators are added to this string.")