;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:44:55 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/ledit.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; 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 "`/gd/gnu/emacs/19.0/lisp/ledit.el' was compiled for Emacs 19")) (byte-code "ÀÁ!„ÂÁ B‡" [boundp ledit-mode-map nil current-load-list] 2) #@43 File name for data sent to Lisp by Ledit. (defconst ledit-zap-file (byte-code "ÀÁ ÂQ‡" ["/tmp/" user-login-name ".l1"] 3) (#$ . 556)) #@43 File name for data sent to Ledit by Lisp. (defconst ledit-read-file (byte-code "ÀÁ ÂQ‡" ["/tmp/" user-login-name ".l2"] 3) (#$ . 696)) #@52 File name for data sent to Lisp compiler by Ledit. (defconst ledit-compile-file (byte-code "ÀÁ ÂQ‡" ["/tmp/" user-login-name ".l4"] 3) (#$ . 837)) #@65 Name of buffer in which Ledit accumulates data to send to Lisp. (defconst ledit-buffer "*LEDIT*" (#$ . 990)) #@69 *Non-nil means Ledit should save files before transferring to Lisp. (defconst ledit-save-files t (#$ . -1105)) #@48 *Shell commands to execute to resume Lisp job. (defconst ledit-go-to-lisp-string "%?lisp" (#$ . -1222)) #@57 *Shell commands to execute to resume Lisp compiler job. (defconst ledit-go-to-liszt-string "%?liszt" (#$ . -1332)) #@44 Save the current defun in the ledit buffer (defalias 'ledit-save-defun #[nil "ŠÀ ˆ` ˆÃ\f` #ˆ)ÅÆ!)‡" [end-of-defun end beginning-of-defun append-to-buffer ledit-buffer message "Current defun saved for Lisp"] 4 (#$ . 1453) nil]) #@45 Save the current region in the ledit buffer (defalias 'ledit-save-region #[(beg end) "À \n #ˆÄÅ!‡" [append-to-buffer ledit-buffer beg end message "Region saved for Lisp"] 4 (#$ . 1688) "r"]) #@34 Carry the current defun to Lisp. (defalias 'ledit-zap-defun-to-lisp #[nil "À ˆÁ ‡" [ledit-save-defun ledit-go-to-lisp] 1 (#$ . 1885) nil]) #@35 Carry the current defun to liszt. (defalias 'ledit-zap-defun-to-liszt #[nil "À ˆÁ ‡" [ledit-save-defun ledit-go-to-liszt] 1 (#$ . 2030) nil]) #@35 Carry the current region to Lisp. (defalias 'ledit-zap-region-to-lisp #[(beg end) "À \n\"ˆÃ ‡" [ledit-save-region beg end ledit-go-to-lisp] 3 (#$ . 2178) "r"]) #@47 Suspend Emacs and restart a waiting Lisp job. (defalias 'ledit-go-to-lisp #[nil "ƒÁ ˆÂ !ƒŠ qˆebˆÄed #ˆÆ ˆ)Ç!ˆÉ\nˉ#‡" [ledit-save-files save-some-buffers get-buffer ledit-buffer write-region ledit-zap-file erase-buffer suspend-emacs ledit-go-to-lisp-string load ledit-read-file t] 4 (#$ . 2344) nil]) #@48 Suspend Emacs and restart a waiting Liszt job. (defalias 'ledit-go-to-liszt #[nil "ƒÁ ˆÂ !ƒ\"Š qˆebˆÄcˆÅed#ˆÇ ˆ)È !ˆÊ ̉#‡" [ledit-save-files save-some-buffers get-buffer ledit-buffer "(declare (macros t))\n" write-region ledit-compile-file erase-buffer suspend-emacs ledit-go-to-liszt-string load ledit-read-file t] 4 (#$ . 2659) nil]) #@51 Set up key bindings for the Lisp/Emacs interface. (defalias 'ledit-setup #[nil "„ Á \n¤ÃÄÅ#ˆÃÆÇ#ˆÃÈÉ#ˆÃÊË#‡" [ledit-mode-map make-sparse-keymap shared-lisp-mode-map define-key "" ledit-save-defun "" ledit-save-region "z" ledit-go-to-lisp "" ledit-go-to-liszt] 4 (#$ . 3010)]) (ledit-setup) #@577 \Major mode for editing text and stuffing it to a Lisp job. Like Lisp mode, plus these special commands: \[ledit-save-defun] -- record defun at or after point for later transmission to Lisp job. \[ledit-save-region] -- record region for later transmission to Lisp job. \[ledit-go-to-lisp] -- transfer to Lisp job and transmit saved text. \[ledit-go-to-liszt] -- transfer to Liszt (Lisp compiler) job and transmit saved text. \{ledit-mode-map} To make Lisp mode automatically change to Ledit mode, do (setq lisp-mode-hook 'ledit-from-lisp-mode) (defalias 'ledit-mode #[nil "À ˆÁ ‡" [lisp-mode ledit-from-lisp-mode] 1 (#$ . 3321) nil]) (defalias 'ledit-from-lisp-mode #[nil "À !ˆÂÄÆÇ!‡" [use-local-map ledit-mode-map "Ledit" mode-name ledit-mode major-mode run-hooks ledit-mode-hook] 2])