edt-user.doc

windows版本的emacs

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 custom bindings:
edt-bind-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-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 LK-201 function keys, to keypad keys, and to gold sequences
of those keys.


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)


SETTING SCROLL MARGINS:

Scroll margins at the top and bottom of the window are now supported.  (The
design was copied from tpu-extras.el.)  By default, this feature is enabled
with the top margin set to 10% of the window and the bottom margin set to 15%
of the window.  To change these settings, you can invoke the function
edt-set-scroll-margins in your .emacs file.  For example, the following line

          (edt-set-scroll-margins "20%" "25%")
      
sets the top margin to 20% of the window and the bottom margin to 25% of the
window.  To disable this feature, set each margin to 0%.  You can also invoke
edt-set-scroll-margins interactively while EDT Emulation is active to change
the settings for that session.

NOTE: Another way to set the scroll margins is to use the Emacs customization
feature (not available in Emacs 19) to set the following two variables
directly:
      
          edt-top-scroll-margin and edt-bottom-scroll-margin

Enter the Emacs `customize' command.  First select the Editing group and then
select the Emulations group.  Finally, select the Edt group and follow the
directions.

                              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   |
G-HELP: Emacs Help                +----------+----------+----------+----------+
   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
  G-/: Query-Replace

;;; File:  edt-user.el   ---  Sample User Customizations for the Enhanced 
;;;                             EDT Keypad Mode Emulation 
;;;                             
;;;                      For GNU Emacs 19 and Above
;;;
;; Copyright (C) 1986, 1992, 1993, 2000 Free Software Foundation, Inc.

;; Author: Kevin Gallagher <[e-mail]>
;; Maintainer: Kevin Gallagher <[e-mail]>
;; 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, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; This file contains GNU Emacs User Custom EDT bindings and functions.

;;; 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-key "\C-j" 'edt-duplicate-word)
  (edt-bind-key "\C-k" 'edt-define-key)
  (edt-bind-gold-key  "\C-k" 'edt-restore-key)
  (edt-bind-key "\C-l" 'edt-learn)
  ;;; Leave binding of C-m to newline.
  (edt-bind-key "\C-n" 'edt-set-screen-width-80)
  (edt-bind-key "\C-o" 'open-line)
  (edt-bind-key "\C-p" 'fill-paragraph)
  ;;; Leave binding of C-r to isearch-backward.
  ;;; Leave binding of C-s to isearch-forward.
  (edt-bind-key "\C-t" 'edt-display-the-time)
  (edt-bind-key "\C-v" 'redraw-display)
  (edt-bind-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                +----------+----------+----------+----------+
G-HELP: Emacs Help                |   PAGE   |Scroll Win|Open Line |  DEL W   |
   DO: Execute extended command   |    (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
  G-/: Query-Replace"

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