91 |
;; can try to figure out why the key is being ignored. |
;; can try to figure out why the key is being ignored. |
92 |
|
|
93 |
;;; History: |
;;; History: |
94 |
;; |
;; |
95 |
|
|
96 |
;; Version 4.0 2000 Added 2 New Features |
;; Version 4.0 2000 Added 2 New Features |
97 |
|
|
146 |
(defvar edt-return-seq nil) |
(defvar edt-return-seq nil) |
147 |
(defvar edt-term nil) |
(defvar edt-term nil) |
148 |
|
|
149 |
;;; |
;;; |
150 |
;;; Determine Terminal Type (if appropriate). |
;;; Determine Terminal Type (if appropriate). |
151 |
;;; |
;;; |
152 |
|
|
157 |
;;; |
;;; |
158 |
;;; Make sure the window is big enough to display the instructions, |
;;; Make sure the window is big enough to display the instructions, |
159 |
;;; except where window cannot be re-sized. |
;;; except where window cannot be re-sized. |
160 |
;;; |
;;; |
161 |
|
|
162 |
(if (and edt-window-system (not (eq edt-window-system 'tty))) |
(if (and edt-window-system (not (eq edt-window-system 'tty))) |
163 |
(set-frame-size (selected-frame) 80 36)) |
(set-frame-size (selected-frame) 80 36)) |
217 |
series terminal keyboard. (The LK-201 keyboard is the standard |
series terminal keyboard. (The LK-201 keyboard is the standard |
218 |
keyboard attached to VT-200 series terminals, and above.) |
keyboard attached to VT-200 series terminals, and above.) |
219 |
|
|
220 |
If you are using an real LK-201 keyboard, you should map the keys |
If you are using a real LK-201 keyboard, you should map the keys |
221 |
exactly as they are on the keyboard. |
exactly as they are on the keyboard. |
222 |
|
|
223 |
Start by pressing the RETURN key, and continue by pressing the keys |
Start by pressing the RETURN key, and continue by pressing the keys |
234 |
;;; |
;;; |
235 |
;;; For GNU Emacs, running in a Window System, first hide bindings in |
;;; For GNU Emacs, running in a Window System, first hide bindings in |
236 |
;;; function-key-map. |
;;; function-key-map. |
237 |
;;; |
;;; |
238 |
(cond |
(cond |
239 |
(edt-x-emacs-p |
(edt-x-emacs-p |
240 |
(setq edt-return-seq (read-key-sequence "Hit carriage-return <CR> to continue ")) |
(setq edt-return-seq (read-key-sequence "Hit carriage-return <CR> to continue ")) |
252 |
;;; |
;;; |
253 |
(global-unset-key [f1]) |
(global-unset-key [f1]) |
254 |
(global-unset-key [f2]) |
(global-unset-key [f2]) |
255 |
|
|
256 |
;;; |
;;; |
257 |
;;; Display Keypad Diagram and Begin Prompting for Keys |
;;; Display Keypad Diagram and Begin Prompting for Keys |
258 |
;;; |
;;; |
459 |
Your keyboard may have additional function keys which do not correspond |
Your keyboard may have additional function keys which do not correspond |
460 |
to any LK-201 keys. The EDT Emulation can be configured to recognize |
to any LK-201 keys. The EDT Emulation can be configured to recognize |
461 |
those keys, since you may wish to add your own key bindings to those keys. |
those keys, since you may wish to add your own key bindings to those keys. |
462 |
|
|
463 |
For example, suppose your keyboard has a keycap marked \"Line Del\" and |
For example, suppose your keyboard has a keycap marked \"Line Del\" and |
464 |
you wish to add it to the list of keys which can be customized by the EDT |
you wish to add it to the list of keys which can be customized by the EDT |
465 |
Emulation. First, assign a unique single-word name to the key for use by |
Emulation. First, assign a unique single-word name to the key for use by |
484 |
") |
") |
485 |
;;; |
;;; |
486 |
;;; Restore function-key-map. |
;;; Restore function-key-map. |
487 |
;;; |
;;; |
488 |
(if (and edt-window-system (not edt-x-emacs-p)) |
(if (and edt-window-system (not edt-x-emacs-p)) |
489 |
(setq function-key-map edt-save-function-key-map)) |
(setq function-key-map edt-save-function-key-map)) |
490 |
(setq EDT-key-name "") |
(setq EDT-key-name "") |