|
0
|
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)))
|
