From c4ea28b3e90c54717a64729ed29d18736a76c6a7 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 4 Aug 1992 04:15:43 +0000 Subject: entered into RCS --- lisp/terminal.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/terminal.el') diff --git a/lisp/terminal.el b/lisp/terminal.el index e8909927c3d..35d5022aaf6 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -70,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))) @@ -80,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) @@ -127,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) -- cgit v1.2.1