Mercurial > hg > xemacs-beta

comparison lisp/packages/terminal.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children 9f59509498e1
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
98 (define-key map "\C-l" 'redraw-display) 98 (define-key map "\C-l" 'redraw-display)
99 (define-key map "\C-o" 'te-flush-pending-output) 99 (define-key map "\C-o" 'te-flush-pending-output)
100 (define-key map "m" 'te-toggle-more-processing) 100 (define-key map "m" 'te-toggle-more-processing)
101 (define-key map "x" 'te-escape-extended-command) 101 (define-key map "x" 'te-escape-extended-command)
102 (define-key map "?" 'te-escape-help) 102 (define-key map "?" 'te-escape-help)
103 (define-key map (char-to-string help-char) 'te-escape-help) 103 (define-key map (vector help-char) 'te-escape-help)
104 (setq terminal-escape-map map))) 104 (setq terminal-escape-map map)))
105 105
106 (defvar te-escape-command-alist '()) 106 (defvar te-escape-command-alist '())
107 (if te-escape-command-alist 107 (if te-escape-command-alist
108 nil 108 nil
137 (while (< i 256) 137 (while (< i 256)
138 (aset s 0 i) 138 (aset s 0 i)
139 (define-key map s 'te-more-break-unwind) 139 (define-key map s 'te-more-break-unwind)
140 (setq i (1+ i)))) 140 (setq i (1+ i))))
141 141
142 (define-key map (char-to-string help-char) 'te-more-break-help) 142 (define-key map (vector help-char) 'te-more-break-help)
143 (define-key map " " 'te-more-break-resume) 143 (define-key map " " 'te-more-break-resume)
144 (define-key map "\C-l" 'redraw-display) 144 (define-key map "\C-l" 'redraw-display)
145 (define-key map "\C-o" 'te-more-break-flush-pending-output) 145 (define-key map "\C-o" 'te-more-break-flush-pending-output)
146 ;;#### this isn't right 146 ;;#### this isn't right
147 ;(define-key map "\^?" 'te-more-break-flush-pending-output) ;DEL 147 ;(define-key map "\^?" 'te-more-break-flush-pending-output) ;DEL