*** empty log message ***

[bpt/emacs.git] / lisp / terminal.el

diff --git a/lisp/terminal.el b/lisp/terminal.el
index de8fdf5..35d5022 100644 (file)
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -1,13 +1,15 @@
 ;;; terminal.el --- terminal emulator for GNU Emacs.
 
 ;; Copyright (C) 1986, 1987, 1988, 1989 Free Software Foundation, Inc.
-;; Written by Richard Mlynarik, November 1986.
+
+;; Author: Richard Mlynarik <mly@eddie.mit.edu>
+;; Maintainer: FSF
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;>>TODO
 ;;>> terminfo?
 ;;>> ** Nothing can be done about emacs' meta-lossage **
@@ -66,7 +70,7 @@ performance.")
 (if terminal-map
     nil
   (let ((map (make-keymap)))
-    (fillarray map 'te-pass-through)
+    (fillarray (car (cdr map)) 'te-pass-through)
     ;(define-key map "\C-l"
     ;  '(lambda () (interactive) (te-pass-through) (redraw-display)))
     (setq terminal-map map)))
@@ -76,7 +80,7 @@ performance.")
     nil
   (let ((map (make-keymap)))
     ;(fillarray map 'te-escape-extended-command-unread)
-    (fillarray map 'undefined)
+    (fillarray (car (cdr map)) 'undefined)
     (let ((s "0"))
       (while (<= (aref s 0) ?9)
        (define-key map s 'digit-argument)
@@ -123,7 +127,7 @@ performance.")
 (if terminal-more-break-map
     nil
   (let ((map (make-keymap)))
-    (fillarray map 'te-more-break-unread)
+    (fillarray (car (cdr map)) 'te-more-break-unread)
     (define-key map (char-to-string help-char) 'te-more-break-help)
     (define-key map " " 'te-more-break-resume)
     (define-key map "\C-l" 'redraw-display)