;;; compiled by mycroft@hal on Tue Sep 22 06:13:37 1992 ;;; from file /src/emacs-19.0/lisp/medit.el ;;; emacs version 19.0.427. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (require (quote 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 (make-byte-code (quote nil) "ŠÀ ˆ`ÂÃ!ˆÄ `#ˆ bˆÆÇ È ˆ`\"!*‡" [beginning-of-DEFINE start forward-mim-object 1 append-to-buffer medit-buffer message buffer-substring end-of-line] 4 "\ Mark the previous or surrounding toplevel object to be sent back to MDL." nil)) (fset 'medit-save-region (make-byte-code (quote (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 (make-byte-code (quote 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 (make-byte-code (quote nil) "À ˆÁ ‡" [medit-save-define medit-goto-mdl] 1 "\ Return to MDL with surrounding or previous toplevel MDL object." nil)) (fset 'medit-zap-region-mdl (make-byte-code (quote (start end)) "À \n\"ˆÃ ‡" [medit-save-region start end medit-goto-mdl] 3 "\ Return to MDL with current region." nil)) (fset 'medit-zap-buffer (make-byte-code (quote nil) "À ˆÁ ‡" [medit-save-buffer medit-goto-mdl] 1 "\ Return to MDL with current buffer." nil)) (fset 'medit-goto-mdl (make-byte-code (quote 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 (make-byte-code (quote (&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)