BSD 4_3_Reno development

[unix-history] / usr / contrib / lib / emacs / lisp / medit.elc

(require (quote mim-mode))

(defconst medit-zap-file (concat "/tmp/" (getenv "USER") ".medit.mud") "\
File name for data sent to MDL by Medit.")

(defconst medit-buffer "*MEDIT*" "\
Name of buffer in which Medit accumulates data to send to MDL.")

(defconst medit-save-files t "\
If non-nil, Medit offers to save files on return to MDL.")

(defun medit-save-define nil "\
Mark the previous or surrounding toplevel object to be sent back to MDL." (interactive) (byte-code "Â\88\8aà \88`\18ÄÅ!\88Æ      \b`#\88\bb\88ÇÈ\bÉ \88`\"!))\87" [start medit-buffer nil beginning-of-DEFINE forward-mim-object 1 append-to-buffer message buffer-substring end-of-line] 8))

(defun medit-save-region (start end) "\
Mark the current region to be sent to back to MDL." (interactive "r") (byte-code "Ã\88Ä\b       
#\88ÅÆ!\87" [medit-buffer start end nil append-to-buffer message "Current region saved for MDL."] 4))

(defun medit-save-buffer nil "\
Mark the current buffer to be sent back to MDL." (interactive) (byte-code "Á\88Â\bed#\88ÃÄ!\87" [medit-buffer nil append-to-buffer message "Current buffer saved for MDL."] 4))

(defun medit-zap-define-to-mdl nil "\
Return to MDL with surrounding or previous toplevel MDL object." (byte-code "À \88Á \88Â \87" [indetarctive medit-save-defun medit-go-to-mdl] 4))

(defun medit-zap-region-mdl (start end) "\
Return to MDL with current region." (interactive) (byte-code "Â\88Ã\b   \"\88Ä \87" [start end nil medit-save-region medit-go-to-mdl] 3))

(defun medit-zap-buffer nil "\
Return to MDL with current buffer." (interactive) (byte-code "À\88Á \88Â \87" [nil medit-save-buffer medit-go-to-mdl] 3))

(defun medit-goto-mdl nil "\
Return from Emacs to superior MDL, sending saved code.
Optionally, offers to save changed files." (interactive) (byte-code "Ã\88Å     !\18\b\83(