Mercurial > emacs
changeset 58628:62a7c13576b7
(tpu-help-keypad-map, tpu-help-text)
(tpu-word-separator-list, tpu-skip-chars): defconst->defvar.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 29 Nov 2004 23:22:37 +0000 |
| parents | fee84e9454db |
| children | 68449d290f2b |
| files | lisp/emulation/tpu-edt.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.")