From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 11 Aug 1993 05:00:27 +0000 (+0000)
Subject: Insert setqs for tpu-help-... variables.
X-Git-Tag: emacs-19.34~11303
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cb9d259e0dbeb457456062b1c7160c05ffc850b;p=emacs.git

Insert setqs for tpu-help-... variables.
---

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))))