diff options
| author | Glenn Morris | 2009-12-15 02:58:44 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-12-15 02:58:44 +0000 |
| commit | f681f4b3023e55345acc0a8d63b880574c5ffef8 (patch) | |
| tree | ec4a701936d847e89378ffeeead15476ae73a258 | |
| parent | 631d18b221dbedd854c35c5fa8062629e8dc3a35 (diff) | |
| download | emacs-f681f4b3023e55345acc0a8d63b880574c5ffef8.tar.gz emacs-f681f4b3023e55345acc0a8d63b880574c5ffef8.zip | |
Split into edt-user.el and ../doc/misc/edt.texi, and remove.
| -rw-r--r-- | etc/edt-user.doc | 987 |
1 files changed, 0 insertions, 987 deletions
diff --git a/etc/edt-user.doc b/etc/edt-user.doc deleted file mode 100644 index bfaf9b2aac8..00000000000 --- a/etc/edt-user.doc +++ /dev/null | |||
| @@ -1,987 +0,0 @@ | |||
| 1 | File: edt-user.doc --- EDT Emulation User Instructions | ||
| 2 | |||
| 3 | For GNU Emacs 19 | ||
| 4 | |||
| 5 | Copyright (C) 1986, 1992, 1994, 1995, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. | ||
| 7 | |||
| 8 | Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> | ||
| 9 | Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> | ||
| 10 | Keywords: emulations | ||
| 11 | |||
| 12 | This file is part of GNU Emacs. | ||
| 13 | |||
| 14 | GNU Emacs is free software: you can redistribute it and/or modify | ||
| 15 | it under the terms of the GNU General Public License as published by | ||
| 16 | the Free Software Foundation, either version 3 of the License, or | ||
| 17 | (at your option) any later version. | ||
| 18 | |||
| 19 | GNU Emacs is distributed in the hope that it will be useful, | ||
| 20 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 21 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 22 | GNU General Public License for more details. | ||
| 23 | |||
| 24 | You should have received a copy of the GNU General Public License | ||
| 25 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | ||
| 26 | |||
| 27 | ============================================================================ | ||
| 28 | |||
| 29 | I. OVERVIEW: | ||
| 30 | |||
| 31 | This is Version 4.0 of the EDT Emulation for Emacs 19 and above. | ||
| 32 | It comes with special functions which replicate nearly all of EDT's | ||
| 33 | keypad mode behavior. It sets up default keypad and function key | ||
| 34 | bindings which closely match those found in EDT. Support is | ||
| 35 | provided so that users may reconfigure most keypad and function key | ||
| 36 | bindings to their own liking. | ||
| 37 | |||
| 38 | NOTE: Version 4.0 contains several enhancements. See the | ||
| 39 | Enhancements section below for the details. | ||
| 40 | |||
| 41 | |||
| 42 | Quick Start: | ||
| 43 | |||
| 44 | To start the EDT Emulation, first start Emacs and then enter | ||
| 45 | |||
| 46 | M-x edt-emulation-on | ||
| 47 | |||
| 48 | to begin the emulation. After initialization is complete, the | ||
| 49 | following message will appear below the status line informing you | ||
| 50 | that the emulation has been enabled: "Default EDT keymap active". | ||
| 51 | |||
| 52 | You can have the EDT Emulation start up automatically, each time | ||
| 53 | you initiate a GNU Emacs session, by adding the following line to | ||
| 54 | your .emacs file: | ||
| 55 | |||
| 56 | (add-hook term-setup-hook 'edt-emulation-on) | ||
| 57 | |||
| 58 | IMPORTANT: Be sure to read the rest of this file. It contains very | ||
| 59 | useful information on how the EDT Emulation behaves and how | ||
| 60 | to customize it to your liking. | ||
| 61 | |||
| 62 | The EDT emulation consists of the following files: | ||
| 63 | |||
| 64 | edt-user.doc - User Instructions and Sample Customization File | ||
| 65 | edt.el - EDT Emulation Functions and Default Configuration | ||
| 66 | edt-lk201.el - Built-in support for DEC LK-201 Keyboards | ||
| 67 | edt-vt100.el - Built-in support for DEC VT-100 (and above) terminals | ||
| 68 | edt-pc.el - Built-in support for PC 101 Keyboards under MS-DOS | ||
| 69 | edt-mapper.el - Create an EDT LK-201 Map File for Keyboards Without | ||
| 70 | Built-in Support | ||
| 71 | |||
| 72 | Enhancements: | ||
| 73 | |||
| 74 | Version 4.0 contains the following enhancements: | ||
| 75 | |||
| 76 | 1. Scroll margins at the top and bottom of the window are now | ||
| 77 | supported. (The design was copied from tpu-extras.el.) By | ||
| 78 | default, this feature is enabled with the top margin set to | ||
| 79 | 10% of the window and the bottom margin set to 15% of the | ||
| 80 | window. To change these settings, you can invoke the function | ||
| 81 | edt-set-scroll-margins in your .emacs file. For example, the | ||
| 82 | following line | ||
| 83 | |||
| 84 | (edt-set-scroll-margins "20%" "25%") | ||
| 85 | |||
| 86 | sets the top margin to 20% of the window and the bottom margin | ||
| 87 | to 25% of the window. To disable this feature, set each | ||
| 88 | margin to 0%. You can also invoke edt-set-scroll-margins | ||
| 89 | interactively while EDT Emulation is active to change the | ||
| 90 | settings for that session. | ||
| 91 | |||
| 92 | NOTE: Another way to set the scroll margins is to use the | ||
| 93 | Emacs customization feature (not available in Emacs 19) to set | ||
| 94 | the following two variables directly: | ||
| 95 | |||
| 96 | edt-top-scroll-margin and edt-bottom-scroll-margin | ||
| 97 | |||
| 98 | Enter the Emacs `customize' command. First select the Editing | ||
| 99 | group and then select the Emulations group. Finally, select | ||
| 100 | the Edt group and follow the directions. | ||
| 101 | |||
| 102 | 2. The SUBS command is now supported and bound to GOLD-Enter by | ||
| 103 | default. (This design was copied from tpu-edt.el.) Note, in | ||
| 104 | earlier versions of EDT Emulation, GOLD-Enter was assigned to | ||
| 105 | the Emacs function `query-replace'. The binding of | ||
| 106 | `query-replace' has been moved to GOLD-/. If you prefer to | ||
| 107 | restore `query-replace' to GOLD-Enter, then use an EDT user | ||
| 108 | customization file, edt-user.el, to do this. See edt-user.doc | ||
| 109 | for details. | ||
| 110 | |||
| 111 | 3. EDT Emulation now also works in XEmacs, including the | ||
| 112 | highlighting of selected text. | ||
| 113 | |||
| 114 | 4. If you access a workstation using an X Server, observe that | ||
| 115 | the initialization file generated by edt-mapper.el will now | ||
| 116 | contain the name of the X Server vendor. This is a | ||
| 117 | convenience for those who have access to their Unix account | ||
| 118 | from more than one type of X Server. Since different X | ||
| 119 | Servers typically require different EDT emulation | ||
| 120 | initialization files, edt-mapper.el will now generate these | ||
| 121 | different initialization files and save them with different | ||
| 122 | names. Then, the correct initialization file for the | ||
| 123 | particular X server in use is loaded correctly automatically. | ||
| 124 | |||
| 125 | 5. Also, edt-mapper.el is now capable of binding an ASCII key | ||
| 126 | sequence, providing the ASCII key sequence prefix is already | ||
| 127 | known by Emacs to be a prefix. As a result of providing this | ||
| 128 | support, some terminal/keyboard/window system configurations, | ||
| 129 | which don't have a complete set of sensible function key | ||
| 130 | bindings built into Emacs in `function-key-map', can still be | ||
| 131 | configured for use with EDT Emulation. (Note: In a few rare | ||
| 132 | circumstances this does not work properly. In particular, it | ||
| 133 | does not work if a subset of the leading ASCII characters in a | ||
| 134 | key sequence are recognized by Emacs as having an existing | ||
| 135 | binding. For example, if the keypad 7 (KP-7) key generates | ||
| 136 | the sequence \"<ESC>Ow\" and \"<ESC>O\" is already bound to a | ||
| 137 | function, pressing KP-7 when told to do so by edt-mapper.el | ||
| 138 | will result in edt-mapper.el incorrectly mapping \"<ESC>O\" to | ||
| 139 | KP-7 and \"w\" to KP-8. If something like this happens to | ||
| 140 | you, it is probably a bug in the support for your keyboard | ||
| 141 | within Emacs OR a bug in the Unix termcap/terminfo support for | ||
| 142 | your terminal OR a bug in the terminal emulation software you | ||
| 143 | are using.) | ||
| 144 | |||
| 145 | 6. The edt-quit function (bound to GOLD-q by default) has been | ||
| 146 | modified to warn the user when file-related buffer | ||
| 147 | modifications exist. It now cautions the user that those | ||
| 148 | modifications will be lost if the user quits without saving | ||
| 149 | those buffers. | ||
| 150 | |||
| 151 | |||
| 152 | Goals: | ||
| 153 | |||
| 154 | 1. Emulate EDT Keypad Mode commands closely so that current EDT users | ||
| 155 | will find that it easy and comfortable to use GNU Emacs with a | ||
| 156 | small learning curve; | ||
| 157 | |||
| 158 | 2. Make it easy for a user to customize EDT emulation key bindings | ||
| 159 | without knowing much about Emacs Lisp; | ||
| 160 | |||
| 161 | 3. Make it easy to switch between the original EDT default bindings | ||
| 162 | and the user's customized EDT bindings, without having to exit | ||
| 163 | Emacs. | ||
| 164 | |||
| 165 | 4. Provide support for some TPU/EVE functions not supported in EDT. | ||
| 166 | |||
| 167 | 5. Provide an easy way to restore ALL original Emacs key bindings, | ||
| 168 | just as they existed before the EDT emulation was first invoked. | ||
| 169 | |||
| 170 | 6. Support GNU Emacs 19 and higher. (GNU Emacs 18 and below is no | ||
| 171 | longer supported.) XEmacs 19, and above, is also supported. | ||
| 172 | |||
| 173 | 7. Supports highlighting of marked text within the EDT emulation on | ||
| 174 | all platforms on which Emacs supports highlighting of marked text. | ||
| 175 | |||
| 176 | 8. Handle terminal configuration interactively for most terminal | ||
| 177 | configurations, when the emulation is invoked for the first time. | ||
| 178 | |||
| 179 | 9. Support a PC AT keyboard under MS-DOS. | ||
| 180 | |||
| 181 | |||
| 182 | II. TERMINALS/KEYBOARDS SUPPORTED: | ||
| 183 | |||
| 184 | Keyboards used under a Window System are supported via the edt-mapper function. | ||
| 185 | The first time you invoke the emulation under a window system, the edt-mapper | ||
| 186 | function is run automatically and the user is prompted to identify which keys | ||
| 187 | the emulation is to use for the standard keypad and function keys EDT expects | ||
| 188 | (e.g., PF1, PF2, KP0, KP1, F1, F2, etc.). This configuration is saved to disk | ||
| 189 | read each time the emulation is invoked. | ||
| 190 | |||
| 191 | In character oriented connections not running a window manager, built-in | ||
| 192 | support for the following terminals/keyboards is provided: | ||
| 193 | |||
| 194 | (1) DEC VT-100 series and higher. This includes well behaved VT clones and | ||
| 195 | emulators. If you are using a VT series terminal, be sure that the term | ||
| 196 | environment variable is set properly before invoking emacs. | ||
| 197 | |||
| 198 | (2) PC AT keyboard under MS-DOS. | ||
| 199 | |||
| 200 | Be sure to read the SPECIAL NOTES FOR SOME PLATFORMS sections to see if those | ||
| 201 | notes apply to you. | ||
| 202 | |||
| 203 | |||
| 204 | III. STARTING THE EDT EMULATION: | ||
| 205 | |||
| 206 | Start up GNU Emacs and enter "M-x edt-emulation-on" to begin the emulation. | ||
| 207 | After initialization is complete, the following message will appear below the | ||
| 208 | status line informing you that the emulation has been enabled: | ||
| 209 | |||
| 210 | Default EDT keymap active | ||
| 211 | |||
| 212 | You can have the EDT Emulation start up automatically, each time you initiate | ||
| 213 | a GNU Emacs session, by adding the following line to your .emacs file: | ||
| 214 | |||
| 215 | (add-hook term-setup-hook 'edt-emulation-on) | ||
| 216 | |||
| 217 | A reference sheet is included (later on) listing the default EDT Emulation key | ||
| 218 | bindings. This sheet is also accessible on line from within Emacs by pressing | ||
| 219 | PF2, GOLD H, or HELP (when in the EDT Default Mode). | ||
| 220 | |||
| 221 | It is easy to customize key bindings in the EDT Emulation. (See CUSTOMIZING | ||
| 222 | section, below.) Customizations are placed in a file called edt-user.el. (A | ||
| 223 | sample edt-user.el file can be found in the CUSTOMIZING section.) If | ||
| 224 | edt-user.el is found in your GNU Emacs load path during EDT Emulation | ||
| 225 | initialization, then the following message will appear below the status line | ||
| 226 | indicating that the emulation has been enabled, enhanced by your own | ||
| 227 | customizations: | ||
| 228 | |||
| 229 | User EDT custom keymap active | ||
| 230 | |||
| 231 | Once enabled, it is easy to switch back and forth between your customized EDT | ||
| 232 | Emulation key bindings and the default EDT Emulation key bindings. (See the | ||
| 233 | sample edt-user.el file below. Look at the binding to GOLD Z.) It is also | ||
| 234 | easy to turn off the emulation (via the command edt-emulation-off). Doing so | ||
| 235 | completely restores the original key bindings in effect just prior to invoking | ||
| 236 | the emulation. | ||
| 237 | |||
| 238 | Emacs binds keys to ASCII control characters and so does the real EDT. Where | ||
| 239 | EDT key bindings and GNU Emacs key bindings conflict, the default GNU Emacs key | ||
| 240 | bindings are retained by the EDT emulation by default. If you are a diehard | ||
| 241 | EDT user you may not like this. The CUSTOMIZING section explains how to change | ||
| 242 | this so that the EDT bindings to ASCII control characters override the default | ||
| 243 | Emacs bindings. | ||
| 244 | |||
| 245 | |||
| 246 | IV. SPECIAL NOTES FOR SOME PLATFORMS: | ||
| 247 | |||
| 248 | Sun Workstations running X: | ||
| 249 | |||
| 250 | Some earlier Sun keyboards do not have arrow keys separate from the keypad | ||
| 251 | keys. It is difficult to emulate the full EDT keypad and still retain use | ||
| 252 | of the arrow keys on such keyboards. | ||
| 253 | |||
| 254 | The Sun Type 5 and other more recent Sun keyboards, however, do have | ||
| 255 | separate arrow keys. This makes them candidates for setting up a | ||
| 256 | reasonable EDT keypad emulation. | ||
| 257 | |||
| 258 | Depending upon the configuration of the version of X installed on your | ||
| 259 | system, you may find the default X keynames for the keypad keys don't | ||
| 260 | permit Emacs to interpret some or all the keypad keys as something other | ||
| 261 | than arrow keys, numeric keys, Home, PgUP, etc. Both Sun and HP have been | ||
| 262 | particularly guilty of making bizarre keysym assignments to the keypad | ||
| 263 | keys. | ||
| 264 | |||
| 265 | In most cases, the X Windows command, xmodmap, can be used to correct the | ||
| 266 | problem. Here's a sample .xmodmaprc file which corrects this problem on | ||
| 267 | one Sun workstation configuration using an older SunOS release configured | ||
| 268 | with a Sun Type 5 keyboard: | ||
| 269 | |||
| 270 | ! File: .xmodmaprc | ||
| 271 | ! | ||
| 272 | ! Set up Sun Type 5 keypad for use with the GNU Emacs EDT Emulation | ||
| 273 | ! | ||
| 274 | keycode 53 = KP_Divide | ||
| 275 | keycode 54 = KP_Multiply | ||
| 276 | keycode 57 = KP_Decimal | ||
| 277 | keycode 75 = KP_7 | ||
| 278 | keycode 76 = KP_8 | ||
| 279 | keycode 77 = KP_9 | ||
| 280 | keycode 78 = KP_Subtract | ||
| 281 | keycode 97 = KP_Enter | ||
| 282 | keycode 98 = KP_4 | ||
| 283 | keycode 99 = KP_5 | ||
| 284 | keycode 100 = KP_6 | ||
| 285 | keycode 101 = KP_0 | ||
| 286 | keycode 105 = F24 | ||
| 287 | keycode 119 = KP_1 | ||
| 288 | keycode 120 = KP_2 | ||
| 289 | keycode 121 = KP_3 | ||
| 290 | keycode 132 = KP_Add | ||
| 291 | |||
| 292 | If edt-mapper.el does not recognize your keypad keys as unique keys, use | ||
| 293 | the command | ||
| 294 | |||
| 295 | xmodmap -pke | ||
| 296 | |||
| 297 | to get a listing of the actual key codes and the keysyms mapped to them | ||
| 298 | and then generate you own custom .xmodmaprc similar to the one above. | ||
| 299 | |||
| 300 | Next, feed .xmodmaprc to the xmodmap command and all the Sun Type 5 keypad | ||
| 301 | keys will now be configurable for the emulation of an LK-201 keypad (less | ||
| 302 | the comma key). In this example, the line | ||
| 303 | |||
| 304 | keycode 105 = F24 | ||
| 305 | |||
| 306 | changes the X Windows name of the keypad NumLock key to be known | ||
| 307 | internally as the F24 key. Doing so permits it to be configured to behave | ||
| 308 | as the PF1 (Gold) key. | ||
| 309 | |||
| 310 | The side effect of this change is that you will no longer have a NumLock | ||
| 311 | key. If you are using other software under X which requires a NumLock | ||
| 312 | key, then examine your keyboard and look for one you don't use and | ||
| 313 | redefine it to be the NumLock key. Basically, you need to clear the | ||
| 314 | NumLock key from being assigned as a modifier, assign it to the key of | ||
| 315 | your choice, and then add it back as a modifier. (See the "General Notes | ||
| 316 | on Using NumLock for the PF1 Key on a Unix System" section below for | ||
| 317 | further help on how to do this.) | ||
| 318 | |||
| 319 | PC users running MS-DOS: | ||
| 320 | |||
| 321 | By default, F1 is configured to emulate the PF1 (GOLD) key. But NumLock | ||
| 322 | can be used instead if you load a freeware TSR distributed with MS-Kermit, | ||
| 323 | call gold.com. This was once distributed in a file called gold22.zip and | ||
| 324 | came with the source code as well as a loadable binary image. (See | ||
| 325 | edt-pc.el in the Emacs lisp/emulation directory for more information.) | ||
| 326 | |||
| 327 | PC users running GNU/Linux: | ||
| 328 | |||
| 329 | The default X server configuration varies from distribution to | ||
| 330 | distribution and release to release of GNU/Linux. If your system fails to | ||
| 331 | recognize the keypad keys as distinct keys, change the NumLock state, | ||
| 332 | turning it on or off, as the case may be, then try again. If this doesn't | ||
| 333 | solve your problem, you may have to modify the X keysym mappings with | ||
| 334 | xmodmap. | ||
| 335 | |||
| 336 | On one distribution on an Intel PC, the following .xmodmaprc set things up | ||
| 337 | nicely. | ||
| 338 | |||
| 339 | ! File: .xmodmaprc | ||
| 340 | ! | ||
| 341 | ! Set up PC keypad under GNU/Linux for the GNU Emacs EDT Emulation | ||
| 342 | ! | ||
| 343 | clear mod2 | ||
| 344 | keycode 77 = F12 | ||
| 345 | keycode 96 = Num_Lock Pointer_EnableKeys | ||
| 346 | add mod2 = Num_Lock | ||
| 347 | |||
| 348 | In this example, after feeding the file to the xmodmap command, the PC | ||
| 349 | NumLock keypad key will be configurable for the emulation of the PF1 key. | ||
| 350 | The PC keypad can now emulate an LK-201 keypad (less the comma key), the | ||
| 351 | standard keyboard supplied with DEC terminals VT-200 and above. This | ||
| 352 | .xmodmaprc file switches the role of the F12 and NumLock keys. It has | ||
| 353 | been tested on RedHat GNU/Linux 5.2. Other versions of GNU/Linux may | ||
| 354 | require different keycodes. (See the "General Notes on Using NumLock for | ||
| 355 | the PF1 Key on a Unix System" section below for further help on how to do | ||
| 356 | this.) | ||
| 357 | |||
| 358 | NOTE: Remember, it may be necessary to have NumLock in one position (ON) | ||
| 359 | or the other (OFF) for the PC keypad to emulate the LK-201 keypad | ||
| 360 | properly. | ||
| 361 | |||
| 362 | General Notes on Using NumLock for the PF1 Key on a Unix System: | ||
| 363 | |||
| 364 | Making the physical NumLock key available for use in the EDT | ||
| 365 | Emulation requires some modification to the default X Window | ||
| 366 | settings. Since the keycode assignments vary from system to | ||
| 367 | system, some investigation is needed to see how to do this on | ||
| 368 | a particular system. | ||
| 369 | |||
| 370 | You will need to look at the output generated by xmodmap invoked with the | ||
| 371 | "-pm" switch. examined. For example, on RedHat GNU/Linux 5.2 on a PC, we | ||
| 372 | get the following output when running xmodmap. | ||
| 373 | |||
| 374 | "xmodmap -pm" yields: | ||
| 375 | |||
| 376 | xmodmap: up to 2 keys per modifier, (keycodes in parentheses): | ||
| 377 | |||
| 378 | shift Shift_L (0x32), Shift_R (0x3e) | ||
| 379 | lock Caps_Lock (0x42) | ||
| 380 | control Control_L (0x25), Control_R (0x6d) | ||
| 381 | mod1 Alt_L (0x40), Alt_R (0x71) | ||
| 382 | mod2 Num_Lock (0x4d) | ||
| 383 | mod3 | ||
| 384 | mod4 | ||
| 385 | mod5 Scroll_Lock (0x4e) | ||
| 386 | |||
| 387 | |||
| 388 | Note that Num_Lock is assigned to the modifier mod2. This is | ||
| 389 | what hides Num_Lock from being seen by Emacs. | ||
| 390 | |||
| 391 | Now, "xmodmap -pke" yields: | ||
| 392 | |||
| 393 | . | ||
| 394 | . | ||
| 395 | . | ||
| 396 | keycode 77 = Num_Lock Pointer_EnableKeys | ||
| 397 | . | ||
| 398 | . | ||
| 399 | . | ||
| 400 | keycode 96 = F12 | ||
| 401 | . | ||
| 402 | . | ||
| 403 | . | ||
| 404 | |||
| 405 | So, in RedHat GNU/Linux 5.2 on a PC, Num_Lock generates keycode | ||
| 406 | 77. The following steps are taken: | ||
| 407 | |||
| 408 | 1. clear the assignment of Num_Lock to mod2; | ||
| 409 | 2. swap the keycodes assigned to F12 and Num_Lock; | ||
| 410 | 3. assign Num_Lock back to mod2. | ||
| 411 | |||
| 412 | The .xmodmaprc file looks like this: | ||
| 413 | |||
| 414 | ! File: .xmodmaprc | ||
| 415 | ! | ||
| 416 | ! Set up PC keypad under GNU/Linux for the GNU Emacs EDT Emulation | ||
| 417 | ! | ||
| 418 | clear mod2 | ||
| 419 | keycode 77 = F12 | ||
| 420 | keycode 96 = Num_Lock Pointer_EnableKeys | ||
| 421 | add mod2 = Num_Lock | ||
| 422 | |||
| 423 | So, after executing "xmodmap .xmodmaprc", a press of the physical | ||
| 424 | F12 key looks like a Num_Lock keypress to X. Also, a press of the | ||
| 425 | physical NumLock key looks like a press of the F12 key to X. | ||
| 426 | |||
| 427 | Now, edt-mapper.el will see "f12" when the physical NumLock key | ||
| 428 | is pressed, allowing the NumLock key to be used as the EDT PF1 | ||
| 429 | (Gold) key. | ||
| 430 | |||
| 431 | V. HOW DOES THIS EDT EMULATION DIFFER FROM REAL EDT?: | ||
| 432 | |||
| 433 | In general, you will find that this emulation of EDT replicates most, but not | ||
| 434 | all, of EDT's most used Keypad Mode editing functions and behavior. It is not | ||
| 435 | perfect, but most EDT users who have tried the emulation agree that it is | ||
| 436 | quite good enough to make it easy for die-hard EDT users to move over to using | ||
| 437 | GNU Emacs. | ||
| 438 | |||
| 439 | Here's a list of the most important differences between EDT and this GNU Emacs | ||
| 440 | EDT Emulation. The list is short but you must be aware of these differences | ||
| 441 | if you are to use the EDT Emulation effectively. | ||
| 442 | |||
| 443 | 1. Entering repeat counts works a little differently than in EDT. | ||
| 444 | |||
| 445 | EDT allows users to enter a repeat count before entering a command that | ||
| 446 | accepts repeat counts. For example, when using the real EDT, pressing | ||
| 447 | these three keys in sequence, GOLD 5 KP1, will move the cursor in the | ||
| 448 | current direction 5 words. This does NOT work in Emacs! | ||
| 449 | |||
| 450 | Emacs provides two ways to enter repeat counts and neither involves using | ||
| 451 | the GOLD key. First, repeat counts can be entered in Emacs by using the | ||
| 452 | ESC key. For example, pressing these keys in sequence, ESC 1 0 KP1, will | ||
| 453 | move the cursor in the current direction 10 words. Second, Emacs provides | ||
| 454 | another command called universal-argument that can be used to do the same | ||
| 455 | thing. Normally, in Emacs has this bound to C-u. | ||
| 456 | |||
| 457 | 2. EDT's line mode commands and nokeypad mode commands are NOT supported | ||
| 458 | (with one important exception; see item 8 in the Highlights section | ||
| 459 | below). Although, at first, this may seem like a big omission, the set of | ||
| 460 | built-in Emacs commands provides a much richer set of capabilities which | ||
| 461 | more than make up for this omission. | ||
| 462 | |||
| 463 | To enter Emacs commands not bound to keys, you can press GOLD KP7 or the DO | ||
| 464 | key. Emacs will display its own command prompt "M-x". This stands for the | ||
| 465 | keypress Meta-x, where Meta is a special shift key. The Alt key is often | ||
| 466 | mapped to behave as a Meta key. So, you can also invoke this prompt by | ||
| 467 | pressing Meta-x. Typing the sequence "ESC x" will also invoke the prompt. | ||
| 468 | |||
| 469 | 3. Selected text is highlighted ONLY on systems where Emacs supports the | ||
| 470 | highlighting of text. | ||
| 471 | |||
| 472 | 4. Just like in TPU/EVE, the ENTER key is NOT used to terminate input when the | ||
| 473 | editor prompts you for input. The RETURN key is used, instead. (KP4 and | ||
| 474 | KP5 (the direction keys) do terminate input for the FIND command, just like | ||
| 475 | in EDT, however.) | ||
| 476 | |||
| 477 | |||
| 478 | |||
| 479 | |||
| 480 | VI. SOME HIGHLIGHTS IN THIS EDT EMULATION, AND SOME COMPARISONS TO THE | ||
| 481 | ORIGINAL GNU EMACS EDT EMULATION: | ||
| 482 | |||
| 483 | 1. The EDT define key command is supported (edt-define-key) and is bound to | ||
| 484 | C-k in the default EDT mode when EDT control sequence bindings are enabled | ||
| 485 | or one of the sample edt-user.el customization files is used. The TPU/EVE | ||
| 486 | learn command is supported but not bound to a key in the default EDT mode | ||
| 487 | but is bound in the sample edt-user.el file. | ||
| 488 | |||
| 489 | Unlike the TPU/EVE learn command, which uses one key to begin the learn | ||
| 490 | sequence, C-l, and another command to remember the sequence, C-r, this | ||
| 491 | version of the learn command (edt-learn) serves as a toggle to both begin | ||
| 492 | and to remember the learn sequence. | ||
| 493 | |||
| 494 | Many users who change the meaning of a key with the define key and the | ||
| 495 | learn commands, would like to be able to restore the original key binding | ||
| 496 | without having to quit and restart emacs. So a restore key command is | ||
| 497 | provided to do just that. When invoked, it prompts you to press the key | ||
| 498 | to which you wish the last replaced key definition restored. It is bound | ||
| 499 | to GOLD C-k in the default EDT mode when EDT control sequence bindings are | ||
| 500 | enabled or one of the sample edt-user.el customization files is used. | ||
| 501 | |||
| 502 | 2. Direction support is fully supported. | ||
| 503 | |||
| 504 | 3. All original Emacs bindings are fully restored when EDT emulation is turned | ||
| 505 | off. So, if a fellow worker comes over to your terminal to help you with a | ||
| 506 | software problem, for example, and is completely confused by your EDT | ||
| 507 | emulation bindings, just enter the command, edt-emulation-off, at the M-x | ||
| 508 | prompt and the original Emacs bindings will be restored. To resume the EDT | ||
| 509 | emulation, just enter edt-emulation-on. | ||
| 510 | |||
| 511 | 4. User custom EDT bindings are kept separate from the default EDT bindings. | ||
| 512 | One can toggle back and forth between the custom EDT bindings and default | ||
| 513 | EDT bindings. | ||
| 514 | |||
| 515 | 5. The Emacs functions in edt.el attempt to emulate, where practical, the | ||
| 516 | exact behavior of the corresponding EDT keypad mode commands. In a few | ||
| 517 | cases, the emulation is not exact, but we hope you will agree it is close | ||
| 518 | enough. In a very few cases, we chose to use the Emacs way of handling | ||
| 519 | things. As mentioned earlier, we do not emulate the EDT SUBS command. | ||
| 520 | Instead, we chose to use the Emacs query-replace function, which we find | ||
| 521 | to be easier to use. | ||
| 522 | |||
| 523 | 6. Emacs uses the regexp assigned to page-delimiter to determine what marks a | ||
| 524 | page break. This is normally "^\f", which causes the edt-page command to | ||
| 525 | ignore form feeds not located at the beginning of a line. To emulate the | ||
| 526 | EDT PAGE command exactly, page-delimiter is set to "\f" when EDT emulation | ||
| 527 | is turned on, and restored to "^\f" when EDT emulation is turned off. | ||
| 528 | But, since some users prefer the Emacs definition of a page break, or may | ||
| 529 | wish to preserve a customized definition of page break, one can override | ||
| 530 | the EDT definition by placing | ||
| 531 | |||
| 532 | (setq edt-keep-current-page-delimiter t) | ||
| 533 | |||
| 534 | in your .emacs file. Or, you can used the Emacs customize command | ||
| 535 | to change its setting. | ||
| 536 | |||
| 537 | 7. The EDT definition of a section of a terminal window is hardwired to be 16 | ||
| 538 | lines of its one-and-only 24-line window (the EDT SECT command bound to | ||
| 539 | KP8). That's two-thirds of the window at a time. Since Emacs, like | ||
| 540 | TPU/EVE, can handle multiple windows of sizes of other than 24 lines, the | ||
| 541 | definition of section used here has been modified to two-thirds of the | ||
| 542 | current window. (There is also an edt-scroll-window function which you | ||
| 543 | may prefer over the SECT emulation.) | ||
| 544 | |||
| 545 | 8. Cursor movement and deletion involving word entities is identical to EDT. | ||
| 546 | This, above all else, gives the die-hard EDT user a sense of being at | ||
| 547 | home. Also, an emulation of EDT's SET ENTITY WORD command is provided, | ||
| 548 | for those users who like to customize movement by a word at a time to | ||
| 549 | their own liking. | ||
| 550 | |||
| 551 | 9. EDT's FIND and FNDNXT are supported. | ||
| 552 | |||
| 553 | 10. EDT's APPEND, REPLACE, and SUBS commands are supported. | ||
| 554 | |||
| 555 | 11. CHNGCASE is supported. It works on individual characters or selected | ||
| 556 | text, if SELECT is active. In addition, two new commands are provided: | ||
| 557 | edt-lowercase and edt-uppercase. They work on individual WORDS or | ||
| 558 | selected text, if SELECT is active. | ||
| 559 | |||
| 560 | 12. Form feed and tab insert commands are supported. | ||
| 561 | |||
| 562 | 13. A new command, edt-duplicate-word, is provided. If you experiment with | ||
| 563 | it, you might find it to be surprisingly useful and may wonder how you | ||
| 564 | ever got along without it! It is assigned to C-j in the sample | ||
| 565 | edt-user.el customization files. | ||
| 566 | |||
| 567 | 14. TPU/EVE's Rectangular Cut and Paste functions (originally from the EVE-Plus | ||
| 568 | package) are supported. But unlike the TPU/EVE versions, these here | ||
| 569 | support both insert and overwrite modes. The seven rectangular functions | ||
| 570 | are bound to F7, F8, GOLD-F8, F9, GOLD-F9, F10, and GOLD-F10 in the | ||
| 571 | default EDT mode. | ||
| 572 | |||
| 573 | 15. The original EDT emulation package set up many default regular and GOLD | ||
| 574 | bindings. We tried to preserve most (but not all!) of these, so users of | ||
| 575 | the original emulation package will feel more at home. | ||
| 576 | |||
| 577 | Nevertheless, there are still many GOLD key sequences which are not bound | ||
| 578 | to any functions. These are prime candidates to use for your own | ||
| 579 | customizations. | ||
| 580 | |||
| 581 | Also, there are several commands in edt.el not bound to any key. So, you | ||
| 582 | will find it worthwhile to look through edt.el for functions you may wish | ||
| 583 | to add to your personal customized bindings. | ||
| 584 | |||
| 585 | 16. The VT200/VT300 series terminals steal the function keys F1 to F5 for | ||
| 586 | their own use. These do not generate signals which are sent to the host. | ||
| 587 | So, edt.el does not assign any default bindings to F1 through F5. | ||
| 588 | |||
| 589 | In addition, our VT220 terminals generate an interrupt when the F6 key is | ||
| 590 | pressed (^C or ^Y, can't remember which) and not the character sequence | ||
| 591 | documented in the manual. So, binding emacs commands to F6 will not work | ||
| 592 | if your terminal behaves the same way. | ||
| 593 | |||
| 594 | 17. The VT220 terminal has no ESC, BS, nor LF keys, as does a VT100. So the | ||
| 595 | default EDT bindings adopt the standard DEC convention of having the F11, | ||
| 596 | F12, and F13 keys, on a VT200 series (and above) terminal, assigned to the | ||
| 597 | same EDT functions that are bound to ESC, BS, and LF on a VT100 terminal. | ||
| 598 | |||
| 599 | 18. Each user, through the use of a private edt-user.el file, can customize, | ||
| 600 | very easily, personal EDT emulation bindings. | ||
| 601 | |||
| 602 | 19. The EDT SELECT and RESET functions are supported. However, unlike EDT, | ||
| 603 | pressing RESET to cancel text selection does NOT reset the existing | ||
| 604 | setting of the current direction. | ||
| 605 | |||
| 606 | We also provide a TPU/EVE like version of the single SELECT/RESET | ||
| 607 | function, called edt-toggle-select, which makes the EDT SELECT function | ||
| 608 | into a toggle on/off switch. That is, if selection is ON, pressing SELECT | ||
| 609 | again turns selection off (cancels selection). This function is used in | ||
| 610 | the sample edt-user.el customization files. | ||
| 611 | |||
| 612 | 20. EDT scroll margins are supported, but are disabled by default. (See | ||
| 613 | CUSTOMIZING section below for instructions on how to enable them.) | ||
| 614 | |||
| 615 | |||
| 616 | VII. CUSTOMIZING: | ||
| 617 | |||
| 618 | Most EDT users, at one time or another, make some custom key bindings, or | ||
| 619 | use someone else's custom key bindings, which they come to depend upon just as | ||
| 620 | if they were built-in bindings. This EDT Emulation for GNU Emacs is designed | ||
| 621 | to make it easy to customize bindings. | ||
| 622 | |||
| 623 | If you wish to customize the EDT Emulation to use some of your own key | ||
| 624 | bindings, you need to make a private version of edt-user.el in your own | ||
| 625 | private lisp directory. There are two sample files edt-user.el1 and | ||
| 626 | edt-user.el2 for you to use as templates and for ideas. Look at | ||
| 627 | edt-user.el1 first. Unless you will be using two or more very different | ||
| 628 | types of terminals on the same system, you need not look at edt-user.el2. | ||
| 629 | |||
| 630 | First, you need to have your own private lisp directory, say ~/lisp, and | ||
| 631 | you should add it to the GNU Emacs load path. | ||
| 632 | |||
| 633 | NOTE: A few sites have different load-path requirements, so the above | ||
| 634 | directions may need some modification if your site has such special | ||
| 635 | needs. | ||
| 636 | |||
| 637 | |||
| 638 | Creating your own edt-user.el file: | ||
| 639 | |||
| 640 | A sample edt-user.el file is attached to the end of this user documentation. | ||
| 641 | You should use it as a guide to learn how you can customize EDT emulation | ||
| 642 | bindings to your own liking. Names used to identify the set of LK-201 | ||
| 643 | keypad and function keys are: | ||
| 644 | |||
| 645 | Keypad Keys: | ||
| 646 | PF1 PF2 PF3 PF4 | ||
| 647 | KP7 KP8 KP9 KP- | ||
| 648 | KP4 KP5 KP6 KP, | ||
| 649 | KP1 KP2 KP3 | ||
| 650 | KP0 KPP KPE | ||
| 651 | |||
| 652 | Arrow Keys: | ||
| 653 | LEFT RIGHT DOWN UP | ||
| 654 | |||
| 655 | Function Keys: | ||
| 656 | F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 F13 F14 | ||
| 657 | HELP DO F17 F18 F19 F20 | ||
| 658 | |||
| 659 | FIND INSERT REMOVE | ||
| 660 | SELECT PREVIOUS NEXT | ||
| 661 | |||
| 662 | Note: | ||
| 663 | Many VT-200 terminals, and above, steal function keys F1 thru | ||
| 664 | F5 for terminal setup control and don't send anything to the | ||
| 665 | host if pressed. So customizing bindings to these keys may | ||
| 666 | not work for you. | ||
| 667 | |||
| 668 | There are three basic functions that do the EDT emulation custom bindings: | ||
| 669 | edt-bind-key, edt-bind-gold-key, and edt-bind-function-key. | ||
| 670 | |||
| 671 | The first two are for binding functions to keys which are standard across most | ||
| 672 | keyboards. This makes them keyboard independent, making it possible to define | ||
| 673 | these key bindings for all terminals in the file edt.el. | ||
| 674 | |||
| 675 | The first, edt-bind-key, is used typically to bind emacs commands to | ||
| 676 | control keys, although some people use it to bind commands to other keys, as | ||
| 677 | well. (For example, some people use it to bind the VT200 seldom used | ||
| 678 | back-tick key (`) to the function "ESC-prefix" so it will behave like an ESC | ||
| 679 | key.) The second function, edt-bind-gold-key, is used to bind emacs commands | ||
| 680 | to gold key sequences involving alpha-numeric keys, special character keys, | ||
| 681 | and control keys. | ||
| 682 | |||
| 683 | The third function, edt-bind-function-key, is terminal dependent and is defined | ||
| 684 | in a terminal specific file (see edt-vt100.el for example). It is used to bind | ||
| 685 | emacs commands to LK-201 function keys, to keypad keys, and to gold sequences | ||
| 686 | of those keys. | ||
| 687 | |||
| 688 | |||
| 689 | SPECIFYING WORD ENTITIES: | ||
| 690 | |||
| 691 | The variable edt-word-entities is used to emulate EDT's SET ENTITY WORD | ||
| 692 | command. It contains a list of characters to be treated as words in | ||
| 693 | themselves. If the user does not define edt-word-entities in his/her .emacs | ||
| 694 | file, then it is set up with the EDT default containing only TAB. | ||
| 695 | |||
| 696 | The characters are stored in the list by their numerical values, not as | ||
| 697 | strings. Emacs supports several ways to specify the numerical value of a | ||
| 698 | character. One method is to use the question mark: ?A means the numerical | ||
| 699 | value for A, ?/ means the numerical value for /, and so on. Several | ||
| 700 | unprintable characters have special representations: | ||
| 701 | |||
| 702 | ?\b specifies BS, C-h | ||
| 703 | ?\t specifies TAB, C-i | ||
| 704 | ?\n specifies LFD, C-j | ||
| 705 | ?\v specifies VTAB, C-k | ||
| 706 | ?\f specifies FF, C-l | ||
| 707 | ?\r specifies CR, C-m | ||
| 708 | ?\e specifies ESC, C-[ | ||
| 709 | ?\\ specifies \ | ||
| 710 | |||
| 711 | Here are some examples: | ||
| 712 | |||
| 713 | (setq edt-word-entities '(?\t ?- ?/)) ;; Specifies TAB, - , and / | ||
| 714 | (setq edt-word-entities '(?\t) ;; Specifies TAB, the default | ||
| 715 | |||
| 716 | You can also specify characters by their decimal ascii values: | ||
| 717 | |||
| 718 | (setq edt-word-entities '(9 45 47)) ;; Specifies TAB, - , and / | ||
| 719 | |||
| 720 | |||
| 721 | ENABLING EDT CONTROL KEY SEQUENCE BINDINGS: | ||
| 722 | |||
| 723 | Where EDT key bindings and GNU Emacs key bindings conflict, the default GNU | ||
| 724 | Emacs key bindings are retained by default. Some diehard EDT users may not | ||
| 725 | like this. So, if the variable edt-use-EDT-control-key-bindings is set to | ||
| 726 | true in a user's .emacs file, then the default EDT Emulation mode will enable | ||
| 727 | most of the original EDT control key sequence bindings. If you wish to do | ||
| 728 | this, add the following line to your .emacs file: | ||
| 729 | |||
| 730 | (setq edt-use-EDT-control-key-bindings t) | ||
| 731 | |||
| 732 | |||
| 733 | SETTING SCROLL MARGINS: | ||
| 734 | |||
| 735 | Scroll margins at the top and bottom of the window are now supported. (The | ||
| 736 | design was copied from tpu-extras.el.) By default, this feature is enabled | ||
| 737 | with the top margin set to 10% of the window and the bottom margin set to 15% | ||
| 738 | of the window. To change these settings, you can invoke the function | ||
| 739 | edt-set-scroll-margins in your .emacs file. For example, the following line | ||
| 740 | |||
| 741 | (edt-set-scroll-margins "20%" "25%") | ||
| 742 | |||
| 743 | sets the top margin to 20% of the window and the bottom margin to 25% of the | ||
| 744 | window. To disable this feature, set each margin to 0%. You can also invoke | ||
| 745 | edt-set-scroll-margins interactively while EDT Emulation is active to change | ||
| 746 | the settings for that session. | ||
| 747 | |||
| 748 | NOTE: Another way to set the scroll margins is to use the Emacs customization | ||
| 749 | feature (not available in Emacs 19) to set the following two variables | ||
| 750 | directly: | ||
| 751 | |||
| 752 | edt-top-scroll-margin and edt-bottom-scroll-margin | ||
| 753 | |||
| 754 | Enter the Emacs `customize' command. First select the Editing group and then | ||
| 755 | select the Emulations group. Finally, select the Edt group and follow the | ||
| 756 | directions. | ||
| 757 | |||
| 758 | DEFAULT EDT Keypad | ||
| 759 | |||
| 760 | F7: Copy Rectangle +----------+----------+----------+----------+ | ||
| 761 | F8: Cut Rect Overstrike |Prev Line |Next Line |Bkwd Char |Frwd Char | | ||
| 762 | G-F8: Paste Rect Overstrike | (UP) | (DOWN) | (LEFT) | (RIGHT) | | ||
| 763 | F9: Cut Rect Insert |Window Top|Window Bot|Bkwd Sent |Frwd Sent | | ||
| 764 | G-F9: Paste Rect Insert +----------+----------+----------+----------+ | ||
| 765 | F10: Cut Rectangle | ||
| 766 | G-F10: Paste Rectangle | ||
| 767 | F11: ESC | ||
| 768 | F12: Beginning of Line +----------+----------+----------+----------+ | ||
| 769 | G-F12: Delete Other Windows | GOLD | HELP | FNDNXT | DEL L | | ||
| 770 | F13: Delete to Begin of Word | (PF1) | (PF2) | (PF3) | (PF4) | | ||
| 771 | HELP: Keypad Help |Mark Wisel|Desc Funct| FIND | UND L | | ||
| 772 | G-HELP: Emacs Help +----------+----------+----------+----------+ | ||
| 773 | DO: Execute extended command | PAGE | SECT | APPEND | DEL W | | ||
| 774 | C-g: Keyboard Quit | (7) | (8) | (9) | (-) | | ||
| 775 | G-C-g: Keyboard Quit |Ex Ext Cmd|Fill Regio| REPLACE | UND W | | ||
| 776 | C-h: Beginning of Line +----------+----------+----------+----------+ | ||
| 777 | G-C-h: Emacs Help | ADVANCE | BACKUP | CUT | DEL C | | ||
| 778 | C-i: Tab Insert | (4) | (5) | (6) | (,) | | ||
| 779 | C-j: Delete to Begin of Word | BOTTOM | TOP | Yank | UND C | | ||
| 780 | C-k: Define Key +----------+----------+----------+----------+ | ||
| 781 | G-C-k: Restore Key | WORD | EOL | CHAR | Next | | ||
| 782 | C-l: Form Feed Insert | (1) | (2) | (3) | Window | | ||
| 783 | C-n: Set Screen Width 80 | CHNGCASE | DEL EOL |Quoted Ins| ! | ||
| 784 | C-r: Isearch Backward +---------------------+----------+ (ENTER) | | ||
| 785 | C-s: Isearch Forward | LINE | SELECT | ! | ||
| 786 | C-t: Display the Time | (0) | (.) | Query | | ||
| 787 | C-u: Delete to Begin of Line | Open Line | RESET | Replace | | ||
| 788 | C-v: Redraw Display +---------------------+----------+----------+ | ||
| 789 | C-w: Set Screen Width 132 | ||
| 790 | C-z: Suspend Emacs +----------+----------+----------+ | ||
| 791 | G-C-\: Split Window | FNDNXT | Yank | CUT | | ||
| 792 | | (FIND) | (INSERT) | (REMOVE) | | ||
| 793 | G-b: Buffer Menu | FIND | | COPY | | ||
| 794 | G-c: Compile +----------+----------+----------+ | ||
| 795 | G-d: Delete Window |SELECT/RES|SECT BACKW|SECT FORWA| | ||
| 796 | G-e: Exit | (SELECT) |(PREVIOUS)| (NEXT) | | ||
| 797 | G-f: Find File | | | | | ||
| 798 | G-g: Find File Other Window +----------+----------+----------+ | ||
| 799 | G-h: Keypad Help | ||
| 800 | G-i: Insert File | ||
| 801 | G-k: Toggle Capitalization Word | ||
| 802 | G-l: Lowercase Word or Region | ||
| 803 | G-m: Save Some Buffers | ||
| 804 | G-n: Next Error | ||
| 805 | G-o: Switch to Next Window | ||
| 806 | G-q: Quit | ||
| 807 | G-r: Revert File | ||
| 808 | G-s: Save Buffer | ||
| 809 | G-u: Uppercase Word or Region | ||
| 810 | G-v: Find File Other Window | ||
| 811 | G-w: Write file | ||
| 812 | G-y: EDT Emulation OFF | ||
| 813 | G-z: Switch to User EDT Key Bindings | ||
| 814 | G-1: Delete Other Windows | ||
| 815 | G-2: Split Window | ||
| 816 | G-%: Go to Percentage | ||
| 817 | G- : Undo (GOLD Spacebar) | ||
| 818 | G-=: Go to Line | ||
| 819 | G-`: What line | ||
| 820 | G-/: Query-Replace | ||
| 821 | |||
| 822 | ;;; File: edt-user.el --- Sample User Customizations for the Enhanced | ||
| 823 | ;;; EDT Keypad Mode Emulation | ||
| 824 | ;;; | ||
| 825 | ;;; For GNU Emacs 19 and Above | ||
| 826 | ;;; | ||
| 827 | ;; Copyright (C) 1986, 1992, 1993, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 828 | ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. | ||
| 829 | |||
| 830 | ;; Author: Kevin Gallagher <kgallagh@spd.dsccc.com> | ||
| 831 | ;; Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com> | ||
| 832 | ;; Keywords: emulations | ||
| 833 | |||
| 834 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 835 | ;; it under the terms of the GNU General Public License as published by | ||
| 836 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 837 | ;; (at your option) any later version. | ||
| 838 | |||
| 839 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 840 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 841 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 842 | ;; GNU General Public License for more details. | ||
| 843 | |||
| 844 | ;; You should have received a copy of the GNU General Public License | ||
| 845 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | ||
| 846 | |||
| 847 | ;;; Commentary: | ||
| 848 | |||
| 849 | ;; This file contains GNU Emacs User Custom EDT bindings and functions. | ||
| 850 | |||
| 851 | ;;; Usage: | ||
| 852 | |||
| 853 | ;; See edt-user.doc in the emacs etc directory. | ||
| 854 | |||
| 855 | ;; ==================================================================== | ||
| 856 | |||
| 857 | ;;;; | ||
| 858 | ;;;; Setup user custom EDT key bindings. | ||
| 859 | ;;;; | ||
| 860 | |||
| 861 | (defun edt-setup-user-bindings () | ||
| 862 | "Assigns user custom EDT Emulation keyboard bindings." | ||
| 863 | |||
| 864 | ;; PF1 (GOLD), PF2, PF3, PF4 | ||
| 865 | ;; | ||
| 866 | ;; This file MUST contain a binding of PF1 to edt-user-gold-map. So | ||
| 867 | ;; DON'T CHANGE OR DELETE THE REGULAR KEY BINDING OF PF1 BELOW! | ||
| 868 | ;; (However, you may change the GOLD-PF1 binding, if you wish.) | ||
| 869 | (edt-bind-function-key "PF1" 'edt-user-gold-map 'edt-mark-section-wisely) | ||
| 870 | (edt-bind-function-key "PF2" 'query-replace 'other-window) | ||
| 871 | (edt-bind-function-key "PF4" 'edt-delete-entire-line 'edt-undelete-line) | ||
| 872 | |||
| 873 | ;; EDT Keypad Keys | ||
| 874 | (edt-bind-function-key "KP1" 'edt-word-forward 'edt-change-case) | ||
| 875 | (edt-bind-function-key "KP3" 'edt-word-backward 'edt-copy) | ||
| 876 | (edt-bind-function-key "KP6" 'edt-cut-or-copy 'yank) | ||
| 877 | (edt-bind-function-key "KP8" 'edt-scroll-window 'fill-paragraph) | ||
| 878 | (edt-bind-function-key "KP9" 'open-line 'edt-eliminate-all-tabs) | ||
| 879 | (edt-bind-function-key "KPP" | ||
| 880 | 'edt-toggle-select 'edt-line-to-middle-of-window) | ||
| 881 | (edt-bind-function-key "KPE" 'edt-change-direction 'overwrite-mode) | ||
| 882 | |||
| 883 | ;; GOLD bindings for regular keys. | ||
| 884 | (edt-bind-gold-key "a" 'edt-append) | ||
| 885 | (edt-bind-gold-key "A" 'edt-append) | ||
| 886 | (edt-bind-gold-key "h" 'edt-electric-user-keypad-help) | ||
| 887 | (edt-bind-gold-key "H" 'edt-electric-user-keypad-help) | ||
| 888 | |||
| 889 | ;; Control bindings for regular keys. | ||
| 890 | ;;; Leave binding of C-c as original prefix key. | ||
| 891 | (edt-bind-key "\C-j" 'edt-duplicate-word) | ||
| 892 | (edt-bind-key "\C-k" 'edt-define-key) | ||
| 893 | (edt-bind-gold-key "\C-k" 'edt-restore-key) | ||
| 894 | (edt-bind-key "\C-l" 'edt-learn) | ||
| 895 | ;;; Leave binding of C-m to newline. | ||
| 896 | (edt-bind-key "\C-n" 'edt-set-screen-width-80) | ||
| 897 | (edt-bind-key "\C-o" 'open-line) | ||
| 898 | (edt-bind-key "\C-p" 'fill-paragraph) | ||
| 899 | ;;; Leave binding of C-r to isearch-backward. | ||
| 900 | ;;; Leave binding of C-s to isearch-forward. | ||
| 901 | (edt-bind-key "\C-t" 'edt-display-the-time) | ||
| 902 | (edt-bind-key "\C-v" 'redraw-display) | ||
| 903 | (edt-bind-key "\C-w" 'edt-set-screen-width-132) | ||
| 904 | ;;; Leave binding of C-x as original prefix key. | ||
| 905 | ) | ||
| 906 | |||
| 907 | ;;; | ||
| 908 | ;;; LK-201 KEYBOARD USER EDT KEYPAD HELP | ||
| 909 | ;;; | ||
| 910 | |||
| 911 | (defun edt-user-keypad-help () | ||
| 912 | " | ||
| 913 | USER EDT Keypad Active | ||
| 914 | |||
| 915 | +----------+----------+----------+----------+ | ||
| 916 | F7: Copy Rectangle |Prev Line |Next Line |Bkwd Char |Frwd Char | | ||
| 917 | F8: Cut Rect Overstrike | (UP) | (DOWN) | (LEFT) | (RIGHT) | | ||
| 918 | G-F8: Paste Rect Overstrike |Window Top|Window Bot|Bkwd Sent |Frwd Sent | | ||
| 919 | F9: Cut Rect Insert +----------+----------+----------+----------+ | ||
| 920 | G-F9: Paste Rect Insert | ||
| 921 | F10: Cut Rectangle | ||
| 922 | G-F10: Paste Rectangle | ||
| 923 | F11: ESC +----------+----------+----------+----------+ | ||
| 924 | F12: Beginning of Line | GOLD |Query Repl| FNDNXT |Del Ent L | | ||
| 925 | G-F12: Delete Other Windows | (PF1) | (PF2) | (PF3) | (PF4) | | ||
| 926 | F13: Delete to Begin of Word |Mark Wisel|Other Wind| FIND | UND L | | ||
| 927 | HELP: Keypad Help +----------+----------+----------+----------+ | ||
| 928 | G-HELP: Emacs Help | PAGE |Scroll Win|Open Line | DEL W | | ||
| 929 | DO: Execute extended command | (7) | (8) | (9) | (-) | | ||
| 930 | C-a: Beginning of Line |Ex Ext Cmd|Fill Parag|Elim Tabs | UND W | | ||
| 931 | C-b: Backward Character +----------+----------+----------+----------+ | ||
| 932 | C-d: Delete Character | ADVANCE | BACKUP | CUT/COPY | DEL C | | ||
| 933 | C-e: End of Line | (4) | (5) | (6) | (,) | | ||
| 934 | C-f: Forward Character | BOTTOM | TOP | Yank | UND C | | ||
| 935 | C-g: Keyboard Quit +----------+----------+----------+----------+ | ||
| 936 | G-C-g: Keyboard Quit | Fwd Word | EOL | Bwd Word | Change | | ||
| 937 | C-h: Electric Emacs Help | (1) | (2) | (3) | Direction| | ||
| 938 | G-C-h: Emacs Help | CHNGCASE | DEL EOL | COPY | | | ||
| 939 | C-i: Indent for Tab +---------------------+----------+ (ENTER) | | ||
| 940 | C-j: Duplicate Word | LINE |SELECT/RES| | | ||
| 941 | C-k: Define Key | (0) | (.) | Toggle | | ||
| 942 | G-C-k: Restore Key | Open Line |Center Lin|Insrt/Over| | ||
| 943 | C-l: Learn +---------------------+----------+----------+ | ||
| 944 | C-n: Set Screen Width 80 | ||
| 945 | C-o: Open Line +----------+----------+----------+ | ||
| 946 | C-p: Fill Paragraph | FNDNXT | Yank | CUT | | ||
| 947 | C-q: Quoted Insert | (FIND)) | (INSERT) | (REMOVE) | | ||
| 948 | C-r: Isearch Backward | FIND | | COPY | | ||
| 949 | C-s: Isearch Forward +----------+----------+----------+ | ||
| 950 | C-t: Display the Time |SELECT/RES|SECT BACKW|SECT FORWA| | ||
| 951 | C-u: Universal Argument | (SELECT) |(PREVIOUS)| (NEXT) | | ||
| 952 | C-v: Redraw Display | | | | | ||
| 953 | C-w: Set Screen Width 132 +----------+----------+----------+ | ||
| 954 | C-z: Suspend Emacs | ||
| 955 | G-C-\\: Split Window | ||
| 956 | |||
| 957 | G-a: Append to Kill Buffer | ||
| 958 | G-b: Buffer Menu | ||
| 959 | G-c: Compile | ||
| 960 | G-d: Delete Window | ||
| 961 | G-e: Exit | ||
| 962 | G-f: Find File | ||
| 963 | G-g: Find File Other Window | ||
| 964 | G-h: Keypad Help | ||
| 965 | G-i: Insert File | ||
| 966 | G-k: Toggle Capitalization Word | ||
| 967 | G-l: Lowercase Word or Region | ||
| 968 | G-m: Save Some Buffers | ||
| 969 | G-n: Next Error | ||
| 970 | G-o: Switch Windows | ||
| 971 | G-q: Quit | ||
| 972 | G-r: Revert File | ||
| 973 | G-s: Save Buffer | ||
| 974 | G-u: Uppercase Word or Region | ||
| 975 | G-v: Find File Other Window | ||
| 976 | G-w: Write file | ||
| 977 | G-y: EDT Emulation OFF | ||
| 978 | G-z: Switch to Default EDT Key Bindings | ||
| 979 | G-2: Split Window | ||
| 980 | G-%: Go to Percentage | ||
| 981 | G- : Undo (GOLD Spacebar) | ||
| 982 | G-=: Go to Line | ||
| 983 | G-`: What line | ||
| 984 | G-/: Query-Replace" | ||
| 985 | |||
| 986 | (interactive) | ||
| 987 | (describe-function 'edt-user-keypad-help)) | ||