From 12e32f5242e219e5a9c9ca730fe1f10bf49707b2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 22 Oct 2007 15:17:36 +0000 Subject: [PATCH] * term/news.el (terminal-init-news): * term/lk201.el (terminal-init-lk201): * term/iris-ansi.el (terminal-init-iris-ansi): Use input-decode-map. --- lisp/term/iris-ansi.el | 6 +++--- lisp/term/lk201.el | 6 +++--- lisp/term/news.el | 4 ++-- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/term/iris-ansi.el b/lisp/term/iris-ansi.el index a941a0399f3..d4147c39d5f 100644 --- a/lisp/term/iris-ansi.el +++ b/lisp/term/iris-ansi.el @@ -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 --git a/lisp/term/lk201.el b/lisp/term/lk201.el index 17ac3474ff0..7bcbd8d754c 100644 --- a/lisp/term/lk201.el +++ b/lisp/term/lk201.el @@ -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 --git a/lisp/term/news.el b/lisp/term/news.el index 514f363314d..0ce303d2265 100644 --- a/lisp/term/news.el +++ b/lisp/term/news.el @@ -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 -- 2.39.2