summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2007-10-22 15:17:36 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2007-10-22 15:17:36 +0000
commit12e32f5242e219e5a9c9ca730fe1f10bf49707b2 (patch)
tree28c890eee784f209103ddafbb4cfd8dfbe35f9f3 /lisp
parente4a7fe73afc5ba89b49bebf8ae0b515e02640ea7 (diff)
downloademacs-12e32f5242e219e5a9c9ca730fe1f10bf49707b2.tar.gz
* term/news.el (terminal-init-news):
* term/lk201.el (terminal-init-lk201): * term/iris-ansi.el (terminal-init-iris-ansi): Use input-decode-map.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/term/iris-ansi.el6
-rw-r--r--lisp/term/lk201.el6
-rw-r--r--lisp/term/news.el4
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