entered into RCS

[bpt/emacs.git] / lisp / emulation / mlsupport.el

diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el
index 14e7a3c..3cbe0b0 100644 (file)
--- a/lisp/emulation/mlsupport.el
+++ b/lisp/emulation/mlsupport.el
@@ -1,11 +1,15 @@
-;; Run-time support for mocklisp code.
+;;; mlsupport.el --- run-time support for mocklisp code.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: extensions
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -17,8 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-
-(provide 'mlsupport)
+;;; Code:
 
 (defmacro ml-defun (&rest defs)
   (list 'ml-defun-1 (list 'quote defs)))
@@ -403,3 +406,7 @@
     (if (< from 0) (setq from (+ from length)))
     (if (< to 0) (setq to (+ to length)))
     (substring string from (+ from to))))
+
+(provide 'mlsupport)
+
+;;; mlsupport.el ends here