diff options
| author | Eric S. Raymond | 1992-07-16 21:47:34 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 1992-07-16 21:47:34 +0000 |
| commit | e516799970be4553edae8ca46d5f64852befec77 (patch) | |
| tree | d43d904ac4a87a1be2f4c0375b3f70928f952cf1 /lisp/emulation | |
| parent | de49a6d37ea9c3111763e38df15e50a7fb9fa5c5 (diff) | |
| download | emacs-e516799970be4553edae8ca46d5f64852befec77.tar.gz emacs-e516799970be4553edae8ca46d5f64852befec77.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/edt.el | 31 | ||||
| -rw-r--r-- | lisp/emulation/mlconvert.el | 7 | ||||
| -rw-r--r-- | lisp/emulation/mlsupport.el | 6 |
3 files changed, 21 insertions, 23 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 589f7418bf6..15a45251f53 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el | |||
| @@ -1,5 +1,10 @@ | |||
| 1 | ;;; edt.el --- EDT emulation in Emacs | 1 | ;;; edt.el --- EDT emulation in Emacs |
| 2 | 2 | ||
| 3 | ;; Author: Mike Clarkson <mike@yetti.UUCP> | ||
| 4 | ;; Maintainer: FSF | ||
| 5 | ;; Created: 27 Aug 1986 | ||
| 6 | ;; Last-Modified: 09 May 1991 | ||
| 7 | |||
| 3 | ;; Copyright (C) 1986 Free Software Foundation, Inc. | 8 | ;; Copyright (C) 1986 Free Software Foundation, Inc. |
| 4 | ;; It started from public domain code by Mike Clarkson | 9 | ;; It started from public domain code by Mike Clarkson |
| 5 | ;; but has been greatly altered. | 10 | ;; but has been greatly altered. |
| @@ -8,7 +13,7 @@ | |||
| 8 | 13 | ||
| 9 | ;; GNU Emacs is free software; you can redistribute it and/or modify | 14 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 10 | ;; it under the terms of the GNU General Public License as published by | 15 | ;; it under the terms of the GNU General Public License as published by |
| 11 | ;; the Free Software Foundation; either version 1, or (at your option) | 16 | ;; the Free Software Foundation; either version 2, or (at your option) |
| 12 | ;; any later version. | 17 | ;; any later version. |
| 13 | 18 | ||
| 14 | ;; GNU Emacs is distributed in the hope that it will be useful, | 19 | ;; GNU Emacs is distributed in the hope that it will be useful, |
| @@ -20,25 +25,13 @@ | |||
| 20 | ;; along with GNU Emacs; see the file COPYING. If not, write to | 25 | ;; along with GNU Emacs; see the file COPYING. If not, write to |
| 21 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 26 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
| 22 | 27 | ||
| 23 | ;; From mike@yetti.UUCP Fri Aug 29 12:49:28 1986 | 28 | ;;; Commentary: |
| 24 | ;; Path: yetti!mike@uunet.uu.net | 29 | |
| 25 | ;; From: mike@yetti.UUCP (Mike Clarkson ) | ||
| 26 | ;; Newsgroups: net.sources | ||
| 27 | ;; Subject: Gnu Emacs EDT Emulation - Introduction - 1/3 | ||
| 28 | ;; Date: 27 Aug 86 23:30:33 GMT | ||
| 29 | ;; Reply-To: mike@yetti.UUCP (Mike Clarkson ) | ||
| 30 | ;; Organization: York University Computer Science | ||
| 31 | ;; | ||
| 32 | ;; Here's my EDT emulation for GNU Emacs that is based on the EDT emulation | 30 | ;; Here's my EDT emulation for GNU Emacs that is based on the EDT emulation |
| 33 | ;; for Gosling's Emacs sent out on the net a couple of years ago by Lynn Olson | 31 | ;; for Gosling's Emacs sent out on the net a couple of years ago by Lynn Olson |
| 34 | ;; at Tektronics. This emulation was widely distributed as the file edt.ml | 32 | ;; at Tektronics. This emulation was widely distributed as the file edt.ml |
| 35 | ;; in the maclib directory of most Emacs distributions. | 33 | ;; in the maclib directory of most Emacs distributions. |
| 36 | ;; | 34 | ;; |
| 37 | ;; My emulation consists of two files: edt.el and edtdoc.el. The edtdoc.el | ||
| 38 | ;; file is the documentation, that you can add to the beginning of edt.el if | ||
| 39 | ;; you want. I have split them because I have been loading the edt.el file a | ||
| 40 | ;; lot during debugging. | ||
| 41 | ;; | ||
| 42 | ;; I will gladly take all criticisms and complaints to heart, and will fix what | 35 | ;; I will gladly take all criticisms and complaints to heart, and will fix what |
| 43 | ;; bugs I can find. As this is my first Emacs Lisp hack, you may have to root | 36 | ;; bugs I can find. As this is my first Emacs Lisp hack, you may have to root |
| 44 | ;; out a few nasties hidden in the code. Please let me know if you find any | 37 | ;; out a few nasties hidden in the code. Please let me know if you find any |
| @@ -120,12 +113,8 @@ | |||
| 120 | ;; UUCP. If you have a UUCP or BITNET address please use it for communication | 113 | ;; UUCP. If you have a UUCP or BITNET address please use it for communication |
| 121 | ;; so that I can reach you directly. If you have both, the BITNET address | 114 | ;; so that I can reach you directly. If you have both, the BITNET address |
| 122 | ;; is preferred. | 115 | ;; is preferred. |
| 123 | ;; -- | 116 | |
| 124 | ;; Mike Clarkson, ...!allegra \ BITNET: mike@YUYETTI or | 117 | ;;; Code: |
| 125 | ;; CRESS, York University, ...!decvax \ SYMALG@YUSOL | ||
| 126 | ;; 4700 Keele Street, ...!ihnp4 > !utzoo!yetti!mike | ||
| 127 | ;; North York, Ontario, ...!linus / | ||
| 128 | ;; CANADA M3J 1P3. ...!watmath / Phone: +1 (416) 737-2100 x 7767 | ||
| 129 | 118 | ||
| 130 | (require 'keypad) | 119 | (require 'keypad) |
| 131 | 120 | ||
diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el index ec6d93eb4a1..e1609a8748c 100644 --- a/lisp/emulation/mlconvert.el +++ b/lisp/emulation/mlconvert.el | |||
| @@ -1,12 +1,15 @@ | |||
| 1 | ;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp. | 1 | ;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp. |
| 2 | 2 | ||
| 3 | ;; Maintainer: FSF | ||
| 4 | ;; Last-Modified: 09 May 1991 | ||
| 5 | |||
| 3 | ;; Copyright (C) 1985 Free Software Foundation, Inc. | 6 | ;; Copyright (C) 1985 Free Software Foundation, Inc. |
| 4 | 7 | ||
| 5 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| 6 | 9 | ||
| 7 | ;; GNU Emacs is free software; you can redistribute it and/or modify | 10 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 8 | ;; it under the terms of the GNU General Public License as published by | 11 | ;; it under the terms of the GNU General Public License as published by |
| 9 | ;; the Free Software Foundation; either version 1, or (at your option) | 12 | ;; the Free Software Foundation; either version 2, or (at your option) |
| 10 | ;; any later version. | 13 | ;; any later version. |
| 11 | 14 | ||
| 12 | ;; GNU Emacs is distributed in the hope that it will be useful, | 15 | ;; GNU Emacs is distributed in the hope that it will be useful, |
| @@ -18,6 +21,8 @@ | |||
| 18 | ;; along with GNU Emacs; see the file COPYING. If not, write to | 21 | ;; along with GNU Emacs; see the file COPYING. If not, write to |
| 19 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 22 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
| 20 | 23 | ||
| 24 | ;;; Code: | ||
| 25 | |||
| 21 | ;;;###autoload | 26 | ;;;###autoload |
| 22 | (defun convert-mocklisp-buffer () | 27 | (defun convert-mocklisp-buffer () |
| 23 | "Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." | 28 | "Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." |
diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el index 65af46a309e..7023662e764 100644 --- a/lisp/emulation/mlsupport.el +++ b/lisp/emulation/mlsupport.el | |||
| @@ -1,12 +1,15 @@ | |||
| 1 | ;;; mlsupport.el --- run-time support for mocklisp code. | 1 | ;;; mlsupport.el --- run-time support for mocklisp code. |
| 2 | 2 | ||
| 3 | ;; Maintainer: FSF | ||
| 4 | ;; Last-Modified: 16 Mar 1992 | ||
| 5 | |||
| 3 | ;; Copyright (C) 1985 Free Software Foundation, Inc. | 6 | ;; Copyright (C) 1985 Free Software Foundation, Inc. |
| 4 | 7 | ||
| 5 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| 6 | 9 | ||
| 7 | ;; GNU Emacs is free software; you can redistribute it and/or modify | 10 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 8 | ;; it under the terms of the GNU General Public License as published by | 11 | ;; it under the terms of the GNU General Public License as published by |
| 9 | ;; the Free Software Foundation; either version 1, or (at your option) | 12 | ;; the Free Software Foundation; either version 2, or (at your option) |
| 10 | ;; any later version. | 13 | ;; any later version. |
| 11 | 14 | ||
| 12 | ;; GNU Emacs is distributed in the hope that it will be useful, | 15 | ;; GNU Emacs is distributed in the hope that it will be useful, |
| @@ -18,6 +21,7 @@ | |||
| 18 | ;; along with GNU Emacs; see the file COPYING. If not, write to | 21 | ;; along with GNU Emacs; see the file COPYING. If not, write to |
| 19 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 22 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
| 20 | 23 | ||
| 24 | ;;; Code: | ||
| 21 | 25 | ||
| 22 | (defmacro ml-defun (&rest defs) | 26 | (defmacro ml-defun (&rest defs) |
| 23 | (list 'ml-defun-1 (list 'quote defs))) | 27 | (list 'ml-defun-1 (list 'quote defs))) |