diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-08-11 05:00:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-08-11 05:00:27 +0000 |
| commit | 4cb9d259e0dbeb457456062b1c7160c05ffc850b (patch) | |
| tree | f96e407434d38aee835db99ded678b4ce1f55c15 /lisp/emulation/tpu-mapper.el | |
| parent | 018cfa07566679b9335a99ac32217386cb5fd95a (diff) | |
| download | emacs-4cb9d259e0dbeb457456062b1c7160c05ffc850b.tar.gz | |
Insert setqs for tpu-help-... variables.
Diffstat (limited to 'lisp/emulation/tpu-mapper.el')
| -rw-r--r-- | lisp/emulation/tpu-mapper.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index fadb2d104ab..b99add2baa3 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el @@ -69,7 +69,7 @@ ;;; ;;; Revision Information ;;; -(defconst tpu-mapper-revision "$Revision: 1.3 $" +(defconst tpu-mapper-revision "$Revision: 1.5 $" "Revision number of TPU-edt x-windows emacs key mapper.") @@ -351,7 +351,11 @@ (cond (tpu-lucid-emacs19-p (insert (format "(setq tpu-help-enter \"%s\")\n" tpu-enter-seq)) - (insert (format "(setq tpu-help-return \"%s\")\n" tpu-return-seq))) + (insert (format "(setq tpu-help-return \"%s\")\n" tpu-return-seq)) + (insert "(setq tpu-help-N \"[#<keypress-event N>]\")\n") + (insert "(setq tpu-help-n \"[#<keypress-event n>]\")\n") + (insert "(setq tpu-help-P \"[#<keypress-event P>]\")\n") + (insert "(setq tpu-help-p \"[#<keypress-event p>]\")\n")) (t (insert (format "(setq tpu-help-enter \"%s\")\n" tpu-enter)))) |