;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul  5 23:26:20 1993
;;; from file /gd/gnu/emacs/19.0/lisp/ledit.el
;;; emacs version 19.15.16.
;;; 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 "This file was compiled for Emacs 19"))

(byte-code "ÀÁ!„ ÂÂ‡" [boundp ledit-mode-map nil] 2)
(defconst ledit-zap-file (byte-code "ÀÁ ÂQ‡" ["/tmp/" user-login-name ".l1"] 3) "\
File name for data sent to Lisp by Ledit.")
(defconst ledit-read-file (byte-code "ÀÁ ÂQ‡" ["/tmp/" user-login-name ".l2"] 3) "\
File name for data sent to Ledit by Lisp.")
(defconst ledit-compile-file (byte-code "ÀÁ ÂQ‡" ["/tmp/" user-login-name ".l4"] 3) "\
File name for data sent to Lisp compiler by Ledit.")
(defconst ledit-buffer "*LEDIT*" "\
Name of buffer in which Ledit accumulates data to send to Lisp.")
(defconst ledit-save-files t "\
*Non-nil means Ledit should save files before transferring to Lisp.")
(defconst ledit-go-to-lisp-string "%?lisp" "\
*Shell commands to execute to resume Lisp job.")
(defconst ledit-go-to-liszt-string "%?liszt" "\
*Shell commands to execute to resume Lisp compiler job.")
(defalias 'ledit-save-defun #[nil "ŠÀ ˆ`Â ˆÃ`	#ˆ)ÅÆ!)‡" [end-of-defun end beginning-of-defun append-to-buffer ledit-buffer message "Current defun saved for Lisp"] 4 "\
Save the current defun in the ledit buffer" nil])
(defalias 'ledit-save-region #[(beg end) "À	\n#ˆÄÅ!‡" [append-to-buffer ledit-buffer beg end message "Region saved for Lisp"] 4 "\
Save the current region in the ledit buffer" "r"])
(defalias 'ledit-zap-defun-to-lisp #[nil "À ˆÁ ‡" [ledit-save-defun ledit-go-to-lisp] 1 "\
Carry the current defun to Lisp." nil])
(defalias 'ledit-zap-defun-to-liszt #[nil "À ˆÁ ‡" [ledit-save-defun ledit-go-to-liszt] 1 "\
Carry the current defun to liszt." nil])
(defalias 'ledit-zap-region-to-lisp #[(beg end) "À	\n\"ˆÃ ‡" [ledit-save-region beg end ledit-go-to-lisp] 3 "\
Carry the current region to Lisp." "r"])
(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 "\
Suspend Emacs and restart a waiting Lisp job." nil])
(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 "\
Suspend Emacs and restart a waiting Liszt job." nil])
(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 "\
Set up key bindings for the Lisp/Emacs interface."])
(ledit-setup)
(defalias 'ledit-mode #[nil "À ˆÁ ‡" [lisp-mode ledit-from-lisp-mode] 1 "\
\\<ledit-mode-map>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)" nil])
(defalias (quote ledit-from-lisp-mode) #[nil "À	!ˆÂÄÆÇ!‡" [use-local-map ledit-mode-map "Ledit" mode-name ledit-mode major-mode run-hooks ledit-mode-hook] 2])