;; can try to figure out why the key is being ignored.
;;; History:
-;;
+;;
;; Version 4.0 2000 Added 2 New Features
;;; Determine Window System, and X Server Vendor (if appropriate).
;;;
(defconst edt-x-emacs-p (string-match "XEmacs" emacs-version)
- "Non-NIL if we are running XEmacs version 19, or higher.")
+ "Non-nil if we are running XEmacs version 19, or higher.")
(defconst edt-emacs-variant (if edt-x-emacs-p "xemacs" "gnu")
"Indicates Emacs variant: GNU Emacs or XEmacs \(aka Lucid Emacs\).")
(defvar edt-return-seq nil)
(defvar edt-term nil)
-;;;
+;;;
;;; Determine Terminal Type (if appropriate).
;;;
;;;
;;; Make sure the window is big enough to display the instructions,
;;; except where window cannot be re-sized.
-;;;
+;;;
(if (and edt-window-system (not (eq edt-window-system 'tty)))
(set-frame-size (selected-frame) 80 36))
series terminal keyboard. (The LK-201 keyboard is the standard
keyboard attached to VT-200 series terminals, and above.)
- 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
exactly as they are on the keyboard.
Start by pressing the RETURN key, and continue by pressing the keys
;;;
;;; For GNU Emacs, running in a Window System, first hide bindings in
;;; function-key-map.
-;;;
+;;;
(cond
(edt-x-emacs-p
(setq edt-return-seq (read-key-sequence "Hit carriage-return <CR> to continue "))
;;;
(global-unset-key [f1])
(global-unset-key [f2])
-
+
;;;
;;; Display Keypad Diagram and Begin Prompting for Keys
;;;
Your keyboard may have additional function keys which do not correspond
to any LK-201 keys. The EDT Emulation can be configured to recognize
those keys, since you may wish to add your own key bindings to those keys.
-
+
For example, suppose your keyboard has a keycap marked \"Line Del\" and
you wish to add it to the list of keys which can be customized by the EDT
Emulation. First, assign a unique single-word name to the key for use by
")
;;;
;;; Restore function-key-map.
-;;;
+;;;
(if (and edt-window-system (not edt-x-emacs-p))
(setq function-key-map edt-save-function-key-map))
(setq EDT-key-name "")
(sit-for 600)
(kill-emacs t)
+;;; arch-tag: 9eea59c8-b8b7-4d66-b858-c8920624c518
;;; edt-mapper.el ends here