;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:41:57 1993 ;;; from file /era/era-0.80/editor/lisp/packages/medit.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (require 'mim-mode) (defconst medit-zap-file (byte-code " Q" ["/tmp/" user-login-name ".medit.mud"] 3) "\ 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.") (fset 'medit-save-define #[nil " `! `# b `{!*" [beginning-of-DEFINE start forward-mim-object 1 append-to-buffer medit-buffer message nil] 4 "\ Mark the previous or surrounding toplevel object to be sent back to MDL." nil]) (fset 'medit-save-region #[(start end) " \n #!" [append-to-buffer medit-buffer start end message "Current region saved for MDL."] 4 "\ Mark the current region to be sent to back to MDL." "r"]) (fset 'medit-save-buffer #[nil " ed#!" [append-to-buffer medit-buffer message "Current buffer saved for MDL."] 4 "\ Mark the current buffer to be sent back to MDL." nil]) (fset 'medit-zap-define-to-mdl #[nil " " [indetarctive medit-save-defun medit-go-to-mdl] 1 "\ Return to MDL with surrounding or previous toplevel MDL object."]) (fset 'medit-zap-region-mdl #[(start end) " \n\" " [medit-save-region start end medit-go-to-mdl] 3 "\ Return to MDL with current region." nil]) (fset 'medit-zap-buffer #[nil " " [medit-save-buffer medit-go-to-mdl] 1 "\ Return to MDL with current buffer." nil]) (fset 'medit-goto-mdl #[nil " !\nq\n!ed #! ) )" [get-buffer medit-buffer buffer buffer-modified-p write-region medit-zap-file set-buffer-modified-p nil erase-buffer medit-save-files save-some-buffers suspend-emacs] 5 "\ Return from Emacs to superior MDL, sending saved code. Optionally, offers to save changed files." nil]) (byte-code " ! # # # #" [nil medit-mode-map copy-keymap mim-mode-map define-key "z" medit-save-define "" medit-save-buffer "z" medit-goto-mdl "s" medit-zap-buffer] 4) (defconst medit-mode-hook (byte-code "! " [boundp mim-mode-hook] 2) "\ ") (byte-code "‡" [(lambda nil (medit-mode)) mim-mode-hook nil] 1) (fset 'medit-mode #[(&optional state) " !!Ɖ" [use-local-map medit-mode-map run-hooks medit-mode-hook medit-mode major-mode "Medit" mode-name] 2 "\ Major mode for editing text and returning it to a superior MDL. Like Mim mode, plus these special commands: \\{medit-mode-map}" nil]) (mim-mode)