# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 732425708 0
# Node ID 8638238fa65fa5cadeecbfb078dc618e2c28ebac
# Parent  be1ff9cf72eb146a78909c9f395aae3e5824e81b
Fix things so that bindings are added to the keymap already created by
terminal initialization.

diff -r be1ff9cf72eb -r 8638238fa65f lisp/term/news.el
--- a/lisp/term/news.el	Wed Mar 17 23:50:29 1993 +0000
+++ b/lisp/term/news.el	Thu Mar 18 03:35:08 1993 +0000
@@ -30,8 +30,10 @@
 
 (if (boundp 'news-fkey-prefix)
     nil
-  (setq news-fkey-prefix (make-keymap))	; "<ESC>O" commands
-  (define-key function-key-map "\eO" news-fkey-prefix)
+  ;; The terminal initialization should already have set up some keys
+  (setq news-fkey-prefix (lookup-key function-key-map "\eO"))
+  (if (not (keymapp news-fkey-prefix))
+      (error "What?  Your news termcap/terminfo has no keycaps in it."))
 
   ;; Termcap or terminfo will set these
   ;; (define-key news-fkey-prefix "P" [f1])
diff -r be1ff9cf72eb -r 8638238fa65f lisp/term/vt100.el
--- a/lisp/term/vt100.el	Wed Mar 17 23:50:29 1993 +0000
+++ b/lisp/term/vt100.el	Thu Mar 18 03:35:08 1993 +0000
@@ -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]) ; ,