*** empty log message ***

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

diff --git a/lisp/medit.el b/lisp/medit.el
index d938172..985c9b2 100644 (file)
--- a/lisp/medit.el
+++ b/lisp/medit.el
@@ -47,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."
@@ -63,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.