27 |
|
|
28 |
|
|
29 |
;;; Commentary: |
;;; Commentary: |
30 |
;; |
;; |
31 |
|
|
32 |
;; This is Version 4.0 of the EDT Emulation for Emacs 19 and above. |
;; This is Version 4.0 of the EDT Emulation for Emacs 19 and above. |
33 |
;; It comes with special functions which replicate nearly all of EDT's |
;; It comes with special functions which replicate nearly all of EDT's |
41 |
|
|
42 |
;; Getting Started: |
;; Getting Started: |
43 |
|
|
44 |
;; To start the EDT Emulation, first start Emacs and then enter |
;; To start the EDT Emulation, first start Emacs and then enter |
45 |
;; |
;; |
46 |
;; M-x edt-emulation-on |
;; M-x edt-emulation-on |
47 |
;; |
;; |
48 |
;; to begin the emulation. After initialization is complete, the |
;; to begin the emulation. After initialization is complete, the |
49 |
;; following message will appear below the status line informing you |
;; following message will appear below the status line informing you |
50 |
;; that the emulation has been enabled: "Default EDT keymap active". |
;; that the emulation has been enabled: "Default EDT keymap active". |
59 |
;; Emacs "etc" directory. It contains very helpful user information. |
;; Emacs "etc" directory. It contains very helpful user information. |
60 |
|
|
61 |
;; The EDT emulation consists of the following files: |
;; The EDT emulation consists of the following files: |
62 |
;; |
;; |
63 |
;; edt-user.doc - User Instructions and Sample Customization File |
;; edt-user.doc - User Instructions and Sample Customization File |
64 |
;; edt.el - EDT Emulation Functions and Default Configuration |
;; edt.el - EDT Emulation Functions and Default Configuration |
65 |
;; edt-lk201.el - Built-in support for DEC LK-201 Keyboards |
;; edt-lk201.el - Built-in support for DEC LK-201 Keyboards |
66 |
;; edt-vt100.el - Built-in support for DEC VT-100 (and above) terminals |
;; edt-vt100.el - Built-in support for DEC VT-100 (and above) terminals |
67 |
;; edt-pc.el - Built-in support for PC 101 Keyboards under MS-DOS |
;; edt-pc.el - Built-in support for PC 101 Keyboards under MS-DOS |
68 |
;; edt-mapper.el - Create an EDT LK-201 Map File for Keyboards Without |
;; edt-mapper.el - Create an EDT LK-201 Map File for Keyboards Without |
69 |
;; Built-in Support |
;; Built-in Support |
70 |
|
|
71 |
;; Enhancements: |
;; Enhancements: |
81 |
;; following line |
;; following line |
82 |
;; |
;; |
83 |
;; (edt-set-scroll-margins "20%" "25%") |
;; (edt-set-scroll-margins "20%" "25%") |
84 |
;; |
;; |
85 |
;; sets the top margin to 20% of the window and the bottom margin |
;; sets the top margin to 20% of the window and the bottom margin |
86 |
;; to 25% of the window. To disable this feature, set each |
;; to 25% of the window. To disable this feature, set each |
87 |
;; margin to 0%. You can also invoke edt-set-scroll-margins |
;; margin to 0%. You can also invoke edt-set-scroll-margins |
91 |
;; NOTE: Another way to set the scroll margins is to use the |
;; NOTE: Another way to set the scroll margins is to use the |
92 |
;; Emacs customization feature (not available in Emacs 19) to set |
;; Emacs customization feature (not available in Emacs 19) to set |
93 |
;; the following two variables directly: |
;; the following two variables directly: |
94 |
;; |
;; |
95 |
;; edt-top-scroll-margin and edt-bottom-scroll-margin |
;; edt-top-scroll-margin and edt-bottom-scroll-margin |
96 |
;; |
;; |
97 |
;; Enter the Emacs `customize' command. First select the Editing |
;; Enter the Emacs `customize' command. First select the Editing |
98 |
;; group and then select the Emulations group. Finally, select |
;; group and then select the Emulations group. Finally, select |
99 |
;; the Edt group and follow the directions. |
;; the Edt group and follow the directions. |
100 |
;; |
;; |
101 |
;; 2. The SUBS command is now supported and bound to GOLD-Enter by |
;; 2. The SUBS command is now supported and bound to GOLD-Enter by |
102 |
;; default. (This design was copied from tpu-edt.el.) Note, in |
;; default. (This design was copied from tpu-edt.el.) Note, in |
103 |
;; earlier versions of EDT Emulation, GOLD-Enter was assigned to |
;; earlier versions of EDT Emulation, GOLD-Enter was assigned to |
149 |
|
|
150 |
|
|
151 |
;;; History: |
;;; History: |
152 |
;; |
;; |
153 |
;; Version 4.0 2000 Added New Features and Fixed a Few Bugs |
;; Version 4.0 2000 Added New Features and Fixed a Few Bugs |
154 |
;; |
;; |
155 |
|
|
156 |
|
|
157 |
;;; Code: |
;;; Code: |
166 |
;;;; VARIABLES and CONSTANTS |
;;;; VARIABLES and CONSTANTS |
167 |
;;;; |
;;;; |
168 |
|
|
169 |
;; For backward compatibility to Emacs 19, skip this if defgroup is |
;; For backward compatibility to Emacs 19. |
170 |
;; not defined. |
(or (fboundp 'defgroup) |
171 |
(if (fboundp 'defgroup) |
(defmacro defgroup (&rest rest))) |
172 |
(defgroup edt nil |
|
173 |
"Emacs emulating EDT." |
(defgroup edt nil |
174 |
:prefix "edt-" |
"Emacs emulating EDT." |
175 |
:group 'emulations)) |
:prefix "edt-" |
176 |
|
:group 'emulations) |
177 |
|
|
178 |
;;; |
;;; |
179 |
;;; Version Information |
;;; Version Information |
184 |
;;; User Configurable Variables |
;;; User Configurable Variables |
185 |
;;; |
;;; |
186 |
|
|
187 |
;; For backward compatibility to Emacs 19, use defvar if defcustom is |
;; For backward compatibility to Emacs 19. |
188 |
;; not defined. |
(or (fboundp 'defcustom) |
189 |
(if (fboundp 'defcustom) |
(defmacro defcustom (var value doc &rest ignore) |
190 |
(progn |
`(defvar ,var ,value ,doc))) |
191 |
(defcustom edt-keep-current-page-delimiter nil |
|
192 |
"*Emacs MUST be restarted for a change in value to take effect! |
(defcustom edt-keep-current-page-delimiter nil |
193 |
|
"*Emacs MUST be restarted for a change in value to take effect! |
194 |
Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT |
Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT |
195 |
Emulation. If set to nil (the default), the `page-delimiter' variable |
Emulation. If set to nil (the default), the `page-delimiter' variable |
196 |
is set to \"\\f\" when edt-emulation-on is first invoked. This |
is set to \"\\f\" when edt-emulation-on is first invoked. This |
197 |
setting replicates EDT's page delimiter behavior. The original value |
setting replicates EDT's page delimiter behavior. The original value |
198 |
is restored when edt-emulation-off is called." |
is restored when edt-emulation-off is called." |
199 |
:type 'boolean |
:type 'boolean |
200 |
:group 'edt) |
:group 'edt) |
201 |
|
|
202 |
(defcustom edt-use-EDT-control-key-bindings nil |
(defcustom edt-use-EDT-control-key-bindings nil |
203 |
"*Emacs MUST be restarted for a change in value to take effect! |
"*Emacs MUST be restarted for a change in value to take effect! |
204 |
Non-nil causes the control key bindings to be replaced with EDT |
Non-nil causes the control key bindings to be replaced with EDT |
205 |
bindings. If set to nil (the default), EDT control key bindings are |
bindings. If set to nil (the default), EDT control key bindings are |
206 |
not used and the current Emacs control key bindings are retained for |
not used and the current Emacs control key bindings are retained for |
207 |
use within the EDT emulation." |
use within the EDT emulation." |
208 |
:type 'boolean |
:type 'boolean |
209 |
:group 'edt) |
:group 'edt) |
210 |
|
|
211 |
(defcustom edt-word-entities '(?\t) |
(defcustom edt-word-entities '(?\t) |
212 |
"*Specifies the list of EDT word entity characters. |
"*Specifies the list of EDT word entity characters. |
213 |
The default list, (\?\\t), contains just the TAB character, which |
The default list, (\?\\t), contains just the TAB character, which |
214 |
emulates EDT. Characters are specified in the list using their |
emulates EDT. Characters are specified in the list using their |
215 |
decimal ASCII values. A question mark, followed by the actual |
decimal ASCII values. A question mark, followed by the actual |
230 |
|
|
231 |
In EDT Emulation movement-by-word commands, each character in the list |
In EDT Emulation movement-by-word commands, each character in the list |
232 |
will be treated as if it were a separate word." |
will be treated as if it were a separate word." |
233 |
:type '(repeat integer) |
:type '(repeat integer) |
234 |
:group 'edt) |
:group 'edt) |
235 |
|
|
236 |
(defcustom edt-top-scroll-margin 10 |
(defcustom edt-top-scroll-margin 10 |
237 |
"*Scroll margin at the top of the screen. |
"*Scroll margin at the top of the screen. |
238 |
Interpreted as a percent of the current window size with a default |
Interpreted as a percent of the current window size with a default |
239 |
setting of 10%. If set to 0, top scroll margin is disabled." |
setting of 10%. If set to 0, top scroll margin is disabled." |
240 |
:type 'integer |
:type 'integer |
241 |
:group 'edt) |
:group 'edt) |
242 |
|
|
243 |
(defcustom edt-bottom-scroll-margin 15 |
(defcustom edt-bottom-scroll-margin 15 |
244 |
"*Scroll margin at the bottom of the screen. |
"*Scroll margin at the bottom of the screen. |
245 |
Interpreted as a percent of the current window size with a default |
Interpreted as a percent of the current window size with a default |
246 |
setting of 15%. If set to 0, bottom scroll margin is disabled." |
setting of 15%. If set to 0, bottom scroll margin is disabled." |
247 |
:type 'integer |
:type 'integer |
248 |
:group 'edt)) |
:group 'edt) |
|
(progn |
|
|
(defvar edt-keep-current-page-delimiter nil |
|
|
"*Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT |
|
|
Emulation. If set to nil (the default), the `page-delimiter' variable |
|
|
is set to \"\\f\" when edt-emulation-on is first invoked. This |
|
|
setting replicates EDT's page delimiter behavior. The original value |
|
|
is restored when edt-emulation-off is called.") |
|
|
|
|
|
(defvar edt-use-EDT-control-key-bindings nil |
|
|
"*Non-nil causes the control key bindings to be replaced with EDT |
|
|
bindings. If set to nil (the default), EDT control key bindings are |
|
|
not used and the current Emacs control key bindings are retained for |
|
|
use within the EDT emulation.") |
|
|
|
|
|
(defvar edt-word-entities '(?\t) |
|
|
"*Specifies the list of EDT word entity characters. |
|
|
The default list, (\?\\t), contains just the TAB character, which |
|
|
emulates EDT. Characters are specified in the list using their |
|
|
decimal ASCII values. A question mark, followed by the actual |
|
|
character, can be used to indicate the numerical value of the |
|
|
character, instead of the actual decimal value. So, ?A means the |
|
|
numerical value for the letter A, \?/ means the numerical value for /, |
|
|
etc. Several unprintable and special characters have special |
|
|
representations, which you can also use: |
|
|
|
|
|
\?\\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 \\ |
|
|
|
|
|
In EDT Emulation movement-by-word commands, each character in the list |
|
|
will be treated as if it were a separate word.") |
|
|
|
|
|
(defvar edt-top-scroll-margin 10 |
|
|
"*Scroll margin at the top of the screen. |
|
|
Interpreted as a percent of the current window size with a default |
|
|
setting of 10%. If set to 0, top scroll margin is disabled.") |
|
|
|
|
|
(defvar edt-bottom-scroll-margin 15 |
|
|
"*Scroll margin at the bottom of the screen. |
|
|
Interpreted as a percent of the current window size with a default |
|
|
setting of 15%. If set to 0, bottom scroll margin is disabled."))) |
|
249 |
|
|
250 |
;;; |
;;; |
251 |
;;; Internal Variables |
;;; Internal Variables |
402 |
;;; EDT defaults a section size to be 16 lines of its one and only |
;;; EDT defaults a section size to be 16 lines of its one and only |
403 |
;;; 24-line window. That's two-thirds of the window at a time. The |
;;; 24-line window. That's two-thirds of the window at a time. The |
404 |
;;; EDT SECT commands moves the cursor, not the window. |
;;; EDT SECT commands moves the cursor, not the window. |
405 |
;;; |
;;; |
406 |
;;; This emulation of EDT's SECT moves the cursor approximately |
;;; This emulation of EDT's SECT moves the cursor approximately |
407 |
;;; two-thirds of the current window at a time. |
;;; two-thirds of the current window at a time. |
408 |
|
|
491 |
;;; This one is a tad messy. To emulate EDT's behavior everywhere in |
;;; This one is a tad messy. To emulate EDT's behavior everywhere in |
492 |
;;; the file (beginning of file, end of file, beginning of line, end |
;;; the file (beginning of file, end of file, beginning of line, end |
493 |
;;; of line, etc.) it takes a bit of special handling. |
;;; of line, etc.) it takes a bit of special handling. |
494 |
;;; |
;;; |
495 |
;;; The variable edt-word-entities contains a list of characters which |
;;; The variable edt-word-entities contains a list of characters which |
496 |
;;; are to be viewed as distinct words where ever they appear in the |
;;; are to be viewed as distinct words where ever they appear in the |
497 |
;;; buffer. This emulates the EDT line mode command SET ENTITY WORD. |
;;; buffer. This emulates the EDT line mode command SET ENTITY WORD. |
729 |
(if (equal edt-direction-string edt-forward-string) |
(if (equal edt-direction-string edt-forward-string) |
730 |
(edt-find-forward t) |
(edt-find-forward t) |
731 |
(edt-find-backward t))) |
(edt-find-backward t))) |
732 |
|
|
733 |
|
|
734 |
;;; |
;;; |
735 |
;;; FNDNXT |
;;; FNDNXT |
798 |
(if (equal edt-direction-string edt-forward-string) |
(if (equal edt-direction-string edt-forward-string) |
799 |
(edt-find-next-forward) |
(edt-find-next-forward) |
800 |
(edt-find-next-backward))) |
(edt-find-next-backward))) |
801 |
|
|
802 |
;;; |
;;; |
803 |
;;; APPEND |
;;; APPEND |
804 |
;;; |
;;; |
1008 |
(defun edt-substitute (num) |
(defun edt-substitute (num) |
1009 |
"Replace the selected region with the contents of the CUT buffer and. |
"Replace the selected region with the contents of the CUT buffer and. |
1010 |
Repeat the most recent FIND command. (The Emacs kill ring is used as |
Repeat the most recent FIND command. (The Emacs kill ring is used as |
1011 |
the CUT buffer.) |
the CUT buffer.) |
1012 |
Argument NUM is the repeat count. A positive value indicates the of times |
Argument NUM is the repeat count. A positive value indicates the of times |
1013 |
to repeat the substitution. A negative argument means replace all occurances |
to repeat the substitution. A negative argument means replace all occurrences |
1014 |
of the search text." |
of the search text." |
1015 |
(interactive "p") |
(interactive "p") |
1016 |
(cond ((or edt-select-mode (edt-check-match)) |
(cond ((or edt-select-mode (edt-check-match)) |
1087 |
(exit-minibuffer)) |
(exit-minibuffer)) |
1088 |
(if edt-x-emacs19-p (setq zmacs-region-stays t))) |
(if edt-x-emacs19-p (setq zmacs-region-stays t))) |
1089 |
|
|
1090 |
|
|
1091 |
;;; |
;;; |
1092 |
;;; BACKUP |
;;; BACKUP |
1093 |
;;; |
;;; |
1205 |
Argument NUM is the prefix value tested." |
Argument NUM is the prefix value tested." |
1206 |
(if (<= num 0) |
(if (<= num 0) |
1207 |
(error "Prefix must be positive"))) |
(error "Prefix must be positive"))) |
1208 |
|
|
1209 |
;;; |
;;; |
1210 |
;;; Check Selection |
;;; Check Selection |
1211 |
;;; |
;;; |
1277 |
;;;; ENHANCEMENTS AND ADDITIONS FOR EDT KEYPAD MODE |
;;;; ENHANCEMENTS AND ADDITIONS FOR EDT KEYPAD MODE |
1278 |
;;;; |
;;;; |
1279 |
|
|
1280 |
;;; |
;;; |
1281 |
;;; Several enhancements and additions to EDT keypad mode commands are |
;;; Several enhancements and additions to EDT keypad mode commands are |
1282 |
;;; provided here. Some of these have been motivated by similar |
;;; provided here. Some of these have been motivated by similar |
1283 |
;;; TPU/EVE and EVE-Plus commands. Others are new. |
;;; TPU/EVE and EVE-Plus commands. Others are new. |
1818 |
(save-buffer) |
(save-buffer) |
1819 |
(save-buffers-kill-emacs)) |
(save-buffers-kill-emacs)) |
1820 |
|
|
1821 |
;;; |
;;; |
1822 |
;;; QUIT |
;;; QUIT |
1823 |
;;; |
;;; |
1824 |
|
|
1836 |
(kill-emacs) |
(kill-emacs) |
1837 |
(setq working nil))) |
(setq working nil))) |
1838 |
(setq list (cdr list)))) |
(setq list (cdr list)))) |
1839 |
(if working (kill-emacs)))) |
(if working (kill-emacs)))) |
1840 |
|
|
1841 |
;;; |
;;; |
1842 |
;;; SPLIT WINDOW |
;;; SPLIT WINDOW |
1843 |
;;; |
;;; |
1844 |
|
|
2024 |
;;; Function used to load LK-201 key mapping file generated by edt-mapper.el. |
;;; Function used to load LK-201 key mapping file generated by edt-mapper.el. |
2025 |
;;; |
;;; |
2026 |
(defun edt-load-keys (file) |
(defun edt-load-keys (file) |
2027 |
"Load the LK-201 key mapping FILE generated by edt-mapper.el. |
"Load the LK-201 key mapping FILE generated by edt-mapper.el. |
2028 |
If FILE is nil, which is the normal case, try to load a default file. |
If FILE is nil, which is the normal case, try to load a default file. |
2029 |
The default file names are based upon the window system, terminal |
The default file names are based upon the window system, terminal |
2030 |
type, and version of Emacs in use: GNU Emacs or XEmacs (aka Lucid |
type, and version of Emacs in use: GNU Emacs or XEmacs (aka Lucid |
2042 |
"~/.edt-" edt-emacs-variant |
"~/.edt-" edt-emacs-variant |
2043 |
(if edt-term (concat "-" edt-term)) |
(if edt-term (concat "-" edt-term)) |
2044 |
(if edt-xserver (concat "-" edt-xserver)) |
(if edt-xserver (concat "-" edt-xserver)) |
2045 |
(if edt-window-system |
(if edt-window-system |
2046 |
(concat "-" (upcase (symbol-name edt-window-system)))) |
(concat "-" (upcase (symbol-name edt-window-system)))) |
2047 |
"-keys"))))) |
"-keys"))))) |
2048 |
(cond ((file-readable-p file) |
(cond ((file-readable-p file) |
2053 |
(insert " |
(insert " |
2054 |
|
|
2055 |
Ack!! You're running the Enhanced EDT Emulation without loading an |
Ack!! You're running the Enhanced EDT Emulation without loading an |
2056 |
EDT key mapping file. To create an EDT key mapping file, run the |
EDT key mapping file. To create an EDT key mapping file, run the |
2057 |
edt-mapper.el program. It is safest to run it from an Emacs loaded |
edt-mapper.el program. It is safest to run it from an Emacs loaded |
2058 |
without any of your own customizations found in your .emacs file, etc. |
without any of your own customizations found in your .emacs file, etc. |
2059 |
The reason for this is that some user customizations confuse edt-mapper. |
The reason for this is that some user customizations confuse edt-mapper. |
2061 |
follows: |
follows: |
2062 |
|
|
2063 |
emacs -q -l edt-mapper.el |
emacs -q -l edt-mapper.el |
2064 |
|
|
2065 |
[NOTE: If you do nothing out of the ordinary in your .emacs file, and |
[NOTE: If you do nothing out of the ordinary in your .emacs file, and |
2066 |
the search for edt-mapper.el is successful, you can try running it now.] |
the search for edt-mapper.el is successful, you can try running it now.] |
2067 |
|
|
2412 |
'edt-key-not-assigned 'edt-key-not-assigned) |
'edt-key-not-assigned 'edt-key-not-assigned) |
2413 |
|
|
2414 |
;; Control key bindings: Regular and GOLD |
;; Control key bindings: Regular and GOLD |
2415 |
;; |
;; |
2416 |
;; Standard EDT control key bindings conflict with standard Emacs |
;; Standard EDT control key bindings conflict with standard Emacs |
2417 |
;; control key bindings. Normally, the standard Emacs control key |
;; control key bindings. Normally, the standard Emacs control key |
2418 |
;; bindings are left unchanged in the default EDT mode. However, if |
;; bindings are left unchanged in the default EDT mode. However, if |
2578 |
G-F9: Paste Rect Insert +----------+----------+----------+----------+ |
G-F9: Paste Rect Insert +----------+----------+----------+----------+ |
2579 |
F10: Cut Rectangle |
F10: Cut Rectangle |
2580 |
G-F10: Paste Rectangle |
G-F10: Paste Rectangle |
2581 |
F11: ESC |
F11: ESC |
2582 |
F12: Begining of Line +----------+----------+----------+----------+ |
F12: Begining of Line +----------+----------+----------+----------+ |
2583 |
G-F12: Delete Other Windows | GOLD | HELP | FNDNXT | DEL L | |
G-F12: Delete Other Windows | GOLD | HELP | FNDNXT | DEL L | |
2584 |
F13: Delete to Begin of Word | (PF1) | (PF2) | (PF3) | (PF4) | |
F13: Delete to Begin of Word | (PF1) | (PF2) | (PF3) | (PF4) | |
2600 |
C-t: Display the Time | (0) | (.) | SUBS | |
C-t: Display the Time | (0) | (.) | SUBS | |
2601 |
C-u: Delete to Begin of Line | Open Line | RESET | | |
C-u: Delete to Begin of Line | Open Line | RESET | | |
2602 |
C-v: Redraw Display +---------------------+----------+----------+ |
C-v: Redraw Display +---------------------+----------+----------+ |
2603 |
C-w: Set Screen Width 132 |
C-w: Set Screen Width 132 |
2604 |
C-z: Suspend Emacs +----------+----------+----------+ |
C-z: Suspend Emacs +----------+----------+----------+ |
2605 |
G-C-\\: Split Window | FNDNXT | Yank | CUT | |
G-C-\\: Split Window | FNDNXT | Yank | CUT | |
2606 |
| (FIND) | (INSERT) | (REMOVE) | |
| (FIND) | (INSERT) | (REMOVE) | |
2610 |
G-e: Exit | (SELECT) |(PREVIOUS)| (NEXT) | |
G-e: Exit | (SELECT) |(PREVIOUS)| (NEXT) | |
2611 |
G-f: Find File | | | | |
G-f: Find File | | | | |
2612 |
G-g: Find File Other Window +----------+----------+----------+ |
G-g: Find File Other Window +----------+----------+----------+ |
2613 |
G-h: Keypad Help |
G-h: Keypad Help |
2614 |
G-i: Insert File |
G-i: Insert File |
2615 |
G-k: Toggle Capitalization Word |
G-k: Toggle Capitalization Word |
2616 |
G-l: Downcase Region |
G-l: Downcase Region |
2617 |
G-m: Save Some Buffers |
G-m: Save Some Buffers |
2618 |
G-n: Next Error |
G-n: Next Error |
2619 |
G-o: Switch to Next Window |
G-o: Switch to Next Window |
2620 |
G-q: Quit |
G-q: Quit |
2621 |
G-r: Revert File |
G-r: Revert File |
2622 |
G-s: Save Buffer |
G-s: Save Buffer |
2623 |
G-u: Upcase Region |
G-u: Upcase Region |
2624 |
G-v: Find File Other Window |
G-v: Find File Other Window |
2625 |
G-w: Write file |
G-w: Write file |
2626 |
G-y: EDT Emulation OFF |
G-y: EDT Emulation OFF |
2627 |
G-z: Switch to User EDT Key Bindings |
G-z: Switch to User EDT Key Bindings |
2628 |
G-1: Delete Other Windows |
G-1: Delete Other Windows |
2629 |
G-2: Split Window |
G-2: Split Window |
2630 |
G-%: Go to Percentage |
G-%: Go to Percentage |
2631 |
G- : Undo (GOLD Spacebar) |
G- : Undo (GOLD Spacebar) |
2632 |
G-=: Go to Line |
G-=: Go to Line |
2633 |
G-`: What line |
G-`: What line |
2634 |
G-/: Query-Replace" |
G-/: Query-Replace" |
2635 |
|
|