summaryrefslogtreecommitdiff
path: root/lisp/term/AT386.el
diff options
context:
space:
mode:
authorKaroly Lorentey <lorentey@elte.hu>2006-05-20 17:02:47 +0000
committerKaroly Lorentey <lorentey@elte.hu>2006-05-20 17:02:47 +0000
commit8cbd7bed2db718a63ed37182c566f9e059925c71 (patch)
treeb8905d6abc17f84a33d1f80f35a0b87f69819da9 /lisp/term/AT386.el
parentb34c34dae08d94ca9ab0cd50cb53f0ab0cd21491 (diff)
downloademacs-8cbd7bed2db718a63ed37182c566f9e059925c71.tar.gz
emacs-8cbd7bed2db718a63ed37182c566f9e059925c71.tar.bz2
emacs-8cbd7bed2db718a63ed37182c566f9e059925c71.zip
Fix and/or simplify terminal initialization files.
* lisp/faces.el (tty-create-frame-with-faces): Set up faces and background mode only after the terminal has been initialized. (frame-set-background-mode): Handle the 'background-mode terminal parameter. (tty-run-terminal-initialization): Add type option. * lisp/term/README: Update. * lisp/term/rxvt.el: Simplify. * lisp/term/xterm.el: Simplify and fix. * lisp/term/*.el: Simplify and fix. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-564
Diffstat (limited to 'lisp/term/AT386.el')
-rw-r--r--lisp/term/AT386.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/term/AT386.el b/lisp/term/AT386.el
index adec1f1505f..2f98e7bf6fa 100644
--- a/lisp/term/AT386.el
+++ b/lisp/term/AT386.el
@@ -31,10 +31,8 @@
(defun terminal-init-AT386 ()
"Terminal initialization function for AT386."
- (if (boundp 'AT386-keypad-map)
- nil
+ (let ((AT386-keypad-map (lookup-key local-function-key-map "\e[")))
;; The terminal initialization should already have set up some keys
- (setq AT386-keypad-map (lookup-key local-function-key-map "\e["))
(if (not (keymapp AT386-keypad-map))
(error "What? Your AT386 termcap/terminfo has no keycaps in it"))