Mercurial > emacs

changeset 85546:d3c6c7427cef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* term/news.el (terminal-init-news): * term/lk201.el (terminal-init-lk201): * term/iris-ansi.el (terminal-init-iris-ansi): Use input-decode-map.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 22 Oct 2007 15:17:36 +0000
parents 4029ccd23080
children aa63a97d09ff
files lisp/term/iris-ansi.el lisp/term/lk201.el lisp/term/news.el
diffstat 3 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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
--- 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