;;; 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
-
-;; Copyright (C) 1985 Free Software Foundation, Inc.
+;; Keywords: languages
;; This file is part of GNU Emacs.
(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."
(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.