From 4cb9d259e0dbeb457456062b1c7160c05ffc850b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 11 Aug 1993 05:00:27 +0000 Subject: [PATCH] Insert setqs for tpu-help-... variables. --- lisp/emulation/tpu-mapper.el | 8 ++++++-- 1 file 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 \"[#]\")\n") + (insert "(setq tpu-help-n \"[#]\")\n") + (insert "(setq tpu-help-P \"[#]\")\n") + (insert "(setq tpu-help-p \"[#]\")\n")) (t (insert (format "(setq tpu-help-enter \"%s\")\n" tpu-enter)))) -- 2.39.5