Variable: tpu-global-map

tpu-global-map is a variable defined in tpu-edt.el.gz.

Value

Large value
<delete>                tpu-cut
<down>                  tpu-next-line
<f10>                   tpu-exit
<f11>                   tpu-insert-escape
<f12>                   tpu-next-beginning-of-line
<f13>                   tpu-delete-previous-word
<f14>                   tpu-toggle-overwrite-mode
<f17>                   tpu-goto-breadcrumb
<find>                  tpu-search
<help>                  tpu-help
<insert>                tpu-paste
<kp-0>                  tpu-line
<kp-1>                  tpu-word
<kp-2>                  tpu-end-of-line
<kp-3>                  tpu-char
<kp-4>                  tpu-advance-direction
<kp-5>                  tpu-backup-direction
<kp-6>                  tpu-cut
<kp-7>                  tpu-page
<kp-8>                  tpu-scroll-window
<kp-9>                  tpu-append-region
<kp-decimal>            tpu-select
<kp-enter>              newline
<kp-f1> $               tpu-add-at-eol
<kp-f1> %               tpu-goto-percent
<kp-f1> *               tpu-toggle-regexp
<kp-f1> ,               tpu-goto-breadcrumb
<kp-f1> -               negative-argument
<kp-f1> .               tpu-drop-breadcrumb
<kp-f1> /               tpu-emacs-replace
<kp-f1> ;               tpu-trim-line-ends
<kp-f1> <delete>        tpu-store-text
<kp-f1> <down>          tpu-move-to-end
<kp-f1> <f17>           tpu-drop-breadcrumb
<kp-f1> <help>          describe-bindings
<kp-f1> <kp-0>          open-line
<kp-f1> <kp-1>          tpu-change-case
<kp-f1> <kp-2>          tpu-delete-to-eol
<kp-f1> <kp-3>          tpu-special-insert
<kp-f1> <kp-4>          tpu-move-to-end
<kp-f1> <kp-5>          tpu-move-to-beginning
<kp-f1> <kp-6>          tpu-paste
<kp-f1> <kp-7>          execute-extended-command
<kp-f1> <kp-8>          tpu-fill
<kp-f1> <kp-9>          tpu-replace
<kp-f1> <kp-decimal>    tpu-unselect
<kp-f1> <kp-enter>      tpu-substitute
<kp-f1> <kp-f1>         keyboard-quit
<kp-f1> <kp-f2>         help-for-help
<kp-f1> <kp-f3>         tpu-search
<kp-f1> <kp-f4>         tpu-undelete-lines
<kp-f1> <kp-separator>  tpu-undelete-char
<kp-f1> <kp-subtract>   tpu-undelete-words
<kp-f1> <left>          beginning-of-line
<kp-f1> <next>          tpu-next-window
<kp-f1> <prior>         tpu-previous-window
<kp-f1> <right>         end-of-line
<kp-f1> <select>        tpu-unselect
<kp-f1> <up>            tpu-move-to-beginning
<kp-f1> ?               tpu-spell-check
<kp-f1> C-a             tpu-toggle-overwrite-mode
<kp-f1> C-f             set-visited-file-name
<kp-f1> C-g             keyboard-quit
<kp-f1> C-h             delete-other-windows
<kp-f1> C-k             tpu-define-macro-key
<kp-f1> C-l             downcase-region
<kp-f1> C-t             tpu-toggle-control-keys
<kp-f1> C-u             upcase-region
<kp-f1> C-w             tpu-write-current-buffers
<kp-f1> DEL             delete-window
<kp-f1> L               tpu-what-line
<kp-f1> P               lpr-buffer
<kp-f1> SPC             undo
<kp-f1> TAB             other-window
<kp-f1> [               blink-matching-open
<kp-f1> ]               blink-matching-open
<kp-f1> ^               tpu-add-at-bol
<kp-f1> _               split-window-below
<kp-f1> `               what-line
<kp-f1> a               tpu-toggle-newline-and-indent
<kp-f1> b               tpu-next-buffer
<kp-f1> c               repeat-complex-command
<kp-f1> d               shell-command
<kp-f1> e               tpu-exit
<kp-f1> f               tpu-cursor-free-mode(var)/tpu-cursor-free-mode(fun)
<kp-f1> g               tpu-get
<kp-f1> i               tpu-include
<kp-f1> k               tpu-kill-buffer
<kp-f1> l               goto-line
<kp-f1> m               buffer-menu
<kp-f1> n               tpu-next-file-buffer
<kp-f1> o               occur
<kp-f1> p               lpr-region
<kp-f1> q               tpu-quit
<kp-f1> r               tpu-toggle-rectangle
<kp-f1> s               replace
<kp-f1> t               tpu-line-to-top-of-window
<kp-f1> u               undo
<kp-f1> v               tpu-version(var)/tpu-version(fun)
<kp-f1> w               save-buffer
<kp-f1> x               tpu-save-all-buffers-kill-emacs
<kp-f1> y               copy-region-as-kill
<kp-f1> z               suspend-emacs
<kp-f1> |               split-window-right
<kp-f1> ~               exchange-point-and-mark
<kp-f1> €..\x3FFFFF            digit-argument
<kp-f2>                 tpu-help
<kp-f3>                 tpu-search-again
<kp-f4>                 tpu-delete-current-line
<kp-separator>          tpu-delete-current-char
<kp-subtract>           tpu-delete-current-word
<left>                  tpu-backward-char
<menu>                  execute-extended-command
<next>                  tpu-scroll-window-up
<prior>                 tpu-scroll-window-down
<right>                 tpu-forward-char
<select>                tpu-select
<up>                    tpu-previous-line

Documentation

TPU-edt global keymap.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defvar tpu-global-map
  (let ((map (make-sparse-keymap)))

    ;; Previously defined in CSI-map.  We now presume that term/*.el does
    ;; its job to map the escape sequence to the right key-symbol.
    (define-key map [find]   #'tpu-search)		; Find
    (define-key map [insert] #'tpu-paste)		; Insert Here
    (define-key map [delete] #'tpu-cut)			; Remove
    (define-key map [select] #'tpu-select)		; Select
    (define-key map [prior]  #'tpu-scroll-window-down)	; Prev Screen
    (define-key map [next]   #'tpu-scroll-window-up)	; 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] #'tpu-exit)			; F10
    (define-key map [f11] #'tpu-insert-escape)		; F11 (ESC)
    (define-key map [f12] #'tpu-next-beginning-of-line)	; F12 (BS)
    (define-key map [f13] #'tpu-delete-previous-word)	; F13 (LF)
    (define-key map [f14] #'tpu-toggle-overwrite-mode)	; F14
    (define-key map [help] #'tpu-help)			; HELP
    (define-key map [menu] #'execute-extended-command)	; DO
    (define-key map [f17] #'tpu-goto-breadcrumb)	; F17
    ;; (define-key map [f18] nil)			; F18
    ;; (define-key map [f19] nil)			; F19
    ;; (define-key map [f20] nil)			; F20


    ;; Previously defined in SS3-map.  We now presume that term/*.el does
    ;; its job to map the escape sequence to the right key-symbol.
    (define-key map [kp-f1] tpu-gold-map)		; GOLD map
    ;;
    (define-key map [up]    #'tpu-previous-line)		; up
    (define-key map [down]  #'tpu-next-line)		; down
    (define-key map [right] #'tpu-forward-char)		; right
    (define-key map [left]  #'tpu-backward-char)		; left

    (define-key map [kp-f2] #'tpu-help)			; PF2
    (define-key map [kp-f3] #'tpu-search-again)		; PF3
    (define-key map [kp-f4] #'tpu-delete-current-line)	; PF4
    (define-key map [kp-0] #'tpu-line)			; KP0
    (define-key map [kp-1] #'tpu-word)			; KP1
    (define-key map [kp-2] #'tpu-end-of-line)		; KP2
    (define-key map [kp-3] #'tpu-char)			; KP3
    (define-key map [kp-4] #'tpu-advance-direction)	; KP4
    (define-key map [kp-5] #'tpu-backup-direction)	; KP5
    (define-key map [kp-6] #'tpu-cut)			; KP6
    (define-key map [kp-7] #'tpu-page)			; KP7
    (define-key map [kp-8] #'tpu-scroll-window)		; KP8
    (define-key map [kp-9] #'tpu-append-region)		; KP9
    (define-key map [kp-subtract] #'tpu-delete-current-word) ; KP-
    (define-key map [kp-separator] #'tpu-delete-current-char) ; KP,
    (define-key map [kp-decimal] #'tpu-select)		; KP.
    (define-key map [kp-enter] #'newline)		; KPenter

    map)
  "TPU-edt global keymap.")