/[emacs]/emacs/lisp/emulation/edt-mapper.el
ViewVC logotype

Diff of /emacs/lisp/emulation/edt-mapper.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pj, Thu Dec 20 18:53:34 2001 UTC revision 1.10.4.1 by miles, Fri Apr 4 06:20:17 2003 UTC
# Line 91  Line 91 
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    
# Line 146  Line 146 
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    
# Line 157  Line 157 
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))
# Line 217  Line 217 
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
# Line 234  Line 234 
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 "))
# Line 252  Line 252 
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  ;;;  ;;;
# Line 459  Line 459 
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
# Line 484  Line 484 
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 "")

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.10.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26