home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / medit.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.8 KB  |  44 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:37:14 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/medit.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (require 'mim-mode)
  14. (defconst medit-zap-file (byte-code "└┴ ┬Qç" ["/tmp/" user-login-name ".medit.mud"] 3) "\
  15. File name for data sent to MDL by Medit.")
  16. (defconst medit-buffer "*MEDIT*" "\
  17. Name of buffer in which Medit accumulates data to send to MDL.")
  18. (defconst medit-save-files t "\
  19. If non-nil, Medit offers to save files on return to MDL.")
  20. (fset 'medit-save-define #[nil "è└ ê`┬├!ê─    `#ê    bê╞    ╟ê`{!*ç" [beginning-of-DEFINE start forward-mim-object 1 append-to-buffer medit-buffer message nil] 4 "\
  21. Mark the previous or surrounding toplevel object to be sent back to MDL." nil])
  22. (fset 'medit-save-region #[(start end) "└    \n #ê─┼!ç" [append-to-buffer medit-buffer start end message "Current region saved for MDL."] 4 "\
  23. Mark the current region to be sent to back to MDL." "r"])
  24. (fset 'medit-save-buffer #[nil "└    ed#ê┬├!ç" [append-to-buffer medit-buffer message "Current buffer saved for MDL."] 4 "\
  25. Mark the current buffer to be sent back to MDL." nil])
  26. (fset 'medit-zap-define-to-mdl #[nil "└ ê┴ ê┬ ç" [indetarctive medit-save-defun medit-go-to-mdl] 1 "\
  27. Return to MDL with surrounding or previous toplevel MDL object."])
  28. (fset 'medit-zap-region-mdl #[(start end) "└    \n\"ê├ ç" [medit-save-region start end medit-go-to-mdl] 3 "\
  29. Return to MDL with current region." nil])
  30. (fset 'medit-zap-buffer #[nil "└ ê┴ ç" [medit-save-buffer medit-go-to-mdl] 1 "\
  31. Return to MDL with current buffer." nil])
  32. (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 "\
  33. Return from Emacs to superior MDL, sending saved code.
  34. Optionally, offers to save changed files." nil])
  35. (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)
  36. (defconst medit-mode-hook (byte-code "└┴!¡ü    ç" [boundp mim-mode-hook] 2) "\
  37. ")
  38. (byte-code "└┬ç" [(lambda nil (medit-mode)) mim-mode-hook nil] 1)
  39. (fset 'medit-mode #[(&optional state) "└    !ê┬├!ê─╞ëç" [use-local-map medit-mode-map run-hooks medit-mode-hook medit-mode major-mode "Medit" mode-name] 2 "\
  40. Major mode for editing text and returning it to a superior MDL.
  41. Like Mim mode, plus these special commands:
  42. \\{medit-mode-map}" nil])
  43. (mim-mode)
  44.