Skip to content

GitLab

Commit 4cb9d259 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 018cfa07
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 2 deletions
lisp/emulation/tpu-mapper.el
View file @ 4cb9d259
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment