From: Luc Teirlinck <teirllm@auburn.edu>
Date: Mon, 29 Nov 2004 23:26:08 +0000 (+0000)
Subject: (tpu-help-keypad-map, tpu-help-text)
X-Git-Tag: ttn-vms-21-2-B4~3563
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d55f9265dd4596d63d040cf8758f6d50a4c45b74;p=emacs.git

(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 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.")