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 | |
| parent | d01320554292c816606acd1d4b281755fb078613 (diff) | |
(tpu-help-keypad-map, tpu-help-text)
(tpu-word-separator-list, tpu-skip-chars): defconst->defvar.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 8 |
2 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 10e9e98710..7f0fe84186 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-29 Luc Teirlinck <[email protected]> + + * 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 <[email protected]> * 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 <[email protected]> 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.") |