*** empty log message ***

[bpt/emacs.git] / lisp / medit.el

diff --git a/lisp/medit.el b/lisp/medit.el
index d42e67a..985c9b2 100644 (file)
--- a/lisp/medit.el
+++ b/lisp/medit.el
@@ -1,12 +1,16 @@
-;; Lisp interface between GNU Emacs and MEDIT package. Emacs under MDL.
+;;; medit.el --- front-end to the MEDIT package for editing MDL
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
+
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Keywords: languages
 
 ;; 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,
@@ -18,10 +22,13 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ;; >> This package depends on two MDL packages: MEDIT and FORKS which
 ;; >> can be obtained from the public (network) library at mit-ajax.
 
+;;; Code:
+
 (require 'mim-mode)
 
 (defconst medit-zap-file (concat "/tmp/" (user-login-name) ".medit.mud")
@@ -40,7 +47,7 @@
        (forward-mim-object 1)
        (append-to-buffer medit-buffer start (point))
        (goto-char start)
-       (message (buffer-substring start (progn (end-of-line) (point)))))))
+       (message "%s" (buffer-substring start (progn (end-of-line) (point)))))))
 
 (defun medit-save-region (start end)
   "Mark the current region to be sent to back to MDL."
@@ -56,21 +63,21 @@
 
 (defun medit-zap-define-to-mdl ()
   "Return to MDL with surrounding or previous toplevel MDL object."
-  (indetarctive)
-  (medit-save-defun)
-  (medit-go-to-mdl))
+  (interactive)
+  (medit-save-define)
+  (medit-goto-mdl))
 
 (defun medit-zap-region-mdl (start end)
   "Return to MDL with current region."
   (interactive)
   (medit-save-region start end)
-  (medit-go-to-mdl))
+  (medit-goto-mdl))
 
 (defun medit-zap-buffer ()
   "Return to MDL with current buffer."
   (interactive)
   (medit-save-buffer)
-  (medit-go-to-mdl))
+  (medit-goto-mdl))
 
 (defun medit-goto-mdl ()
   "Return from Emacs to superior MDL, sending saved code.
@@ -113,4 +120,4 @@ Like Mim mode, plus these special commands:
 
 (mim-mode)
 
-
+;;; medit.el ends here