diff options
| author | Luc Teirlinck <[email protected]> | 2004-11-29 23:26:08 +0000 |
|---|---|---|
| committer | Luc Teirlinck <[email protected]> | 2004-11-29 23:26:08 +0000 |
| commit | d55f9265dd4596d63d040cf8758f6d50a4c45b74 (patch) | |
| tree | 62359a5aa4598e4d9d6543533decf54e82d68ffb /lisp/emulation | |
| parent | d01320554292c816606acd1d4b281755fb078613 (diff) | |
(tpu-help-keypad-map, tpu-help-text)
(tpu-word-separator-list, tpu-skip-chars): defconst->defvar.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index b164588d8f..f8f608b01d 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.") |