diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-03-18 03:35:08 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-03-18 03:35:08 +0000 |
| commit | c2f584363860edd7f08544ee9b4790ce02bc4376 (patch) | |
| tree | cd232cbb2113da84568522d345e794834dbb49b1 /lisp/term/vt100.el | |
| parent | 11838c0e241de7e4b6bf309b95df3efdc73851a0 (diff) | |
| download | emacs-c2f584363860edd7f08544ee9b4790ce02bc4376.tar.gz | |
Fix things so that bindings are added to the keymap already created by
terminal initialization.
Diffstat (limited to 'lisp/term/vt100.el')
| -rw-r--r-- | lisp/term/vt100.el | 30 |
1 files changed, 17 insertions, 13 deletions
diff --git a/lisp/term/vt100.el b/lisp/term/vt100.el index 658ab4820f9..5c723f433f5 100644 --- a/lisp/term/vt100.el +++ b/lisp/term/vt100.el @@ -51,29 +51,33 @@ ;; SS3 sequences - those that start with "\eO". (if (boundp 'vt100-SS3-prefix) nil - (define-prefix-command 'vt100-SS3-prefix) - (define-key function-key-map "\eO" 'vt100-SS3-prefix) + ;; The terminal initialization should already have set up some keys + (setq vt100-SS3-prefix (lookup-key function-key-map "\eO")) + (if (not (keymapp vt100-SS3-prefix)) + (error "What? Your VT100 termcap/terminfo has no keycaps in it.")) ;; These will typically be set up automatically by termcap or terminfo ;; (define-key vt100-SS3-prefix "A" [up]) ; up-arrow ;; (define-key vt100-SS3-prefix "B" [down]) ; down-arrow ;; (define-key vt100-SS3-prefix "C" [right]) ; right-arrow ;; (define-key vt100-SS3-prefix "D" [left]) ; left-arrow - ;; (define-key vt100-SS3-prefix "M" [kp-enter]) ; Enter ;; (define-key vt100-SS3-prefix "P" [kp-f1]) ; PF1 ;; (define-key vt100-SS3-prefix "Q" [kp-f2]) ; PF2 ;; (define-key vt100-SS3-prefix "R" [kp-f3]) ; PF3 ;; (define-key vt100-SS3-prefix "S" [kp-f4]) ; PF4 - ;; (define-key vt100-SS3-prefix "p" [kp-0]) ; 0 - ;; (define-key vt100-SS3-prefix "q" [kp-1]) ; 1 - ;; (define-key vt100-SS3-prefix "r" [kp-2]) ; 2 - ;; (define-key vt100-SS3-prefix "s" [kp-3]) ; 3 - ;; (define-key vt100-SS3-prefix "t" [kp-4]) ; 4 - ;; (define-key vt100-SS3-prefix "u" [kp-5]) ; 5 - ;; (define-key vt100-SS3-prefix "v" [kp-6]) ; 6 - ;; (define-key vt100-SS3-prefix "w" [kp-7]) ; 7 - ;; (define-key vt100-SS3-prefix "x" [kp-8]) ; 8 - ;; (define-key vt100-SS3-prefix "y" [kp-9]) ; 9 + + ;; Terminfo might set these + (define-key vt100-SS3-prefix "M" [kp-enter]) ; Enter + (define-key vt100-SS3-prefix "p" [kp-0]) ; 0 + (define-key vt100-SS3-prefix "q" [kp-1]) ; 1 + (define-key vt100-SS3-prefix "r" [kp-2]) ; 2 + (define-key vt100-SS3-prefix "s" [kp-3]) ; 3 + (define-key vt100-SS3-prefix "t" [kp-4]) ; 4 + (define-key vt100-SS3-prefix "u" [kp-5]) ; 5 + (define-key vt100-SS3-prefix "v" [kp-6]) ; 6 + (define-key vt100-SS3-prefix "w" [kp-7]) ; 7 + (define-key vt100-SS3-prefix "x" [kp-8]) ; 8 + (define-key vt100-SS3-prefix "y" [kp-9]) ; 9 ;; Neither termcap nor terminfo will set these (define-key vt100-SS3-prefix "l" [kp-separator]) ; , |