diff lisp/term/news.el @ 2240:8638238fa65f

Fix things so that bindings are added to the keymap already created by terminal initialization.

--- 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])