# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1101770557 0
# Node ID 62a7c13576b7cf37e1cb0833f995bc7e561e1782
# Parent  fee84e9454dbee025974f4df40667f867168c827
(tpu-help-keypad-map, tpu-help-text)
(tpu-word-separator-list, tpu-skip-chars): defconst->defvar.

diff -r fee84e9454db -r 62a7c13576b7 lisp/emulation/tpu-edt.el
--- a/lisp/emulation/tpu-edt.el	Mon Nov 29 22:50:05 2004 +0000
+++ b/lisp/emulation/tpu-edt.el	Mon Nov 29 23:22:37 2004 +0000
@@ -844,7 +844,7 @@
 ;;;
 ;;;  Help
 ;;;
-(defconst tpu-help-keypad-map "\f
+(defvar tpu-help-keypad-map "\f
           _______________________    _______________________________
          | HELP  |      Do       |  |       |       |       |       |
          |KeyDefs|               |  |       |       |       |       |
@@ -867,7 +867,7 @@
                                     |_______________|_______|_______|
 ")
 
-(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 @@
 ;;;
 ;;;  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.")