diff options
Diffstat (limited to 'lisp/emulation/edt.el')
| -rw-r--r-- | lisp/emulation/edt.el | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 8d60eeeb347..58874fd94aa 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -20,6 +20,113 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; From mike@yetti.UUCP Fri Aug 29 12:49:28 1986 +;; Path: yetti!mike@uunet.uu.net +;; From: mike@yetti.UUCP (Mike Clarkson ) +;; Newsgroups: net.sources +;; Subject: Gnu Emacs EDT Emulation - Introduction - 1/3 +;; Date: 27 Aug 86 23:30:33 GMT +;; Reply-To: mike@yetti.UUCP (Mike Clarkson ) +;; Organization: York University Computer Science +;; +;; Here's my EDT emulation for GNU Emacs that is based on the EDT emulation +;; for Gosling's Emacs sent out on the net a couple of years ago by Lynn Olson +;; at Tektronics. This emulation was widely distributed as the file edt.ml +;; in the maclib directory of most Emacs distributions. +;; +;; My emulation consists of two files: edt.el and edtdoc.el. The edtdoc.el +;; file is the documentation, that you can add to the beginning of edt.el if +;; you want. I have split them because I have been loading the edt.el file a +;; lot during debugging. +;; +;; I will gladly take all criticisms and complaints to heart, and will fix what +;; bugs I can find. As this is my first elisp hack, you may have to root out a +;; few nasties hidden in the code. Please let me know if you find any (sorry, +;; no rewards :-). I would also be interested if there are better, cleaner, +;; faster ways of doing some of the things that I have done. +;; +;; You must understand some design considerations that I had in mind. +;; The intention was not really to "emulate" EDT, but rather to take advantage +;; of the years of EDT experience that had accumulated in my right hand, +;; while at the same time taking advantage of EMACS. +;; +;; Some major differences are: +;; +;; HELP is describe-key; +;; GOLD/HELP is describe-function; +;; FIND is isearch-forward/backward; +;; GOLD/HELP is occur-menu, which finds all instances of a search string; +;; ENTER is other-window; +;; SUBS is subprocess-command. Note that you have to change this +;; to `shell' if you are running Un*x; +;; PAGE is next-paragraph, because that's more useful than page. +;; SPECINS is copy-to-killring; +;; GOLD/GOLD is mark-section-wisely, which is my command to mark the +;; section in a manner consistent with the major-mode. It +;; uses mark-defun for emacs-lisp, lisp, mark-c-function for C, +;; and mark-paragraph for other modes. +;; +;; +;; Some subtle differences are: +;; +;; APPEND is append-to-buffer. One doesn't append to the kill ring +;; much and SPECINS is now copy-to-killring; +;; REPLACE is replace-regexp; +;; FILL is fill-region-wisely, which uses indent-region for C, lisp +;; emacs-lisp, and fill-region for others. It asks if you +;; really want to fill-region in TeX-mode, because I find this +;; to be very dangerous. +;; CHNGCASE is case-flip for the character under the cursor only. +;; I felt that case-flip region is unlikely, as usually you +;; upcase-region or downcase region. Also, unlike EDT it +;; is independent of the direction you are going, as that +;; drives me nuts. +;; +;; I use Emacs definition of what a word is. This is considerably different +;; from what EDT thinks a word is. This is not good for dyed-in-the-wool EDT +;; fans, but is probably preferable for experienced Emacs users. My assumption +;; is that the former are a dying breed now that GNU Emacs has made it to VMS, +;; but let me know how you feel. Also, when you undelete a word it leave the +;; point at the end of the undeleted text, rather than the beginning. I might +;; change this as I'm not sure if I like this or not. I'm also not sure if I +;; want it to set the mark each time you delete a character or word. +;; +;; Backspace does not invoke beginning-of-line, because ^H is the help prefix, +;; and I felt it should be left as such. You can change this if you like. +;; +;; The ADVANCE and BACKUP keys do not work as terminators for forward or +;; backward searches. In Emacs, all search strings are terminated by return. +;; The searches will however go forward or backward depending on your current +;; direction. Also, when you change directions, the mode line will not be +;; updated immediately, but only when you next execute an emacs function. +;; Personally, I consider this to be a bug, not a feature. +;; +;; This should also work with VT-2xx's, though I haven't tested it extensively +;; on those terminals. It assumes that the CSI-map of vt_200.el has been +;; defined. +;; +;; There are also a whole bunch of GOLD letter, and GOLD character bindings: +;; look at edtdoc.el for them, or better still, look at the edt.el lisp code, +;; because after all, in the true Lisp tradition, the source code is *assumed* +;; to be self-documenting :-) +;; +;; Mike Clarkson, ...!allegra \ BITNET: mike@YUYETTI or +;; CRESS, York University, ...!decvax \ SYMALG@YUSOL +;; 4700 Keele Street, ...!ihnp4 > !utzoo!yetti!mike +;; North York, Ontario, ...!linus / +;; CANADA M3J 1P3. ...!watmath / Phone: +1 (416) 736-2100 x 7767 +;; +;; Note that I am not on ARPA, and must gateway any ARPA mail through BITNET or +;; UUCP. If you have a UUCP or BITNET address please use it for communication +;; so that I can reach you directly. If you have both, the BITNET address +;; is preferred. +;; -- +;; Mike Clarkson, ...!allegra \ BITNET: mike@YUYETTI or +;; CRESS, York University, ...!decvax \ SYMALG@YUSOL +;; 4700 Keele Street, ...!ihnp4 > !utzoo!yetti!mike +;; North York, Ontario, ...!linus / +;; CANADA M3J 1P3. ...!watmath / Phone: +1 (416) 737-2100 x 7767 + (require 'keypad) (defvar edt-last-deleted-lines "" |