Mercurial > emacs
comparison lisp/terminal.el @ 2587:1cad2ff5ab80
I started to clean this up and make it work under System V, until I hit a wall.
Discussion with Jim Blandy reveals that it can no longer be made to work
properly at all due to changes in Emacs's terminal-control interface. So
it's getting deep-sixed, but these cleanups go in on the outside chance that
we want to revive it someday.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 26 Apr 1993 05:15:04 +0000 |
| parents | 2c7997f249eb |
| children | fef642d4f5c0 |
comparison
equal
deleted
inserted
replaced
| 2586:7fe45a326a98 | 2587:1cad2ff5ab80 |
|---|---|
| 63 performance.") | 63 performance.") |
| 64 | 64 |
| 65 (defvar terminal-more-break-insertion | 65 (defvar terminal-more-break-insertion |
| 66 "*** More break -- Press space to continue ***") | 66 "*** More break -- Press space to continue ***") |
| 67 | 67 |
| 68 (defvar terminal-escape-map nil) | |
| 69 (defvar terminal-map nil) | 68 (defvar terminal-map nil) |
| 70 (defvar terminal-more-break-map nil) | |
| 71 (if terminal-map | 69 (if terminal-map |
| 72 nil | 70 nil |
| 73 (let ((map (make-keymap))) | 71 (let ((map (make-keymap))) |
| 74 (fillarray (car (cdr map)) 'te-pass-through) | 72 (fillarray (car (cdr map)) 'te-pass-through) |
| 75 ;(define-key map "\C-l" | 73 ;(define-key map "\C-l" |
| 76 ; '(lambda () (interactive) (te-pass-through) (redraw-display))) | 74 ; '(lambda () (interactive) (te-pass-through) (redraw-display))) |
| 77 (setq terminal-map map))) | 75 (setq terminal-map map))) |
| 78 | 76 |
| 79 ;(setq terminal-escape-map nil) | 77 (defvar terminal-escape-map nil) |
| 80 (if terminal-escape-map | 78 (if terminal-escape-map |
| 81 nil | 79 nil |
| 82 (let ((map (make-keymap))) | 80 (let ((map (make-keymap))) |
| 83 ;(fillarray map 'te-escape-extended-command-unread) | 81 ;(fillarray map 'te-escape-extended-command-unread) |
| 84 (fillarray (car (cdr map)) 'undefined) | 82 (fillarray (car (cdr map)) 'undefined) |
| 97 (define-key map "w" 'te-edit) | 95 (define-key map "w" 'te-edit) |
| 98 (define-key map "?" 'te-escape-help) | 96 (define-key map "?" 'te-escape-help) |
| 99 (define-key map (char-to-string help-char) 'te-escape-help) | 97 (define-key map (char-to-string help-char) 'te-escape-help) |
| 100 (setq terminal-escape-map map))) | 98 (setq terminal-escape-map map))) |
| 101 | 99 |
| 102 (defvar te-escape-command-alist ()) | 100 (defvar te-escape-command-alist nil) |
| 103 ;(setq te-escape-command-alist ()) | |
| 104 (if te-escape-command-alist | 101 (if te-escape-command-alist |
| 105 nil | 102 nil |
| 106 (setq te-escape-command-alist | 103 (setq te-escape-command-alist |
| 107 '(("Set Escape Character" . te-set-escape-char) | 104 '(("Set Escape Character" . te-set-escape-char) |
| 108 ;;>> What use is this? Why is it in the default terminal-emulator map? | 105 ;;>> What use is this? Why is it in the default terminal-emulator map? |
| 122 ("Kill Buffer" . kill-buffer) | 119 ("Kill Buffer" . kill-buffer) |
| 123 ("Help" . te-escape-help) | 120 ("Help" . te-escape-help) |
| 124 ("Set Redisplay Interval" . te-set-redisplay-interval) | 121 ("Set Redisplay Interval" . te-set-redisplay-interval) |
| 125 ))) | 122 ))) |
| 126 | 123 |
| 127 ;(setq terminal-more-break-map nil) | 124 (defvar terminal-more-break-map nil) |
| 128 (if terminal-more-break-map | 125 (if terminal-more-break-map |
| 129 nil | 126 nil |
| 130 (let ((map (make-keymap))) | 127 (let ((map (make-keymap))) |
| 131 (fillarray (car (cdr map)) 'te-more-break-unread) | 128 (fillarray (car (cdr map)) 'te-more-break-unread) |
| 132 (define-key map (char-to-string help-char) 'te-more-break-help) | 129 (define-key map (char-to-string help-char) 'te-more-break-help) |
| 137 ;(define-key map "\^?" 'te-more-break-flush-pending-output) ;DEL | 134 ;(define-key map "\^?" 'te-more-break-flush-pending-output) ;DEL |
| 138 (define-key map "\r" 'te-more-break-advance-one-line) | 135 (define-key map "\r" 'te-more-break-advance-one-line) |
| 139 | 136 |
| 140 (setq terminal-more-break-map map))) | 137 (setq terminal-more-break-map map))) |
| 141 | 138 |
| 139 | |
| 140 ;;; Pacify the byte compiler | |
| 141 (defvar te-process nil) | |
| 142 (defvar te-log-buffer nil) | |
| 143 (defvar te-height nil) | |
| 144 (defvar te-width nil) | |
| 145 (defvar te-more-count nil) | |
| 146 (defvar te-redisplay-count nil) | |
| 147 (defvar te-pending-output nil) | |
| 148 (defvar te-saved-point) | |
| 149 (defvar te-more-old-point nil) | |
| 150 (defvar te-more-old-local-map nil) | |
| 151 (defvar te-more-old-filter nil) | |
| 152 (defvar te-more-old-mode-line-format nil) | |
| 153 (defvar te-pending-output-info nil) | |
| 154 | |
| 142 | 155 |
| 143 ;;;; escape map | 156 ;;;; escape map |
| 144 | 157 |
| 145 (defun te-escape () | 158 (defun te-escape () |
| 146 (interactive) | 159 (interactive) |
| 978 (if (and (eq b (process-buffer process)) | 991 (if (and (eq b (process-buffer process)) |
| 979 (waiting-for-user-input-p)) | 992 (waiting-for-user-input-p)) |
| 980 (progn (goto-char (point-max)) | 993 (progn (goto-char (point-max)) |
| 981 (recenter -1))))))) | 994 (recenter -1))))))) |
| 982 | 995 |
| 983 (defvar te-stty-string "stty -nl dec echo" | 996 (defvar te-stty-string "stty -nl erase ^? kill ^u intr ^c echo" |
| 984 "Shell command to set terminal modes for terminal emulator.") | 997 "Shell command to set terminal modes for terminal emulator.") |
| 985 ;; This used to have `new' in it, but that loses outside BSD | 998 ;; This used to have `new' in it, but that loses outside BSD |
| 986 ;; and it's apparently not needed in BSD. | 999 ;; and it's apparently not needed in BSD. |
| 987 | 1000 |
| 988 (defvar explicit-shell-file-name nil | 1001 (defvar explicit-shell-file-name nil |