File:  edt-user.doc  ---  EDT Emulation User Instructions

                                For GNU Emacs 19

Copyright (C) 1986, 1992, 1994, 1995 Free Software Foundation, Inc.

Author: Kevin Gallagher <kgallagh@spd.dsccc.com>
Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com>
Keywords: emulations

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

============================================================================

I.    OVERVIEW:

This version of the EDT emulation package for GNU Emacs is a substantially
enhanced version of the original.  A large part of the original can still be
found here, of course, but much of it has been modified and quite a bit is
new.  Many of the ideas found here are borrowed from others.  In particular,
some of the code found here was drawn from an earlier re-write of the EDT
package done at DSC in 1989 by Matthew Frohman.
   
Send bug fixes, suggestions for enhancements, and corrections to this
documentation to Kevin Gallagher (kgallagh@spd.dsccc.com).

The EDT emulation consists of the following files:

edt-user.doc          - User instructions (which you are reading now)
edt.el                - EDT Emulation Functions and Default Configuration
edt-lk201.el          - Support for DEC LK-201 Keyboards
edt-vt100.el          - Support for DEC VT-100 (and above) terminals
edt-mapper.el         - Support for Keyboards used under X Windows
edt-pc.el             - Support for the PC AT Keyboard under MS-DOS

Several goals were kept in mind when making this version:
     
        1.  Emulate EDT Keypad Mode commands closely so that current
            EDT users will find that it easy and comfortable to use
            GNU Emacs with a small learning curve;
   
        2.  Make it easy for a user to customize EDT emulation key
            bindings without knowing much about Emacs Lisp;

        3.  Make it easy to switch between the original EDT default bindings
            and the user's customized bindings, without having to exit Emacs.

        4.  Provide support for some TPU/EVE functions not supported in
            EDT. 

        5.  Provide an easy way to restore ALL original Emacs key bindings,
            just as they existed before the EDT emulation was first invoked.
   
        6.  Support GNU Emacs 19.  (Support for GNU Emacs 18 has been dropped.
            Also, although there is some code designed to support Xemacs 19
            (formerly Lucid Emacs), this is not fully implemented at this
            time. 

        7.  When running under X, support highlighting of marked text.

        8.  Handle terminal configuration under X interactively when the
            emulation is invoked for the first time.

        9.  Support a PC AT keyboard under MS-DOS.

II.   TERMINALS/KEYBOARDS SUPPORTED:

Keyboards used under X Windows are supported via the edt-mapper function.  The
first time you invoke the emulation under X, the edt-mapper function is run
automatically and the user is prompted to identify which keys the emulation is
to use for the standard keypad and function keys EDT expects (e.g., PF1, PF2,
etc.).  This configuration is saved to disk read each time the emulation is
invoked.

In character oriented connections not running a window manager, the following
terminals/keyboards are supported.  (1) DEC VT-100 series and higher.  This
includes well behaved VT clones and emulators.  If you are using a VT series
terminal, be sure that the term environment variable is set properly before
invoking emacs. (2) PC AT keyboard under MS-DOS.

Be sure to read the SPECIAL NOTES FOR SOME PLATFORMS sections to see if those
notes apply to you.


III.  STARTING THE EDT EMULATION:

Start up GNU Emacs and enter "M-x edt-emulation-on" to begin the emulation.
After initialization is complete, the following message will appear below the
status line informing you that the emulation has been enabled:

                         Default EDT keymap active

You can have the EDT Emulation start up automatically, each time you initiate
a GNU Emacs session, by adding the following line to your .emacs file:

                  (setq term-setup-hook 'edt-emulation-on)

A reference sheet is included (later on) listing the default EDT Emulation key
bindings.  This sheet is also accessible on line from within Emacs by pressing
PF2, GOLD H, or HELP (when in the EDT Default Mode).

It is easy to customize key bindings in the EDT Emulation.  (See CUSTOMIZING
section, below.)  Customizations are placed in a file called edt-user.el.  (A
sample edt-user.el file can be found in the CUSTOMIZING section.)  If
edt-user.el is found in your GNU Emacs load path during EDT Emulation
initialization, then the following message will appear below the status line
indicating that the emulation has been enabled, enhanced by your own
customizations:

                       User EDT custom keymap active

Once enabled, it is easy to switch back and forth between your customized EDT
Emulation key bindings and the default EDT Emulation key bindings.  It is also
easy to turn off the emulation.  Doing so completely restores the original key
bindings in effect just prior to invoking the emulation.

Where EDT key bindings and GNU Emacs key bindings conflict, the default GNU
Emacs key bindings are retained by the EDT emulation by default.  If you are a
diehard EDT user you may not like this.  The CUSTOMIZING section explains how
to change this default.


IV.   SPECIAL NOTES FOR SOME PLATFORMS:

  Sun Workstations running X:

     Some earlier Sun keyboards do not have arrow keys separate from the
     keypad keys.  It is difficult to emulate the full EDT keypad and still
     retain use of the arrow keys on such keyboards.  

     The Sun Type 5 keyboard, however, does have separate arrow keys.  This
     makes it a candidate for setting up a reasonable EDT keypad emulation.
     Unfortunately, Sun's default X keynames for the keypad keys don't permit
     GNU Emacs to interpret the keypad 2, 4, 6, and 8 keys as something other
     than arrow keys, nor use all the top row of keys for PF1 thru PF4 keys.
     Here's the contents of an .xmodmaprc file which corrects this problem for
     Sun Type 5 keyboards:

         ! File:  .xmodmaprc
         !
         ! Set up Sun Type 5 keypad for use with the GNU Emacs EDT Emulation
         !
         keycode  53 = KP_Divide
         keycode  54 = KP_Multiply
         keycode  57 = KP_Decimal
         keycode  75 = KP_7
         keycode  76 = KP_8
         keycode  77 = KP_9
         keycode  78 = KP_Subtract
         keycode  97 = KP_Enter
         keycode  98 = KP_4
         keycode  99 = KP_5
         keycode 100 = KP_6
         keycode 101 = KP_0
         keycode 105 = F24
         keycode 119 = KP_1
         keycode 120 = KP_2
         keycode 121 = KP_3
         keycode 132 = KP_Add

     Feed .xmodmaprc to the xmodmap command and all the Sun Type 5 keypad keys
     will now be configurable for the emulation of an LK-201 keypad (less the
     comma key).  The line

         keycode 105 = F24

     modifies the NumLock key to be the F24 key which can then be configured
     to behave as the PF1 key.  In doing so, you will no longer have a NumLock
     key.  If you are using other software under X which requires a NumLock
     key, then examine your keyboard and look for one you don't use and
     redefine it to be the NumLock key.  (See the man page on xmodmap for for
     further help on how to do this.)

  PC users running MS-DOS:

     By default, F1 is configured to emulate the PF1 (GOLD) key.  But NumLock
     can be used instead if you load a freeware TSR distributed with
     MS-Kermit, call gold.com.  It is distributed in a file called gold22.zip
     and comes with the source code as well as a loadable binary image. 
     (See edt-pc.el for more information.)

  PC users running Linux:

     The default X server configuration of three keys PC AT keyboard keys
     needs to be modified to permit the PC keyboard to emulate an LK-201
     keyboard properly.  Here's the contents of an .xmodmaprc file which makes
     these changes for your:

         ! File:  .xmodmaprc
         !
         ! Set up PC keypad under Linux for the GNU Emacs EDT Emulation 
         !
         keycode  22 = BackSpace
         keycode  77 = F12
         keycode  96 = Num_Lock

     Feed the file to the xmodmap command and all the PC keypad keys will now
     be configurable for the emulation of an LK-201 keypad (less the comma
     key), the standard keyboard supplied with DEC terminals VT-200 and above.
     This file switches the role of the F12 and NumLock keys.  It also
     modifies the definition of the Delete key above the arrow keys so that it
     can be assigned a keybinding independently of the the BackSpace key.

     NOTE: It is necessary to have NumLock ON for the PC keypad to emulate the
     LK-201 keypad properly.


V.    HOW DOES THIS EDT EMULATION DIFFER FROM REAL EDT?:

In general, you will find that this emulation of EDT replicates most, but not
all, of EDT's most used Keypad Mode editing functions and behavior.  It is not
perfect, but most EDT users who have tried the emulation agree that it is
quite good enough to make it easy for die-hard EDT users to move over to using
GNU Emacs.  

Here's a list of the most important differences between EDT and this GNU Emacs
EDT Emulation.  The list is short but you must be aware of these differences
if you are to use the EDT Emulation effectively.

1.  Entering repeat counts works a little differently than in EDT.

    EDT allows users to enter a repeat count before entering a command that
    accepts repeat counts.  For example, when in EDT, pressing these three
    keys in sequence, GOLD 5 KP1, will move the cursor in the current
    direction 5 words.

    Emacs provides two ways to enter repeat counts, though neither involves
    using the GOLD key.  In Emacs, repeat counts can be entered by using the 
    ESC key.  For example, pressing these keys in sequence, ESC 1 0 KP1, will
    move the cursor in the current direction 10 words. 

    Emacs provides another command called universal-argument that can do the
    same thing, plus a few other things.  Normally, Emacs has this bound to
    C-u.  

2.  The EDT SUBS command, bound to GOLD ENTER, is NOT supported.  The built-in
    Emacs query-replace command has been bound to GOLD ENTER, instead.  It is
    much more convenient to use than SUBS.

3.  EDT's line mode commands and nokeypad mode commands are NOT supported
    (with one important exception; see item 8 in the Highlights section
    below).  Although, at first, this may seem like a big omission, the set of
    built-in Emacs commands provides a much richer set of capabilities which
    more than make up for this omission.

    To enter Emacs commands not bound to keys, you can press GOLD KP7 or the
    DO key.  Emacs will display it's own command prompt called Meta-x (M-x).
    You can also invoke this prompt the normal Emacs way by entering ESC x.

4.  Selected text is highlighted ONLY when running under X Windows.  Gnu Emacs
    19 does not support highlighting of text on VT series terminals, at this
    time. 

5.  Just like TPU/EVE, The ENTER key is NOT used to terminate input when the
    editor prompts you for input.  The RETURN key is used, instead.  (KP4 and
    KP5 do terminate input for the FIND command, just like in EDT, however.)



VI.   SOME HIGHLIGHTS IN THIS EDT EMULATION, AND SOME COMPARISONS TO THE
      ORIGINAL GNU EMACS EDT EMULATION:

1.  The EDT define key command is supported (edt-define-key) and is bound to
    C-k in the default EDT mode when EDT control sequence bindings are enabled
    or one of the sample edt-user.el customization files is used.  The TPU/EVE
    learn command is supported but not bound to a key in the default EDT mode
    but is bound in the sample edt-user.el files.

    Unlike the TPU/EVE learn command, which uses one key to begin the learn
    sequence, C-l, and another command to remember the sequence, C-r, this
    version of the learn command (edt-learn) serves as a toggle to both begin
    and to remember the learn sequence.

    Many users who change the meaning of a key with the define key and the
    learn commands, would like to be able to restore the original key binding
    without having to quit and restart emacs.  So a restore key command is
    provided to do just that.  When invoked, it prompts you to press the key
    to which you wish the last replaced key definition restored.  It is bound
    to GOLD C-k in the default EDT mode when EDT control sequence bindings are
    enabled or one of the sample edt-user.el customization files is used.

2.  Direction support is fully supported.  It is no longer accomplished by
    re-defining keys each time the direction is changed.  Thus, commands
    sensitive to the current direction setting may be bound easily to any key.

3.  All original emacs bindings are fully restored when EDT emulation is
    turned off.

4.  User custom EDT bindings are kept separate from the default EDT bindings.
    One can toggle back and forth between the custom EDT bindings and default
    EDT bindings.

5.  The Emacs functions in edt.el attempt to emulate, where practical, the
    exact behavior of the corresponding EDT keypad mode commands.  In a few
    cases, the emulation is not exact, but we hope you will agree it is close
    enough.  In a very few cases, we chose to use the Emacs way of handling
    things.  As mentioned earlier, we do not emulate the EDT SUBS command.
    Instead, we chose to use the Emacs query-replace function, which we find
    to be easier to use.

6.  Emacs uses the regexp assigned to page-delimiter to determine what marks a
    page break.  This is normally "^\f", which causes the edt-page command to
    ignore form feeds not located at the beginning of a line.  To emulate the
    EDT PAGE command exactly, page-delimiter is set to "\f" when EDT emulation
    is turned on, and restored to "^\f" when EDT emulation is turned off.
    But, since some users prefer the Emacs definition of a page break, or may
    wish to preserve a customized definition of page break, one can override
    the EDT definition by placing

            (setq edt-keep-current-page-delimiter t)

    in your .emacs file.

7.  The EDT definition of a section of a terminal window is hardwired to be 16
    lines of its one-and-only 24-line window (the EDT SECT command bound to
    KP8).  That's two-thirds of the window at a time.  Since Emacs, like
    TPU/EVE, can handle multiple windows of sizes of other than 24 lines, the
    definition of section used here has been modified to two-thirds of the
    current window.  (There is also an edt-scroll-window function which you
    may prefer over the SECT emulation.)

8.  Cursor movement and deletion involving word entities is identical to EDT.
    This, above all else, gives the die-hard EDT user a sense of being at
    home.  Also, an emulation of EDT's SET ENTITY WORD command is provided,
    for those users who like to customize movement by a word at a time to
    their own liking.

9.  EDT's FIND and FNDNXT are supported.

10. EDT's APPEND and REPLACE commands are supported.

11. CHNGCASE is supported.  It works on individual characters or selected
    text, if SELECT is active.  In addition, two new commands are provided:
    edt-lowercase and edt-uppercase.  They work on individual WORDS or
    selected text, if SELECT is active.

12. Form feed and tab insert commands are supported.

13. A new command, edt-duplicate-word, is provided.  If you experiment with
    it, you might find it to be surprisingly useful and may wonder how you
    ever got along without it!  It is assigned to C-j in the sample
    edt-user.el customization files.

14. TPU/EVE's Retangular Cut and Paste functions (originally from the EVE-Plus
    package) are supported.  But unlike the TPU/EVE versions, these here
    support both insert and overwrite modes.  The seven retangular functions
    are bound to F7, F8, GOLD-F8, F9, GOLD-F9, F10, and GOLD-F10 in the
    default EDT mode.

15. The original EDT emulation package set up many default regular and GOLD
    bindings.  We tried to preserve most (but not all!) of these, so users of
    the original emulation package will feel more at home.  

    Nevertheless, there are still many GOLD key sequences which are not bound
    to any functions.  These are prime candidates to use for your own 
    customizations.  
    
    Also, there are several commands in edt.el not bound to any key.  So, you
    will find it worthwhile to look through edt.el for functions you may wish
    to add to your personal customized bindings.

16. The VT200/VT300 series terminals steal the function keys F1 to F5 for
    their own use.  These do not generate signals which are sent to the host.
    So, edt.el does not assign any default bindings to F1 through F5.

    In addition, our VT220 terminals generate an interrupt when the F6 key is
    pressed (^C or ^Y, can't remember which) and not the character sequence
    documented in the manual.  So, binding emacs commands to F6 will not work
    if your terminal behaves the same way.

17. The VT220 terminal has no ESC, BS, nor LF keys, as does a VT100.  So the
    default EDT bindings adopt the standard DEC convention of having the F11,
    F12, and F13 keys, on a VT200 series (and above) terminal, assigned to the
    same EDT functions that are bound to ESC, BS, and LF on a VT100 terminal.

18. Each user, through the use of a private edt-user.el file, can customize,
    very easily, personal EDT emulation bindings.

19. The EDT SELECT and RESET functions are supported.  However, unlike EDT,
    pressing RESET to cancel text selection does NOT reset the existing
    setting of the current direction.

    We also provide a TPU/EVE like version of the single SELECT/RESET
    function, called edt-toggle-select, which makes the EDT SELECT function
    into a toggle on/off switch.  That is, if selection is ON, pressing SELECT
    again turns selection off (cancels selection).  This function is used in
    the sample edt-user.el customization files.


VII.  CUSTOMIZING:

Most EDT users, at one time or another, make some custom key bindings, or
use someone else's custom key bindings, which they come to depend upon just as
if they were built-in bindings.  This EDT Emulation for GNU Emacs is designed
to make it easy to customize bindings.

If you wish to customize the EDT Emulation to use some of your own key
bindings, you need to make a private version of edt-user.el in your own
private lisp directory.  There are two sample files edt-user.el1 and
edt-user.el2 for you to use as templates and for ideas.  Look at
edt-user.el1 first.  Unless you will be using two or more very different
types of terminals on the same system, you need not look at edt-user.el2.

First, you need to have your own private lisp directory, say ~/lisp, and
you should add it to the GNU Emacs load path.

NOTE:  A few sites have different load-path requirements, so the above
       directions may need some modification if your site has such special
       needs. 

Creating your own edt-user.el file:

A sample edt-user.el file is attached to the end of this user documentation.
You should use it as a guide to learn how you can customize EDT emulation
bindings to your own liking.  Names used to identify the set of LK-201
keypad and function keys are:

Keypad Keys:   
                PF1 PF2 PF3 PF4
                KP7 KP8 KP9 KP-
                KP4 KP5 KP6 KP,
                KP1 KP2 KP3 
                KP0     KPP KPE

Arrow Keys:
                LEFT RIGHT DOWN UP

Function Keys:
                F1 F2 F3 F4 F5  F6 F7 F8 F9 F10  F11 F12 F13 F14
                HELP DO  F17 F18 F19 F20

                FIND   INSERT   REMOVE 
                SELECT PREVIOUS NEXT

Note:
                Many VT-200 terminals, and above, steal function keys F1 thru
                F5 for terminal setup control and don't send anything to the
                host if pressed.  So customizing bindings to these keys may
                not work for you.

There are three basic functions that do the EDT emulation bindings:
edt-bind-standard-key, edt-bind-gold-key, and edt-bind-function-key.

The first two are for binding functions to keys which are standard across most
keyboards.  This makes them keyboard independent, making it possible to define
these key bindings for all terminals in the file edt.el.

The first, edt-bind-standard-key, is used typically to bind emacs commands to
control keys, although some people use it to bind commands to other keys, as
well.  (For example, some people use it to bind the VT200 seldom used
back-tick key (`) to the function "ESC-prefix" so it will behave like an ESC
key.)  The second function, edt-bind-gold-key, is used to bind emacs commands
to gold key sequences involving alpha-numeric keys, special character keys,
and control keys.

The third function, edt-bind-function-key, is terminal dependent and is
defined in a terminal specific file (see edt-vt100.el for example).  It is
used to bind emacs commands to function keys, to keypad keys, and to gold
sequences of those keys.

WARNING: Each of the three functions, edt-bind-function-key,
         edt-bind-gold-key, and edt-bind-standard-key, has an optional
         last argument.  The optional argument should NOT be used in
         edt-user.el!  When the optional argument is missing, each
         function knows to make the key binding part of the user's EDT
         custom bindings, which is what you want to do in edt-user.el!

         The EDT default bindings are set up in edt.el by calling these
         same functions with the optional last argument set to "t".  So, if
         you decide to copy such function calls from edt.el to edt-user.el
         for subsequent modification, BE SURE TO DELETE THE "t" AT THE END
         OF EACH PARAMETER LIST!

SPECIFYING WORD ENTITIES:

The variable edt-word-entities is used to emulate EDT's SET ENTITY WORD
command.  It contains a list of characters to be treated as words in
themselves.  If the user does not define edt-word-entities in his/her .emacs
file, then it is set up with the EDT default containing only TAB.

The characters are stored in the list by their numerical values, not as
strings.  Emacs supports several ways to specify the numerical value of a
character.  One method is to use the question mark: ?A means the numerical
value for A, ?/ means the numerical value for /, and so on.  Several
unprintable characters have special representations:

            ?\b  specifies  BS, C-h
            ?\t  specifies  TAB, C-i
            ?\n  specifies  LFD, C-j
            ?\v  specifies  VTAB, C-k
            ?\f  specifies  FF, C-l
            ?\r  specifies  CR, C-m
            ?\e  specifies  ESC, C-[
            ?\\  specifies  \

Here are some examples:

     (setq edt-word-entities '(?\t ?- ?/)) ;; Specifies TAB, - , and /
     (setq edt-word-entities '(?\t)        ;; Specifies TAB, the default

You can also specify characters by their decimal ascii values:

     (setq edt-word-entities '(9 45 47))   ;; Specifies TAB, - , and /

ENABLING EDT CONTROL KEY SEQUENCE BINDINGS:

Where EDT key bindings and GNU Emacs key bindings conflict, the default GNU
Emacs key bindings are retained by default.  Some diehard EDT users may not
like this.  So, if the variable edt-use-EDT-control-key-bindings is set to
true in a user's .emacs file, then the default EDT Emulation mode will enable
most of the original EDT control key sequence bindings.  If you wish to do
this, add the following line to your .emacs file:

        (setq edt-use-EDT-control-key-bindings t)


                              DEFAULT EDT Keypad

   F7: Copy Rectangle             +----------+----------+----------+----------+
   F8: Cut Rect Overstrike        |Prev Line |Next Line |Bkwd Char |Frwd Char |
 G-F8: Paste Rect Overstrike      |   (UP)   |  (DOWN)  |  (LEFT)  | (RIGHT)  |
   F9: Cut Rect Insert            |Window Top|Window Bot|Bkwd Sent |Frwd Sent |
 G-F9: Paste Rect Insert          +----------+----------+----------+----------+
  F10: Cut Rectangle
G-F10: Paste Rectangle
  F11: ESC                       
  F12: Begining of Line           +----------+----------+----------+----------+
G-F12: Delete Other Windows       |   GOLD   |   HELP   |  FNDNXT  |  DEL L   |
  F13: Delete to Begin of Word    |   (PF1)  |   (PF2)  |   (PF3)  |  (PF4)   |
 HELP: Keypad Help                |Mark Wisel|Desc Funct|   FIND   |  UND L   |
   DO: Execute extended command   +----------+----------+----------+----------+
                                  |   PAGE   |   SECT   |  APPEND  |  DEL W   |
  C-g: Keyboard Quit              |    (7)   |    (8)   |    (9)   |   (-)    |
G-C-g: Keyboard Quit              |Ex Ext Cmd|Fill Regio| REPLACE  |  UND W   |
  C-h: Beginning of Line          +----------+----------+----------+----------+
G-C-h: Emacs Help                 |  ADVANCE |  BACKUP  |   CUT    |  DEL C   |
  C-i: Tab Insert                 |    (4)   |    (5)   |    (6)   |   (,)    |
  C-j: Delete to Begin of Word    |   BOTTOM |    TOP   |   Yank   |  UND C   |
  C-k: Define Key                 +----------+----------+----------+----------+
G-C-k: Restore Key                |   WORD   |    EOL   |   CHAR   |   Next   |
  C-l: Form Feed Insert           |    (1)   |    (2)   |    (3)   |  Window  |
  C-n: Set Screen Width 80        | CHNGCASE |  DEL EOL |Quoted Ins|          !
  C-r: Isearch Backward           +---------------------+----------+  (ENTER) |
  C-s: Isearch Forward            |         LINE        |  SELECT  |          !
  C-t: Display the Time           |         (0)         |    (.)   |   Query  |
  C-u: Delete to Begin of Line    |      Open Line      |  RESET   |  Replace |
  C-v: Redraw Display             +---------------------+----------+----------+
  C-w: Set Screen Width 132       
  C-z: Suspend Emacs                    +----------+----------+----------+
G-C-\: Split Window                     |  FNDNXT  |   Yank   |   CUT    |
                                        |  (FIND)  | (INSERT) | (REMOVE) |
  G-b: Buffer Menu                      |   FIND   |          |   COPY   |
  G-c: Compile                          +----------+----------+----------+
  G-d: Delete Window                    |SELECT/RES|SECT BACKW|SECT FORWA|
  G-e: Exit                             | (SELECT) |(PREVIOUS)|  (NEXT)  |
  G-f: Find File                        |          |          |          |
  G-g: Find File Other Window           +----------+----------+----------+
  G-h: Keypad Help
  G-i: Insert File
  G-k: Toggle Capitalization Word
  G-l: Lowercase Word or Region
  G-m: Save Some Buffers
  G-n: Next Error
  G-o: Switch to Next Window
  G-q: Quit
  G-r: Revert File
  G-s: Save Buffer
  G-u: Uppercase Word or Region
  G-v: Find File Other Window
  G-w: Write file
  G-y: EDT Emulation OFF
  G-z: Switch to User EDT Key Bindings
  G-1: Delete Other Windows
  G-2: Split Window
  G-%: Go to Percentage
  G- : Undo  (GOLD Spacebar)
  G-=: Go to Line
  G-`: What line

;;; File:  edt-user.el   ---  Sample User Customizations for the Enhanced 
;;;                             EDT Keypad Mode Emulation 
;;;                             
;;;                          For GNU Emacs 19
;;;
;; Copyright (C) 1986, 1992, 1993 Free Software Foundation, Inc.

;; Author: Kevin Gallagher <kgallagh@spd.dsccc.com>
;; Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com>
;; Keywords: emulations

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

;;; Commentary:

;; This file contains GNU Emacs User Custom EDT bindings and functions.  In
;; this example file, there is no special test for the type of terminal being
;; used.  The assumption is that all key bindings here apply to all terminals
;; that may be used.  (In fact, it was written by an individual who uses only
;; VT series terminals when logging into a VAX.)
;;
;; WARNING: Each of the three functions, edt-bind-function-key,
;;          edt-bind-gold-key, and edt-bind-standard-key, has an optional
;;          last argument.  The optional argument should NOT be used in
;;          edt-user.el!  When the optional argument is missing, each
;;          function knows to make the key binding part of the user's EDT
;;          custom bindings, which is what you want to do in edt-user.el!
;;
;;          The EDT default bindings are set up in edt.el by calling these
;;          same functions with the optional last argument set to "t".  So, if
;;          you decide to copy such function calls from edt.el to edt-user.el
;;          for subsequent modification, BE SURE TO DELETE THE "t" AT THE END
;;          OF EACH PARAMETER LIST!
;;

;;; Usage:

;;  See edt-user.doc in the emacs etc directory.

;; ====================================================================

;;;;
;;;; Setup user custom EDT key bindings.
;;;;

(defun edt-setup-user-bindings ()
  "Assigns user custom EDT Emulation keyboard bindings."

  ;; PF1 (GOLD), PF2, PF3, PF4
  ;;
  ;; This file MUST contain a binding of PF1 to edt-user-gold-map.  So
  ;; DON'T CHANGE OR DELETE THE REGULAR KEY BINDING OF PF1 BELOW!
  ;; (However, you may change the GOLD-PF1 binding, if you wish.)
  (edt-bind-function-key "PF1" 'edt-user-gold-map 'edt-mark-section-wisely)
  (edt-bind-function-key "PF2" 'query-replace 'other-window)
  (edt-bind-function-key "PF4" 'edt-delete-entire-line 'edt-undelete-line)

  ;; EDT Keypad Keys
  (edt-bind-function-key "KP1" 'edt-word-forward 'edt-change-case)
  (edt-bind-function-key "KP3" 'edt-word-backward 'edt-copy)
  (edt-bind-function-key "KP6" 'edt-cut-or-copy 'yank)
  (edt-bind-function-key "KP8" 'edt-scroll-window 'fill-paragraph)
  (edt-bind-function-key "KP9" 'open-line 'edt-eliminate-all-tabs)
  (edt-bind-function-key "KPP" 
			 'edt-toggle-select 'edt-line-to-middle-of-window)
  (edt-bind-function-key "KPE" 'edt-change-direction 'overwrite-mode)

  ;; GOLD bindings for regular keys.
  (edt-bind-gold-key "a" 'edt-append)
  (edt-bind-gold-key "A" 'edt-append)
  (edt-bind-gold-key "h" 'edt-electric-user-keypad-help)
  (edt-bind-gold-key "H" 'edt-electric-user-keypad-help)

  ;; Control bindings for regular keys.
  ;;; Leave binding of C-c as original prefix key.
  (edt-bind-standard-key "\C-j" 'edt-duplicate-word)
  (edt-bind-standard-key "\C-k" 'edt-define-key)
  (edt-bind-gold-key  "\C-k" 'edt-restore-key)
  (edt-bind-standard-key "\C-l" 'edt-learn)
  ;;; Leave binding of C-m to newline.
  (edt-bind-standard-key "\C-n" 'edt-set-screen-width-80)
  (edt-bind-standard-key "\C-o" 'open-line)
  (edt-bind-standard-key "\C-p" 'fill-paragraph)
  ;;; Leave binding of C-r to isearch-backward.
  ;;; Leave binding of C-s to isearch-forward.
  (edt-bind-standard-key "\C-t" 'edt-display-the-time)
  (edt-bind-standard-key "\C-v" 'redraw-display)
  (edt-bind-standard-key "\C-w" 'edt-set-screen-width-132)
  ;;; Leave binding of C-x as original prefix key.
)

;;;
;;; LK-201 KEYBOARD USER EDT KEYPAD HELP
;;;

(defun edt-user-keypad-help ()
  "
                                USER EDT Keypad Active

                                  +----------+----------+----------+----------+
   F7: Copy Rectangle             |Prev Line |Next Line |Bkwd Char |Frwd Char |
   F8: Cut Rect Overstrike        |   (UP)   |  (DOWN)  |  (LEFT)  | (RIGHT)  |
 G-F8: Paste Rect Overstrike      |Window Top|Window Bot|Bkwd Sent |Frwd Sent |
   F9: Cut Rect Insert            +----------+----------+----------+----------+
 G-F9: Paste Rect Insert         
  F10: Cut Rectangle
G-F10: Paste Rectangle
  F11: ESC                        +----------+----------+----------+----------+
  F12: Begining of Line           |   GOLD   |Query Repl|  FNDNXT  |Del Ent L |
G-F12: Delete Other Windows       |   (PF1)  |   (PF2)  |   (PF3)  |   (PF4)  |
  F13: Delete to Begin of Word    |Mark Wisel|Other Wind|   FIND   |  UND L   |
 HELP: Keypad Help                +----------+----------+----------+----------+
   DO: Execute extended command   |   PAGE   |Scroll Win|Open Line |  DEL W   |
                                  |    (7)   |    (8)   |    (9)   |   (-)    |
  C-a: Beginning of Line          |Ex Ext Cmd|Fill Parag|Elim Tabs |  UND W   |
  C-b: Switch to Buffer           +----------+----------+----------+----------+
  C-d: Delete Character           |  ADVANCE |  BACKUP  | CUT/COPY |  DEL C   |
  C-e: End of Line                |    (4)   |    (5)   |    (6)   |   (,)    |
  C-f: Forward Character          |   BOTTOM |    TOP   |   Yank   |  UND C   |
  C-g: Keyboard Quit              +----------+----------+----------+----------+
G-C-g: Keyboard Quit              | Fwd Word |    EOL   | Bwd Word |  Change  |
  C-h: Electric Emacs Help        |    (1)   |    (2)   |    (3)   | Direction|
G-C-h: Emacs Help                 | CHNGCASE |  DEL EOL |   COPY   |          |
  C-i: Indent for Tab             +---------------------+----------+  (ENTER) |
  C-j: Duplicate Word             |         LINE        |SELECT/RES|          |
  C-k: Define Key                 |         (0)         |    (.)   |  Toggle  |
G-C-k: Restore Key                |      Open Line      |Center Lin|Insrt/Over|
  C-l: Learn                      +---------------------+----------+----------+
  C-n: Set Screen Width 80       
  C-o: Open Line                       +----------+----------+----------+
  C-p: Fill Paragraph                  |  FNDNXT  |   Yank   |    CUT   |
  C-q: Quoted Insert                   |  (FIND)) | (INSERT) | (REMOVE) |
  C-r: Isearch Backward                |   FIND   |          |   COPY   |
  C-s: Isearch Forward                 +----------+----------+----------+
  C-t: Display the Time                |SELECT/RES|SECT BACKW|SECT FORWA|
  C-u: Universal Argument              | (SELECT) |(PREVIOUS)|  (NEXT)  |
  C-v: Redraw Display                  |          |          |          |
  C-w: Set Screen Width 132            +----------+----------+----------+
  C-z: Suspend Emacs
G-C-\\: Split Window

  G-a: Append to Kill Buffer
  G-b: Buffer Menu
  G-c: Compile
  G-d: Delete Window
  G-e: Exit
  G-f: Find File
  G-g: Find File Other Window
  G-h: Keypad Help
  G-i: Insert File
  G-k: Toggle Capitalization Word
  G-l: Lowercase Word or Region
  G-m: Save Some Buffers
  G-n: Next Error
  G-o: Switch Windows
  G-q: Quit
  G-r: Revert File
  G-s: Save Buffer
  G-u: Uppercase Word or Region
  G-v: Find File Other Window
  G-w: Write file
  G-y: EDT Emulation OFF
  G-z: Switch to Default EDT Key Bindings
  G-2: Split Window
  G-%: Go to Percentage
  G- : Undo  (GOLD Spacebar)
  G-=: Go to Line
  G-`: What line"

  (interactive)
  (describe-function 'edt-user-keypad-help))