# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1193066256 0
# Node ID d3c6c7427cefbad83eddc7ed0035e16113136f6e
# Parent  4029ccd230800b73154cb28bc39abd9f98611e38
* term/news.el (terminal-init-news):
* term/lk201.el (terminal-init-lk201):
* term/iris-ansi.el (terminal-init-iris-ansi): Use input-decode-map.

diff -r 4029ccd23080 -r d3c6c7427cef lisp/term/iris-ansi.el
--- a/lisp/term/iris-ansi.el	Mon Oct 22 09:58:09 2007 +0000
+++ b/lisp/term/iris-ansi.el	Mon Oct 22 15:17:36 2007 +0000
@@ -332,8 +332,8 @@
   ;; This way we don't override terminfo-derived settings or settings
   ;; made in the .emacs file.
   (let ((m (copy-keymap iris-function-map)))
-    (set-keymap-parent m (keymap-parent local-function-key-map))
-    (set-keymap-parent local-function-key-map m)))
+    (set-keymap-parent m (keymap-parent input-decode-map))
+    (set-keymap-parent input-decode-map m)))
 
-;;; arch-tag: b1d0e73a-bb7d-47be-9fb2-6fb126469a1b
+;; arch-tag: b1d0e73a-bb7d-47be-9fb2-6fb126469a1b
 ;;; iris-ansi.el ends here
diff -r 4029ccd23080 -r d3c6c7427cef lisp/term/lk201.el
--- a/lisp/term/lk201.el	Mon Oct 22 09:58:09 2007 +0000
+++ b/lisp/term/lk201.el	Mon Oct 22 15:17:36 2007 +0000
@@ -76,8 +76,8 @@
   ;; This way we don't override terminfo-derived settings or settings
   ;; made in the .emacs file.
   (let ((m (copy-keymap lk201-function-map)))
-    (set-keymap-parent m (keymap-parent local-function-key-map))
-    (set-keymap-parent local-function-key-map m)))
+    (set-keymap-parent m (keymap-parent input-decode-map))
+    (set-keymap-parent input-decode-map m)))
 
-;;; arch-tag: 7ffb4444-6a23-43e1-b457-43cf4f673c0d
+;; arch-tag: 7ffb4444-6a23-43e1-b457-43cf4f673c0d
 ;;; lk201.el ends here
diff -r 4029ccd23080 -r d3c6c7427cef lisp/term/news.el
--- a/lisp/term/news.el	Mon Oct 22 09:58:09 2007 +0000
+++ b/lisp/term/news.el	Mon Oct 22 15:17:36 2007 +0000
@@ -32,7 +32,7 @@
 (defun terminal-init-news ()
   "Terminal initialization function for news."
   ;; The terminal initialization should already have set up some keys
-  (let ((news-fkey-prefix (lookup-key local-function-key-map "\eO")))
+  (let ((news-fkey-prefix (lookup-key input-decode-map "\eO")))
     (if (not (keymapp news-fkey-prefix))
 	(error "What?  Your news termcap/terminfo has no keycaps in it"))
 
@@ -71,5 +71,5 @@
     (define-key news-fkey-prefix "x" [kp-8])
     ))
 
-;;; arch-tag: bfe141a0-623b-4b42-b753-5d9353776c5e
+;; arch-tag: bfe141a0-623b-4b42-b753-5d9353776c5e
 ;;; news.el ends here