mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1993-08-11 05:00:27 +00:00
parent 018cfa0756
commit 4cb9d259e0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emulation/tpu-mapper.el
View File

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