1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
|
File: edt-user.doc --- EDT Emulation User Instructions
For GNU Emacs 19
Copyright (C) 1986, 1992, 1994, 1995, 1999, 2000, 2002, 2003, 2004,
2005 Free Software Foundation, Inc.
Author: Kevin Gallagher <kevingal@onramp.net>
Maintainer: Kevin Gallagher <kevingal@onramp.net>
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, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
============================================================================
I. OVERVIEW:
This is Version 4.0 of the EDT Emulation for Emacs 19 and above.
It comes with special functions which replicate nearly all of EDT's
keypad mode behavior. It sets up default keypad and function key
bindings which closely match those found in EDT. Support is
provided so that users may reconfigure most keypad and function key
bindings to their own liking.
NOTE: Version 4.0 contains several enhancements. See the
Enhancements section below for the details.
Quick Start:
To start the EDT Emulation, first start Emacs and then 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:
(add-hook term-setup-hook 'edt-emulation-on)
IMPORTANT: Be sure to read the rest of this file. It contains very
useful information on how the EDT Emulation behaves and how
to customize it to your liking.
The EDT emulation consists of the following files:
edt-user.doc - User Instructions and Sample Customization File
edt.el - EDT Emulation Functions and Default Configuration
edt-lk201.el - Built-in support for DEC LK-201 Keyboards
edt-vt100.el - Built-in support for DEC VT-100 (and above) terminals
edt-pc.el - Built-in support for PC 101 Keyboards under MS-DOS
edt-mapper.el - Create an EDT LK-201 Map File for Keyboards Without
Built-in Support
Enhancements:
Version 4.0 contains the following enhancements:
1. 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.
2. The SUBS command is now supported and bound to GOLD-Enter by
default. (This design was copied from tpu-edt.el.) Note, in
earlier versions of EDT Emulation, GOLD-Enter was assigned to
the Emacs function `query-replace'. The binding of
`query-replace' has been moved to GOLD-/. If you prefer to
restore `query-replace' to GOLD-Enter, then use an EDT user
customization file, edt-user.el, to do this. See edt-user.doc
for details.
3. EDT Emulation now also works in XEmacs, including the
highlighting of selected text.
4. If you access a workstation using an X Server, observe that
the initialization file generated by edt-mapper.el will now
contain the name of the X Server vendor. This is a
convenience for those who have access to their Unix account
from more than one type of X Server. Since different X
Servers typically require different EDT emulation
initialization files, edt-mapper.el will now generate these
different initialization files and save them with different
names. Then, the correct initialization file for the
particular X server in use is loaded correctly automatically.
5. Also, edt-mapper.el is now capable of binding an ASCII key
sequence, providing the ASCII key sequence prefix is already
known by Emacs to be a prefix. As a result of providing this
support, some terminal/keyboard/window system configurations,
which don't have a complete set of sensible function key
bindings built into Emacs in `function-key-map', can still be
configured for use with EDT Emulation. (Note: In a few rare
circumstances this does not work properly. In particular, it
does not work if a subset of the leading ASCII characters in a
key sequence are recognized by Emacs as having an existing
binding. For example, if the keypad 7 (KP-7) key generates
the sequence \"<ESC>Ow\" and \"<ESC>O\" is already bound to a
function, pressing KP-7 when told to do so by edt-mapper.el
will result in edt-mapper.el incorrectly mapping \"<ESC>O\" to
KP-7 and \"w\" to KP-8. If something like this happens to
you, it is probably a bug in the support for your keyboard
within Emacs OR a bug in the Unix termcap/terminfo support for
your terminal OR a bug in the terminal emulation software you
are using.)
6. The edt-quit function (bound to GOLD-q by default) has been
modified to warn the user when file-related buffer
modifications exist. It now cautions the user that those
modifications will be lost if the user quits without saving
those buffers.
Goals:
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 EDT 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 and higher. (GNU Emacs 18 and below is no
longer supported.) XEmacs 19, and above, is also supported.
7. Supports highlighting of marked text within the EDT emulation on
all platforms on which Emacs supports highlighting of marked text.
8. Handle terminal configuration interactively for most terminal
configurations, 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 a Window System are supported via the edt-mapper function.
The first time you invoke the emulation under a window system, 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, KP0, KP1, F1, F2, etc.). This configuration is saved to disk
read each time the emulation is invoked.
In character oriented connections not running a window manager, built-in
support for the following terminals/keyboards is provided:
(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:
(add-hook 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. (See the
sample edt-user.el file below. Look at the binding to GOLD Z.) It is also
easy to turn off the emulation (via the command edt-emulation-off). Doing so
completely restores the original key bindings in effect just prior to invoking
the emulation.
Emacs binds keys to ASCII control characters and so does the real EDT. 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 so that the EDT bindings to ASCII control characters override the default
Emacs bindings.
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 and other more recent Sun keyboards, however, do have
separate arrow keys. This makes them candidates for setting up a
reasonable EDT keypad emulation.
Depending upon the configuration of the version of X installed on your
system, you may find the default X keynames for the keypad keys don't
permit Emacs to interpret some or all the keypad keys as something other
than arrow keys, numeric keys, Home, PgUP, etc. Both Sun and HP have been
particularly guilty of making bizarre keysym assignments to the keypad
keys.
In most cases, the X Windows command, xmodmap, can be used to correct the
problem. Here's a sample .xmodmaprc file which corrects this problem on
one Sun workstation configuration using an older SunOS release configured
with a Sun Type 5 keyboard:
! 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
If edt-mapper.el does not recognize your keypad keys as unique keys, use
the command
xmodmap -pke
to get a listing of the actual key codes and the keysyms mapped to them
and then generate you own custom .xmodmaprc similar to the one above.
Next, 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). In this example, the line
keycode 105 = F24
changes the X Windows name of the keypad NumLock key to be known
internally as the F24 key. Doing so permits it to be configured to behave
as the PF1 (Gold) key.
The side effect of this change is that 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. Basically, you need to clear the
NumLock key from being assigned as a modifier, assign it to the key of
your choice, and then add it back as a modifier. (See the "General Notes
on Using NumLock for the PF1 Key on a Unix System" section below 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. This was once distributed in a file called gold22.zip and
came with the source code as well as a loadable binary image. (See
edt-pc.el in the Emacs lisp/emulation directory for more information.)
PC users running GNU/Linux:
The default X server configuration varies from distribution to
distribution and release to release of GNU/Linux. If your system fails to
recognize the keypad keys as distinct keys, change the NumLock state,
turning it on or off, as the case may be, then try again. If this doesn't
solve your problem, you may have to modify the X keysym mappings with
xmodmap.
On one distribution on an Intel PC, the following .xmodmaprc set things up
nicely.
! File: .xmodmaprc
!
! Set up PC keypad under GNU/Linux for the GNU Emacs EDT Emulation
!
clear mod2
keycode 77 = F12
keycode 96 = Num_Lock Pointer_EnableKeys
add mod2 = Num_Lock
In this example, after feeding the file to the xmodmap command, the PC
NumLock keypad key will be configurable for the emulation of the PF1 key.
The PC keypad can now emulate an LK-201 keypad (less the comma key), the
standard keyboard supplied with DEC terminals VT-200 and above. This
.xmodmaprc file switches the role of the F12 and NumLock keys. It has
been tested on RedHat GNU/Linux 5.2. Other versions of GNU/Linux may
require different keycodes. (See the "General Notes on Using NumLock for
the PF1 Key on a Unix System" section below for further help on how to do
this.)
NOTE: Remember, it may be necessary to have NumLock in one position (ON)
or the other (OFF) for the PC keypad to emulate the LK-201 keypad
properly.
General Notes on Using NumLock for the PF1 Key on a Unix System:
Making the physical NumLock key available for use in the EDT
Emulation requires some modification to the default X Window
settings. Since the keycode assignments vary from system to
system, some investigation is needed to see how to do this on
a particular system.
You will need to look at the output generated by xmodmap invoked with the
"-pm" switch. examined. For example, on RedHat GNU/Linux 5.2 on a PC, we
get the following output when running xmodmap.
"xmodmap -pm" yields:
xmodmap: up to 2 keys per modifier, (keycodes in parentheses):
shift Shift_L (0x32), Shift_R (0x3e)
lock Caps_Lock (0x42)
control Control_L (0x25), Control_R (0x6d)
mod1 Alt_L (0x40), Alt_R (0x71)
mod2 Num_Lock (0x4d)
mod3
mod4
mod5 Scroll_Lock (0x4e)
Note that Num_Lock is assigned to the modifier mod2. This is
what hides Num_Lock from being seen by Emacs.
Now, "xmodmap -pke" yields:
.
.
.
keycode 77 = Num_Lock Pointer_EnableKeys
.
.
.
keycode 96 = F12
.
.
.
So, in RedHat GNU/Linux 5.2 on a PC, Num_Lock generates keycode
77. The following steps are taken:
1. clear the assignment of Num_Lock to mod2;
2. swap the keycodes assigned to F12 and Num_Lock;
3. assign Num_Lock back to mod2.
The .xmodmaprc file looks like this:
! File: .xmodmaprc
!
! Set up PC keypad under GNU/Linux for the GNU Emacs EDT Emulation
!
clear mod2
keycode 77 = F12
keycode 96 = Num_Lock Pointer_EnableKeys
add mod2 = Num_Lock
So, after executing "xmodmap .xmodmaprc", a press of the physical
F12 key looks like a Num_Lock keypress to X. Also, a press of the
physical NumLock key looks like a press of the F12 key to X.
Now, edt-mapper.el will see "f12" when the physical NumLock key
is pressed, allowing the NumLock key to be used as the EDT PF1
(Gold) key.
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 using the real EDT, pressing
these three keys in sequence, GOLD 5 KP1, will move the cursor in the
current direction 5 words. This does NOT work in Emacs!
Emacs provides two ways to enter repeat counts and neither involves using
the GOLD key. First, repeat counts can be entered in Emacs 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. Second, Emacs provides
another command called universal-argument that can be used to do the same
thing. Normally, in Emacs has this bound to C-u.
2. 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 its own command prompt "M-x". This stands for the
keypress Meta-x, where Meta is a special shift key. The Alt key is often
mapped to behave as a Meta key. So, you can also invoke this prompt by
pressing Meta-x. Typing the sequence "ESC x" will also invoke the prompt.
3. Selected text is highlighted ONLY on systems where Emacs supports the
highlighting of text.
4. Just like in 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 (the direction keys) 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 file.
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.
3. All original Emacs bindings are fully restored when EDT emulation is turned
off. So, if a fellow worker comes over to your terminal to help you with a
software problem, for example, and is completely confused by your EDT
emulation bindings, just enter the command, edt-emulation-off, at the M-x
prompt and the original Emacs bindings will be restored. To resume the EDT
emulation, just enter edt-emulation-on.
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. Or, you can used the Emacs customize command
to change its setting.
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, REPLACE, and SUBS 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 Rectangular 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 rectangular 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.
20. EDT scroll margins are supported, but are disabled by default. (See
CUSTOMIZING section below for instructions on how to enable them.)
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 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: Beginning 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 <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, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, 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: Beginning 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))
|