Mercurial > hg > xemacs-beta

comparison lisp/emulators/edt.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children b82b59fe008d
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;; edt.el --- EDT emulation in Emacs
2 ;; Keywords: emulations
3
4 ;; Copyright (C) 1986 Free Software Foundation, Inc.
5 ;; It started from public domain code by Mike Clarkson
6 ;; but has been greatly altered.
7
8 ;; This file is part of XEmacs.
9
10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23
24
25 ;; From mike@yetti.UUCP Fri Aug 29 12:49:28 1986
26 ;; Path: mit-prep!mit-hermes!mit-eddie!genrad!panda!husc6!seismo!mnetor!yetti!mike
27 ;; From: mike@yetti.UUCP (Mike Clarkson )
28 ;; Newsgroups: net.sources
29 ;; Subject: Gnu Emacs EDT Emulation - Introduction - 1/3
30 ;; Date: 27 Aug 86 23:30:33 GMT
31 ;; Reply-To: mike@yetti.UUCP (Mike Clarkson )
32 ;; Organization: York University Computer Science
33 ;;
34 ;; Here's my EDT emulation for GNU Emacs that is based on the EDT emulation
35 ;; for Gosling's Emacs sent out on the net a couple of years ago by Lynn Olson
36 ;; at Tektronics. This emulation was widely distributed as the file edt.ml
37 ;; in the maclib directory of most Emacs distributions.
38 ;;
39 ;; My emulation consists of two files: edt.el and edtdoc.el. The edtdoc.el file
40 ;; is the documentation, that you can add to the beginning of edt.el if you
41 ;; want. I have split them because I have been loading the edt.el file a lot
42 ;; during debugging.
43 ;;
44 ;; I will gladly take all criticisms and complaints to heart, and will fix
45 ;; what bugs I can find. As this is my first elisp hack, you may have to
46 ;; root out a few nasties hidden in the code. Please let me know if you
47 ;; find any (sorry,
48 ;; no rewards :-). I would also be interested if there are better,
49 ;; cleaner, faster ways of doing some of the things that I have done.
50 ;;
51 ;; You must understand some design considerations that I had in mind.
52 ;; The intention was not really to "emulate" EDT, but rather to take advantage
53 ;; of the years of EDT experience that had accumulated in my right hand,
54 ;; while at the same time taking advantage of EMACS.
55 ;;
56 ;; Some major differences are:
57 ;;
58 ;; HELP is describe-key;
59 ;; GOLD/HELP is describe-function;
60 ;; FIND is isearch-forward/backward;
61 ;; GOLD/HELP is occur-menu, which finds all occurrences of a search string;
62 ;; ENTER is other-window;
63 ;; SUBS is subprocess-command. Note that you will have to change this
64 ;; yourself to shell if you are running Un*x;
65 ;; PAGE is next-paragraph, because that's more useful than page.
66 ;; SPECINS is copy-to-killring;
67 ;; GOLD/GOLD is mark-section-wisely, which is my command to mark the
68 ;; section in a manner consistent with the major-mode. It
69 ;; uses mark-defun for emacs-lisp, lisp, mark-c-function for C,
70 ;; and mark-paragraph for other modes.
71 ;;
72 ;;
73 ;; Some subtle differences are:
74 ;;
75 ;; APPEND is append-to-buffer. One doesn't append to the kill ring much
76 ;; and SPECINS is now copy-to-killring;
77 ;; REPLACE is replace-regexp;
78 ;; FILL is fill-region-wisely, which uses indent-region for C, lisp
79 ;; emacs-lisp, and fill-region for others. It asks if you really
80 ;; want to fill-region in TeX-mode, because I find this to be
81 ;; very dangerous.
82 ;; CHNGCASE is case-flip for the character under the cursor only.
83 ;; I felt that case-flip region is unlikely, as usually you
84 ;; upcase-region or downcase region. Also, unlike EDT it
85 ;; is independent of the direction you are going, as that
86 ;; drives me nuts.
87 ;;
88 ;; I use Emacs definition of what a word is. This is considerably different from
89 ;; what EDT thinks a word is. This is not good for dyed-in-the-wool EDT fans,
90 ;; but is probably preferable for experienced Emacs users. My assumption is that
91 ;; the former are a dying breed now that GNU Emacs has made it to VMS, but let me
92 ;; know how you feel. Also, when you undelete a word it leave the point at the
93 ;; end of the undeleted text, rather than the beginning. I might change this
94 ;; as I'm not sure if I like this or not. I'm also not sure if I want it to
95 ;; set the mark each time you delete a character or word.
96 ;;
97 ;; Backspace does not invoke beginning-of-line, because ^H is the help prefix,
98 ;; and I felt it should be left as such. You can change this if you like.
99 ;;
100 ;; The ADVANCE and BACKUP keys do not work as terminators for forward or
101 ;; backward searches. In Emacs, all search strings are terminated by return.
102 ;; The searches will however go forward or backward depending on your current
103 ;; direction. Also, when you change directions, the mode line will not be
104 ;; updated immediately, but only when you next execute an emacs function.
105 ;; Personally, I consider this to be a bug, not a feature.
106 ;;
107 ;; This should also work with VT-2xx's, though I haven't tested it extensively
108 ;; on those terminals. It assumes that the CSI-map of vt_200.el has been defined.
109 ;;
110 ;; There are also a whole bunch of GOLD letter, and GOLD character bindings:
111 ;; look at edtdoc.el for them, or better still, look at the edt.el lisp code,
112 ;; because after all, in the true Lisp tradition, the source code is *assumed*
113 ;; to be self-documenting :-)
114 ;;
115 ;; Mike Clarkson, ...!allegra \ BITNET: mike@YUYETTI or
116 ;; CRESS, York University, ...!decvax \ SYMALG@YUSOL
117 ;; 4700 Keele Street, ...!ihnp4 > !utzoo!yetti!mike
118 ;; North York, Ontario, ...!linus /
119 ;; CANADA M3J 1P3. ...!watmath / Phone: +1 (416) 736-2100 x 7767
120 ;;
121 ;; Note that I am not on ARPA, and must gateway any ARPA mail through BITNET or
122 ;; UUCP. If you have a UUCP or BITNET address please use it for communication
123 ;; so that I can reach you directly. If you have both, the BITNET address
124 ;; is preferred.
125 ;; --
126 ;; Mike Clarkson, ...!allegra \ BITNET: mike@YUYETTI or
127 ;; CRESS, York University, ...!decvax \ SYMALG@YUSOL
128 ;; 4700 Keele Street, ...!ihnp4 > !utzoo!yetti!mike
129 ;; North York, Ontario, ...!linus /
130 ;; CANADA M3J 1P3. ...!watmath / Phone: +1 (416) 737-2100 x 7767
131
132
133 (require 'keypad)
134
135 (defvar edt-last-deleted-lines ""
136 "Last text deleted by an EDT emulation line-delete command.")
137 (defvar edt-last-deleted-words ""
138 "Last text deleted by an EDT emulation word-delete command.")
139 (defvar edt-last-deleted-chars ""
140 "Last text deleted by an EDT emulation character-delete command.")
141
142 (defun delete-current-line (num)
143 "Delete one or specified number of lines after point.
144 This includes the newline character at the end of each line.
145 They are saved for the EDT undelete-lines command."
146 (interactive "p")
147 (let ((beg (point)))
148 (forward-line num)
149 (if (not (eq (preceding-char) ?\n))
150 (insert "\n"))
151 (setq edt-last-deleted-lines
152 (buffer-substring beg (point)))
153 (delete-region beg (point))))
154
155 (defun delete-to-eol (num)
156 "Delete text up to end of line.
157 With argument, delete up to to Nth line-end past point.
158 They are saved for the EDT undelete-lines command."
159 (interactive "p")
160 (let ((beg (point)))
161 (forward-char 1)
162 (end-of-line num)
163 (setq edt-last-deleted-lines
164 (buffer-substring beg (point)))
165 (delete-region beg (point))))
166
167 (defun delete-current-word (num)
168 "Delete one or specified number of words after point.
169 They are saved for the EDT undelete-words command."
170 (interactive "p")
171 (let ((beg (point)))
172 (forward-word num)
173 (setq edt-last-deleted-words
174 (buffer-substring beg (point)))
175 (delete-region beg (point))))
176
177 (defun edt-delete-previous-word (num)
178 "Delete one or specified number of words before point.
179 They are saved for the EDT undelete-words command."
180 (interactive "p")
181 (let ((beg (point)))
182 (forward-word (- num))
183 (setq edt-last-deleted-words
184 (buffer-substring (point) beg))
185 (delete-region beg (point))))
186
187 (defun delete-current-char (num)
188 "Delete one or specified number of characters after point.
189 They are saved for the EDT undelete-chars command."
190 (interactive "p")
191 (setq edt-last-deleted-chars
192 (buffer-substring (point) (min (point-max) (+ (point) num))))
193 (delete-region (point) (min (point-max) (+ (point) num))))
194
195 (defun delete-previous-char (num)
196 "Delete one or specified number of characters before point.
197 They are saved for the EDT undelete-chars command."
198 (interactive "p")
199 (setq edt-last-deleted-chars
200 (buffer-substring (max (point-min) (- (point) num)) (point)))
201 (delete-region (max (point-min) (- (point) num)) (point)))
202
203 (defun undelete-lines ()
204 "Yank lines deleted by last EDT line-deletion command."
205 (interactive)
206 (insert edt-last-deleted-lines))
207
208 (defun undelete-words ()
209 "Yank words deleted by last EDT word-deletion command."
210 (interactive)
211 (insert edt-last-deleted-words))
212
213 (defun undelete-chars ()
214 "Yank characters deleted by last EDT character-deletion command."
215 (interactive)
216 (insert edt-last-deleted-chars))
217
218 (defun next-end-of-line (num)
219 "Move to end of line; if at end, move to end of next line.
220 Accepts a prefix argument for the number of lines to move."
221 (interactive "p")
222 (forward-char)
223 (end-of-line num))
224
225 (defun previous-end-of-line (num)
226 "Move EOL upward.
227 Accepts a prefix argument for the number of lines to move."
228 (interactive "p")
229 (end-of-line (- 1 num)))
230
231 (defun forward-to-word (num)
232 "Move to next word-beginning, or to Nth following word-beginning."
233 (interactive "p")
234 (forward-word (1+ num))
235 (forward-word -1))
236
237 (defun backward-to-word (num)
238 "Move back to word-end, or to Nth word-end seen."
239 (interactive "p")
240 (forward-word (- (1+ num)))
241 (forward-word 1))
242
243 (defun backward-line (num)
244 "Move point to start of previous line.
245 Prefix argument serves as repeat-count."
246 (interactive "p")
247 (forward-line (- num)))
248
249 (defun scroll-window-down (num)
250 "Scroll the display down a window-full.
251 Accepts a prefix argument for the number of window-fulls to scroll."
252 (interactive "p")
253 (scroll-down (- (* (window-height) num) 2)))
254
255 (defun scroll-window-up (num)
256 "Scroll the display up a window-full.
257 Accepts a prefix argument for the number of window-fulls to scroll."
258 (interactive "p")
259 (scroll-up (- (* (window-height) num) 2)))
260
261 (defun next-paragraph (num)
262 "Move to beginning of the next indented paragraph.
263 Accepts a prefix argument for the number of paragraphs."
264 (interactive "p")
265 (while (> num 0)
266 (next-line 1)
267 (forward-paragraph)
268 (previous-line 1)
269 (if (eolp) (next-line 1))
270 (setq num (1- num))))
271
272 (defun previous-paragraph (num)
273 "Move to beginning of previous indented paragraph.
274 Accepts a prefix argument for the number of paragraphs."
275 (interactive "p")
276 (while (> num 0)
277 (backward-paragraph)
278 (previous-line 1)
279 (if (eolp) (next-line 1))
280 (setq num (1- num))))
281
282 (defun move-to-beginning ()
283 "Move cursor to the beginning of buffer, but don't set the mark."
284 (interactive)
285 (goto-char (point-min)))
286
287 (defun move-to-end ()
288 "Move cursor to the end of buffer, but don't set the mark."
289 (interactive)
290 (goto-char (point-max)))
291
292 (defun goto-percent (perc)
293 "Move point to ARG percentage of the buffer."
294 (interactive "NGoto-percentage: ")
295 (if (or (> perc 100) (< perc 0))
296 (error "Percentage %d out of range 0 < percent < 100" perc)
297 (goto-char (/ (* (point-max) perc) 100))))
298
299 (defun update-mode-line ()
300 "Make sure mode-line in the current buffer reflects all changes."
301 (set-buffer-modified-p (buffer-modified-p))
302 (sit-for 0))
303
304 (defun advance-direction ()
305 "Set EDT Advance mode so keypad commands move forward."
306 (interactive)
307 (setq edt-direction-string " ADVANCE")
308 (define-key function-keymap "\C-c" 'isearch-forward) ; PF3
309 (define-key function-keymap "8" 'scroll-window-up) ; "8"
310 (define-key function-keymap "7" 'next-paragraph) ; "7"
311 (define-key function-keymap "1" 'forward-to-word) ; "1"
312 (define-key function-keymap "2" 'next-end-of-line) ; "2"
313 (define-key function-keymap "3" 'forward-char) ; "3"
314 (define-key function-keymap "0" 'forward-line) ; "0"
315 (update-mode-line))
316
317 (defun backup-direction ()
318 "Set EDT Backup mode so keypad commands move backward."
319 (interactive)
320 (setq edt-direction-string " BACKUP")
321 (define-key function-keymap "\C-c" 'isearch-backward) ; PF3
322 (define-key function-keymap "8" 'scroll-window-down) ; "8"
323 (define-key function-keymap "7" 'previous-paragraph) ; "7"
324 (define-key function-keymap "1" 'backward-to-word) ; "1"
325 (define-key function-keymap "2" 'previous-end-of-line) ; "2"
326 (define-key function-keymap "3" 'backward-char) ; "3"
327 (define-key function-keymap "0" 'backward-line) ; "0"
328 (update-mode-line))
329
330 (defun edt-beginning-of-window ()
331 "Home cursor to top of window."
332 (interactive)
333 (move-to-window-line 0))
334
335 (defun edt-line-to-bottom-of-window ()
336 "Move the current line to the top of the window."
337 (interactive)
338 (recenter -1))
339
340 (defun edt-line-to-top-of-window ()
341 "Move the current line to the top of the window."
342 (interactive)
343 (recenter 0))
344
345 (defun case-flip-character (num)
346 "Change the case of the character under the cursor.
347 Accepts a prefix argument of the number of characters to invert."
348 (interactive "p")
349 (while (> num 0)
350 (funcall (if (<= ?a (following-char))
351 'upcase-region 'downcase-region)
352 (point) (1+ (point)))
353 (forward-char 1)
354 (setq num (1- num))))
355
356 (defun indent-or-fill-region ()
357 "Fill region in text modes, indent region in programming language modes."
358 (interactive)
359 (if (string= paragraph-start "^$\\|^ ")
360 (indent-region (point) (mark) nil)
361 (fill-region (point) (mark))))
362
363 (defun mark-section-wisely ()
364 "Mark the section in a manner consistent with the major-mode.
365 Uses mark-defun for emacs-lisp, lisp,
366 mark-c-function for C,
367 and mark-paragraph for other modes."
368 (interactive)
369 (cond ((eq major-mode 'emacs-lisp-mode)
370 (mark-defun))
371 ((eq major-mode 'lisp-mode)
372 (mark-defun))
373 ((eq major-mode 'c-mode)
374 (mark-c-function))
375 (t (mark-paragraph))))
376
377 ;;; Key Bindings
378 (defun edt-emulation-on ()
379 "Begin emulating DEC's EDT editor.
380 Certain keys are rebound; including nearly all keypad keys.
381 Use \\[edt-emulation-off] to undo all rebindings except the keypad keys.
382 Note that this function does not work if called directly from the .emacs file.
383 Instead, the .emacs file should do (setq term-setup-hook 'edt-emulation-on)
384 Then this function will be called at the time when it will work."
385 (interactive)
386 (advance-direction)
387 (edt-bind-gold-keypad) ;Must do this *after* $TERM.el is loaded
388 (setq edt-mode-old-c-\\ (lookup-key global-map "\C-\\"))
389 (global-set-key "\C-\\" 'quoted-insert)
390 (setq edt-mode-old-delete (lookup-key global-map "\177"))
391 (global-set-key "\177" 'delete-previous-char) ;"Delete"
392 (setq edt-mode-old-lisp-delete (lookup-key emacs-lisp-mode-map "\177"))
393 (define-key emacs-lisp-mode-map "\177" 'delete-previous-char) ;"Delete"
394 (define-key lisp-mode-map "\177" 'delete-previous-char) ;"Delete"
395 (setq edt-mode-old-linefeed (lookup-key global-map "\C-j"))
396 (global-set-key "\C-j" 'edt-delete-previous-word) ;"LineFeed"
397 (define-key esc-map "?" 'apropos)) ;"<ESC>?"
398
399 (defun edt-emulation-off ()
400 "Return from EDT emulation to normal Emacs key bindings.
401 The keys redefined by \\[edt-emulation-on] are given their old definitions."
402 (interactive)
403 (setq edt-direction-string nil)
404 (global-set-key "\C-\\" edt-mode-old-c-\\)
405 (global-set-key "\177" edt-mode-old-delete) ;"Delete"
406 (define-key emacs-lisp-mode-map "\177" edt-mode-old-lisp-delete) ;"Delete"
407 (define-key lisp-mode-map "\177" edt-mode-old-lisp-delete) ;"Delete"
408 (global-set-key "\C-j" edt-mode-old-linefeed)) ;"LineFeed"
409
410 (define-key function-keymap "u" 'previous-line) ;Up arrow
411 (define-key function-keymap "d" 'next-line) ;down arrow
412 (define-key function-keymap "l" 'backward-char) ;right arrow
413 (define-key function-keymap "r" 'forward-char) ;left arrow
414 (define-key function-keymap "h" 'edt-beginning-of-window) ;home
415 (define-key function-keymap "\C-b" 'describe-key) ;PF2
416 (define-key function-keymap "\C-d" 'delete-current-line);PF4
417 (define-key function-keymap "9" 'append-to-buffer) ;9 keypad key, etc.
418 (define-key function-keymap "-" 'delete-current-word)
419 (define-key function-keymap "4" 'advance-direction)
420 (define-key function-keymap "5" 'backup-direction)
421 (define-key function-keymap "6" 'kill-region)
422 (define-key function-keymap "," 'delete-current-char)
423 (define-key function-keymap "." 'set-mark-command)
424 (define-key function-keymap "e" 'other-window) ;enter key
425 (define-key function-keymap "\C-a" 'GOLD-prefix) ;PF1 ("gold")
426
427 (fset 'GOLD-prefix GOLD-map)
428
429 (defvar GOLD-map (make-keymap)
430 "GOLD-map maps the function keys on the VT100 keyboard preceeded
431 by the PF1 key. GOLD is the ASCII the 7-bit escape sequence <ESC>OP.")
432
433 (defun define-keypad-key (keymap function-keymap-slot definition)
434 (let ((function-key-sequence (function-key-sequence function-keymap-slot)))
435 (if function-key-sequence
436 (define-key keymap function-key-sequence definition))))
437
438 ;;Bind GOLD/Keyboard keys
439
440 (define-key GOLD-map "\C-g" 'keyboard-quit) ; just for safety
441 (define-key GOLD-map "\177" 'delete-window) ;"Delete"
442 (define-key GOLD-map "\C-h" 'delete-other-windows) ;"BackSpace"
443 (define-key GOLD-map "\C-m" 'newline-and-indent) ;"Return"
444 (define-key GOLD-map " " 'undo) ;"Spacebar"
445 (define-key GOLD-map "%" 'goto-percent) ; "%"
446 (define-key GOLD-map "=" 'goto-line) ; "="
447 (define-key GOLD-map "`" 'what-line) ; "`"
448 (define-key GOLD-map "\C-\\" 'split-window-vertically) ; "Control-\"
449
450 ; GOLD letter combinations:
451 (define-key GOLD-map "b" 'buffer-menu) ; "b"
452 (define-key GOLD-map "B" 'buffer-menu) ; "B"
453 (define-key GOLD-map "d" 'delete-window) ; "d"
454 (define-key GOLD-map "D" 'delete-window) ; "D"
455 (define-key GOLD-map "e" 'compile) ; "e"
456 (define-key GOLD-map "E" 'compile) ; "E"
457 (define-key GOLD-map "i" 'insert-file) ; "i"
458 (define-key GOLD-map "I" 'insert-file) ; "I"
459 (define-key GOLD-map "l" 'goto-line) ; "l"
460 (define-key GOLD-map "L" 'goto-line) ; "L"
461 (define-key GOLD-map "m" 'save-some-buffers) ; "m"
462 (define-key GOLD-map "M" 'save-some-buffers) ; "m"
463 (define-key GOLD-map "n" 'next-error) ; "n"
464 (define-key GOLD-map "N" 'next-error) ; "N"
465 (define-key GOLD-map "o" 'switch-to-buffer-other-window) ; "o"
466 (define-key GOLD-map "O" 'switch-to-buffer-other-window) ; "O"
467 (define-key GOLD-map "r" 'revert-file) ; "r"
468 (define-key GOLD-map "r" 'revert-file) ; "R"
469 (define-key GOLD-map "s" 'save-buffer) ; "s"
470 (define-key GOLD-map "S" 'save-buffer) ; "S"
471 (define-key GOLD-map "v" 'find-file-other-window) ; "v"
472 (define-key GOLD-map "V" 'find-file-other-window) ; "V"
473 (define-key GOLD-map "w" 'write-file) ; "w"
474 (define-key GOLD-map "w" 'write-file) ; "W"
475 ;(define-key GOLD-map "z" 'shrink-window) ; "z"
476 ;(define-key GOLD-map "Z" 'shrink-window) ; "z"
477
478 ;Bind GOLD/Keypad keys
479 (defun edt-bind-gold-keypad ()
480 (define-keypad-key GOLD-map ?u 'edt-line-to-top-of-window) ;"up-arrow"
481 (define-keypad-key GOLD-map ?d 'edt-line-to-bottom-of-window) ;"down-arrow"
482 (define-keypad-key GOLD-map ?l 'backward-sentence) ;"left-arrow"
483 (define-keypad-key GOLD-map ?r 'forward-sentence) ;"right-arrow"
484 (define-keypad-key GOLD-map ?\C-a 'mark-section-wisely) ;Gold "PF1"
485 (define-keypad-key GOLD-map ?\C-b 'describe-function) ;Help "PF2"
486 (define-keypad-key GOLD-map ?\C-c 'occur) ;Find "PF3"
487 (define-keypad-key GOLD-map ?\C-d 'undelete-lines) ;Und Line "PF4"
488 (define-keypad-key GOLD-map ?0 'open-line) ;Open L "0"
489 (define-keypad-key GOLD-map ?1 'case-flip-character) ;Chgcase "1"
490 (define-keypad-key GOLD-map ?2 'delete-to-eol) ;Del EOL "2"
491 (define-keypad-key GOLD-map ?3 'copy-region-as-kill) ;Copy "3"
492 (define-keypad-key GOLD-map ?4 'move-to-end) ;Bottom "4"
493 (define-keypad-key GOLD-map ?5 'move-to-beginning) ;Top "5"
494 (define-keypad-key GOLD-map ?6 'yank) ;Paste "6"
495 (define-keypad-key GOLD-map ?7 'execute-extended-command) ;Command "7"
496 (define-keypad-key GOLD-map ?8 'indent-or-fill-region) ;Fill "8"
497 (define-keypad-key GOLD-map ?9 'replace-regexp) ;Replace "9"
498 (define-keypad-key GOLD-map ?- 'undelete-words) ;UND word "-"
499 (define-keypad-key GOLD-map ?, 'undelete-chars) ;UND Char ","
500 (define-keypad-key GOLD-map ?. 'redraw-display) ;Reset Window "."
501 (define-keypad-key GOLD-map ?e 'shell-command)) ;"ENTER"
502
503 ;; Make direction of motion show in mode line
504 ;; while EDT emulation is turned on.
505 ;; Note that the keypad is always turned on when in Emacs.
506
507 (or (assq 'edt-direction-string minor-mode-alist)
508 (setq minor-mode-alist (cons '(edt-direction-string edt-direction-string)
509 minor-mode-alist)))