Function: tpu-map-key

tpu-map-key is an interactive and byte-compiled function defined in tpu-mapper.el.gz.

Signature

(tpu-map-key IDENT DESCRIP FUNC GOLD-FUNC)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-mapper.el.gz
;;;
;;;  Key mapping function
;;;
(defun tpu-map-key (ident descrip func gold-func)
  (interactive)
  (message "Press %s%s: " ident descrip)
  (setq tpu-key-seq (read-event)
        tpu-key (format "[%s]" tpu-key-seq))
  (unless (equal tpu-key tpu-return)
    (set-buffer "Keys")
    (insert (format"(define-key tpu-global-map %s %s)\n" tpu-key func))
    (set-buffer "Gold-Keys")
    (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key gold-func)))
  (set-buffer "Directions")
  tpu-key)