aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorEric S. Raymond1992-07-16 21:47:34 +0000
committerEric S. Raymond1992-07-16 21:47:34 +0000
commite516799970be4553edae8ca46d5f64852befec77 (patch)
treed43d904ac4a87a1be2f4c0375b3f70928f952cf1 /lisp/emulation
parentde49a6d37ea9c3111763e38df15e50a7fb9fa5c5 (diff)
downloademacs-e516799970be4553edae8ca46d5f64852befec77.tar.gz
emacs-e516799970be4553edae8ca46d5f64852befec77.zip
*** empty log message ***
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/edt.el31
-rw-r--r--lisp/emulation/mlconvert.el7
-rw-r--r--lisp/emulation/mlsupport.el6
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)))