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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10e9e98710b162c6b541ce81b41aff94b08bbe92..7f0fe841865d48cc54911ff464f4c7ce47ad70a2 100644 (file)
--- 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 b164588d8f18dd4274ae1b082f34f1dd0d2ac986..f8f608b01d0a4e152d4f6b9d13e59302d8a67af0 100644 (file)
--- 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.")