Variable: tpu-gold-map
tpu-gold-map is a variable defined in tpu-edt.el.gz.
Value
Large value
$ tpu-add-at-eol
% tpu-goto-percent
* tpu-toggle-regexp
, tpu-goto-breadcrumb
- negative-argument
. tpu-drop-breadcrumb
/ tpu-emacs-replace
; tpu-trim-line-ends
<delete> tpu-store-text
<down> tpu-move-to-end
<f17> tpu-drop-breadcrumb
<help> describe-bindings
<kp-0> open-line
<kp-1> tpu-change-case
<kp-2> tpu-delete-to-eol
<kp-3> tpu-special-insert
<kp-4> tpu-move-to-end
<kp-5> tpu-move-to-beginning
<kp-6> tpu-paste
<kp-7> execute-extended-command
<kp-8> tpu-fill
<kp-9> tpu-replace
<kp-decimal> tpu-unselect
<kp-enter> tpu-substitute
<kp-f1> keyboard-quit
<kp-f2> help-for-help
<kp-f3> tpu-search
<kp-f4> tpu-undelete-lines
<kp-separator> tpu-undelete-char
<kp-subtract> tpu-undelete-words
<left> beginning-of-line
<next> tpu-next-window
<prior> tpu-previous-window
<right> end-of-line
<select> tpu-unselect
<up> tpu-move-to-beginning
? tpu-spell-check
C-a tpu-toggle-overwrite-mode
C-f set-visited-file-name
C-g keyboard-quit
C-h delete-other-windows
C-k tpu-define-macro-key
C-l downcase-region
C-t tpu-toggle-control-keys
C-u upcase-region
C-w tpu-write-current-buffers
DEL delete-window
L tpu-what-line
P lpr-buffer
SPC undo
TAB other-window
[ blink-matching-open
] blink-matching-open
^ tpu-add-at-bol
_ split-window-below
` what-line
a tpu-toggle-newline-and-indent
b tpu-next-buffer
c repeat-complex-command
d shell-command
e tpu-exit
f tpu-cursor-free-mode(var)/tpu-cursor-free-mode(fun)
g tpu-get
i tpu-include
k tpu-kill-buffer
l goto-line
m buffer-menu
n tpu-next-file-buffer
o occur
p lpr-region
q tpu-quit
r tpu-toggle-rectangle
s replace
t tpu-line-to-top-of-window
u undo
v tpu-version(var)/tpu-version(fun)
w save-buffer
x tpu-save-all-buffers-kill-emacs
y copy-region-as-kill
z suspend-emacs
| split-window-right
~ exchange-point-and-mark
..\x3FFFFF digit-argument
Documentation
Maps the function keys on the VT100 keyboard preceded by PF1.
GOLD is the ASCII 7-bit escape sequence <ESC>OP.
Source Code
;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
;;;
;;; Global Keymaps
;;;
(defvar tpu-gold-map
(let ((map (make-keymap)))
;; Previously we used escape sequences here. We now instead presume
;; that term/*.el does its job to map the escape sequence to the right
;; key-symbol.
(define-key map [up] #'tpu-move-to-beginning) ; up-arrow
(define-key map [down] #'tpu-move-to-end) ; down-arrow
(define-key map [right] #'end-of-line) ; right-arrow
(define-key map [left] #'beginning-of-line) ; left-arrow
;; (define-key map [find] nil) ; Find
;; (define-key map [insert] nil) ; Insert Here
(define-key map [delete] #'tpu-store-text) ; Remove
(define-key map [select] #'tpu-unselect) ; Select
(define-key map [prior] #'tpu-previous-window) ; Prev Screen
(define-key map [next] #'tpu-next-window) ; Next Screen
;; (define-key map [f1] nil) ; F1
;; (define-key map [f2] nil) ; F2
;; (define-key map [f3] nil) ; F3
;; (define-key map [f4] nil) ; F4
;; (define-key map [f5] nil) ; F5
;; (define-key map [f6] nil) ; F6
;; (define-key map [f7] nil) ; F7
;; (define-key map [f8] nil) ; F8
;; (define-key map [f9] nil) ; F9
;; (define-key map [f10] nil) ; F10
;; (define-key map [f11] nil) ; F11
;; (define-key map [f12] nil) ; F12
;; (define-key map [f13] nil) ; F13
;; (define-key map [f14] nil) ; F14
(define-key map [help] #'describe-bindings) ; HELP
;; (define-key map [menu] nil) ; DO
(define-key map [f17] #'tpu-drop-breadcrumb) ; F17
;; (define-key map [f18] nil) ; F18
;; (define-key map [f19] nil) ; F19
;; (define-key map [f20] nil) ; F20
(define-key map [kp-f1] #'keyboard-quit) ; PF1
(define-key map [kp-f2] #'help-for-help) ; PF2
(define-key map [kp-f3] #'tpu-search) ; PF3
(define-key map [kp-f4] #'tpu-undelete-lines) ; PF4
(define-key map [kp-0] #'open-line) ; KP0
(define-key map [kp-1] #'tpu-change-case) ; KP1
(define-key map [kp-2] #'tpu-delete-to-eol) ; KP2
(define-key map [kp-3] #'tpu-special-insert) ; KP3
(define-key map [kp-4] #'tpu-move-to-end) ; KP4
(define-key map [kp-5] #'tpu-move-to-beginning) ; KP5
(define-key map [kp-6] #'tpu-paste) ; KP6
(define-key map [kp-7] #'execute-extended-command) ; KP7
(define-key map [kp-8] #'tpu-fill) ; KP8
(define-key map [kp-9] #'tpu-replace) ; KP9
(define-key map [kp-subtract] #'tpu-undelete-words) ; KP-
(define-key map [kp-separator] #'tpu-undelete-char) ; KP,
(define-key map [kp-decimal] #'tpu-unselect) ; KP.
(define-key map [kp-enter] #'tpu-substitute) ; KPenter
;;
(define-key map "\C-A" #'tpu-toggle-overwrite-mode) ; ^A
;; (define-key map "\C-B" nil) ; ^B
;; (define-key map "\C-C" nil) ; ^C
;; (define-key map "\C-D" nil) ; ^D
;; (define-key map "\C-E" nil) ; ^E
(define-key map "\C-F" #'set-visited-file-name) ; ^F
(define-key map "\C-g" #'keyboard-quit) ; safety first
(define-key map "\C-h" #'delete-other-windows) ; BS
(define-key map "\C-i" #'other-window) ; TAB
;; (define-key map "\C-J" nil) ; ^J
(define-key map "\C-K" #'tpu-define-macro-key) ; ^K
(define-key map "\C-l" #'downcase-region) ; ^L
;; (define-key map "\C-M" nil) ; ^M
;; (define-key map "\C-N" nil) ; ^N
;; (define-key map "\C-O" nil) ; ^O
;; (define-key map "\C-P" nil) ; ^P
;; (define-key map "\C-Q" nil) ; ^Q
;; (define-key map "\C-R" nil) ; ^R
;; (define-key map "\C-S" nil) ; ^S
(define-key map "\C-T" #'tpu-toggle-control-keys) ; ^T
(define-key map "\C-u" #'upcase-region) ; ^U
;; (define-key map "\C-V" nil) ; ^V
(define-key map "\C-w" #'tpu-write-current-buffers) ; ^W
;; (define-key map "\C-X" nil) ; ^X
;; (define-key map "\C-Y" nil) ; ^Y
;; (define-key map "\C-Z" nil) ; ^Z
(define-key map " " #'undo) ; SPC
;; (define-key map "!" nil) ; !
;; (define-key map "#" nil) ; #
(define-key map "$" #'tpu-add-at-eol) ; $
(define-key map "%" #'tpu-goto-percent) ; %
;; (define-key map "&" nil) ; &
;; (define-key map "(" nil) ; (
;; (define-key map ")" nil) ; )
(define-key map "*" #'tpu-toggle-regexp) ; *
;; (define-key map "+" nil) ; +
(define-key map "," #'tpu-goto-breadcrumb) ; ,
(define-key map "-" #'negative-argument) ; -
(define-key map "." #'tpu-drop-breadcrumb) ; .
(define-key map "/" #'tpu-emacs-replace) ; /
(define-key map "0" #'digit-argument) ; 0
(define-key map "1" #'digit-argument) ; 1
(define-key map "2" #'digit-argument) ; 2
(define-key map "3" #'digit-argument) ; 3
(define-key map "4" #'digit-argument) ; 4
(define-key map "5" #'digit-argument) ; 5
(define-key map "6" #'digit-argument) ; 6
(define-key map "7" #'digit-argument) ; 7
(define-key map "8" #'digit-argument) ; 8
(define-key map "9" #'digit-argument) ; 9
;; (define-key map ":" nil) ; :
(define-key map ";" #'tpu-trim-line-ends) ; ;
;; (define-key map "<" nil) ; <
;; (define-key map "=" nil) ; =
;; (define-key map ">" nil) ; >
(define-key map "?" #'tpu-spell-check) ; ?
;; (define-key map "A" #'tpu-toggle-newline-and-indent) ; A
;; (define-key map "B" #'tpu-next-buffer) ; B
;; (define-key map "C" #'repeat-complex-command) ; C
;; (define-key map "D" #'shell-command) ; D
;; (define-key map "E" #'tpu-exit) ; E
;; (define-key map "F" #'tpu-cursor-free-mode) ; F
;; (define-key map "G" #'tpu-get) ; G
;; (define-key map "H" nil) ; H
;; (define-key map "I" #'tpu-include) ; I
;; (define-key map "K" #'tpu-kill-buffer) ; K
(define-key map "L" #'tpu-what-line) ; L
;; (define-key map "M" #'buffer-menu) ; M
;; (define-key map "N" #'tpu-next-file-buffer) ; N
;; (define-key map "O" #'occur) ; O
(define-key map "P" #'lpr-buffer) ; P
;; (define-key map "Q" #'tpu-quit) ; Q
;; (define-key map "R" #'tpu-toggle-rectangle) ; R
;; (define-key map "S" #'replace) ; S
;; (define-key map "T" #'tpu-line-to-top-of-window) ; T
;; (define-key map "U" #'undo) ; U
;; (define-key map "V" #'tpu-version) ; V
;; (define-key map "W" #'save-buffer) ; W
;; (define-key map "X" #'tpu-save-all-buffers-kill-emacs) ; X
;; (define-key map "Y" #'copy-region-as-kill) ; Y
;; (define-key map "Z" #'suspend-emacs) ; Z
(define-key map "[" #'blink-matching-open) ; [
;; (define-key map "\\" nil) ; \
(define-key map "]" #'blink-matching-open) ; ]
(define-key map "^" #'tpu-add-at-bol) ; ^
(define-key map "_" #'split-window-below) ; -
(define-key map "`" #'what-line) ; `
(define-key map "a" #'tpu-toggle-newline-and-indent) ; a
(define-key map "b" #'tpu-next-buffer) ; b
(define-key map "c" #'repeat-complex-command) ; c
(define-key map "d" #'shell-command) ; d
(define-key map "e" #'tpu-exit) ; e
(define-key map "f" #'tpu-cursor-free-mode) ; f
(define-key map "g" #'tpu-get) ; g
;; (define-key map "h" nil) ; h
(define-key map "i" #'tpu-include) ; i
(define-key map "k" #'tpu-kill-buffer) ; k
(define-key map "l" #'goto-line) ; l
(define-key map "m" #'buffer-menu) ; m
(define-key map "n" #'tpu-next-file-buffer) ; n
(define-key map "o" #'occur) ; o
(define-key map "p" #'lpr-region) ; p
(define-key map "q" #'tpu-quit) ; q
(define-key map "r" #'tpu-toggle-rectangle) ; r
(define-key map "s" #'replace) ; s
(define-key map "t" #'tpu-line-to-top-of-window) ; t
(define-key map "u" #'undo) ; u
(define-key map "v" #'tpu-version) ; v
(define-key map "w" #'save-buffer) ; w
(define-key map "x" #'tpu-save-all-buffers-kill-emacs) ; x
(define-key map "y" #'copy-region-as-kill) ; y
(define-key map "z" #'suspend-emacs) ; z
;; (define-key map "{" nil) ; {
(define-key map "|" #'split-window-right) ; |
;; (define-key map "}" nil) ; }
(define-key map "~" #'exchange-point-and-mark) ; ~
(define-key map "\177" #'delete-window) ; <X]
map)
"Maps the function keys on the VT100 keyboard preceded by PF1.
GOLD is the ASCII 7-bit escape sequence <ESC>OP.")