Commit 12e32f52 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* term/news.el (terminal-init-news):

* term/lk201.el (terminal-init-lk201):
* term/iris-ansi.el (terminal-init-iris-ansi): Use input-decode-map.
parent e4a7fe73
......@@ -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
......@@ -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
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment