(hack-local-variables-prop-line): Bind enable-local-eval.

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

diff --git a/lisp/medit.el b/lisp/medit.el
index 0aacf03..985c9b2 100644 (file)
--- a/lisp/medit.el
+++ b/lisp/medit.el
@@ -1,12 +1,11 @@
 ;;; medit.el --- front-end to the MEDIT package for editing MDL
 
+;; Copyright (C) 1985 Free Software Foundation, Inc.
+
 ;; Author: K. Shane Hartman
 ;; Maintainer: FSF
-;; Last-Modified: 05 Apr 1991
 ;; Keywords: languages
 
-;; Copyright (C) 1985 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -48,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."
@@ -64,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.