Gecko [ goons4good.org ]

Name	Size	Permission	Date
abbrevlist.elc	1.42 KB	-rw-r--r--	2023-06-07 04:09
assoc.elc	4.25 KB	-rw-r--r--	2023-06-07 04:09
awk-mode.elc	4.77 KB	-rw-r--r--	2023-06-07 04:09
bruce.el	5.96 KB	-rw-r--r--	2013-01-01 15:37
cl-compat.elc	4.13 KB	-rw-r--r--	2023-06-07 04:09
complete.elc	23.46 KB	-rw-r--r--	2023-06-07 04:09
cust-print.elc	12.46 KB	-rw-r--r--	2023-06-07 04:09
erc-hecomplete.elc	8.28 KB	-rw-r--r--	2023-06-07 04:09
fast-lock.elc	16.87 KB	-rw-r--r--	2023-06-07 04:09
iso-acc.elc	11.99 KB	-rw-r--r--	2023-06-07 04:09
iso-insert.elc	11.65 KB	-rw-r--r--	2023-06-07 04:09
iso-swed.elc	3.79 KB	-rw-r--r--	2023-06-07 04:09
keyswap.el	1.25 KB	-rw-r--r--	2013-01-01 15:37
lazy-lock.elc	24.37 KB	-rw-r--r--	2023-06-07 04:09
ledit.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
levents.elc	9.37 KB	-rw-r--r--	2023-06-07 04:09
lmenu.elc	11.17 KB	-rw-r--r--	2023-06-07 04:09
lucid.elc	6.13 KB	-rw-r--r--	2023-06-07 04:09
mailpost.elc	2.24 KB	-rw-r--r--	2023-06-07 04:09
mouse-sel.elc	20.34 KB	-rw-r--r--	2023-06-07 04:09
old-emacs-lock.elc	2.74 KB	-rw-r--r--	2023-06-07 04:09
old-whitespace.elc	22.67 KB	-rw-r--r--	2023-06-07 04:09
options.elc	4.14 KB	-rw-r--r--	2023-06-07 04:09
patcomp.el	750 B	-rw-r--r--	2012-11-02 03:00
pc-mode.elc	1.44 KB	-rw-r--r--	2023-06-07 04:09
pc-select.elc	12.42 KB	-rw-r--r--	2023-06-07 04:09
pgg-def.elc	2.38 KB	-rw-r--r--	2023-06-07 04:09
pgg-gpg.elc	12.88 KB	-rw-r--r--	2023-06-07 04:09
pgg-parse.elc	13.01 KB	-rw-r--r--	2023-06-07 04:09
pgg-pgp.elc	7.67 KB	-rw-r--r--	2023-06-07 04:09
pgg-pgp5.elc	7.59 KB	-rw-r--r--	2023-06-07 04:09
pgg.elc	19.18 KB	-rw-r--r--	2023-06-07 04:09
resume.elc	2.27 KB	-rw-r--r--	2023-06-07 04:09
s-region.elc	3.21 KB	-rw-r--r--	2023-06-07 04:09
scribe.elc	10.36 KB	-rw-r--r--	2023-06-07 04:09
spell.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
sregex.elc	12.35 KB	-rw-r--r--	2023-06-07 04:09
swedish.elc	2.58 KB	-rw-r--r--	2023-06-07 04:09
sym-comp.elc	6.11 KB	-rw-r--r--	2023-06-07 04:09
vc-mcvs.elc	15.07 KB	-rw-r--r--	2023-06-07 04:09

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:09:09 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/ledit.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar ledit-mode-map nil)
#@43 File name for data sent to Lisp by Ledit.
(defconst ledit-zap-file (byte-code "\301\302 \303P\"\207" [temporary-file-directory expand-file-name user-login-name ".l1"] 3) (#$ . 581))
#@43 File name for data sent to Ledit by Lisp.
(defconst ledit-read-file (byte-code "\301\302 \303P\"\207" [temporary-file-directory expand-file-name user-login-name ".l2"] 3) (#$ . 770))
#@52 File name for data sent to Lisp compiler by Ledit.
(defconst ledit-compile-file (byte-code "\301\302 \303P\"\207" [temporary-file-directory expand-file-name user-login-name ".l4"] 3) (#$ . 960))
#@65 Name of buffer in which Ledit accumulates data to send to Lisp.
(defconst ledit-buffer "*LEDIT*" (#$ . 1162))
#@69 *Non-nil means Ledit should save files before transferring to Lisp.
(defconst ledit-save-files t (#$ . -1278))
#@48 *Shell commands to execute to resume Lisp job.
(defconst ledit-go-to-lisp-string "%?lisp" (#$ . -1395))
#@57 *Shell commands to execute to resume Lisp compiler job.
(defconst ledit-go-to-liszt-string "%?liszt" (#$ . -1505))
#@45 Save the current defun in the ledit buffer.
(defalias 'ledit-save-defun #[nil "\212\302 \210`\303 \210\304	`#\210)\305\306!)\207" [end ledit-buffer end-of-defun beginning-of-defun append-to-buffer message "Current defun saved for Lisp"] 4 (#$ . 1626) nil])
#@45 Save the current region in the ledit buffer
(defalias 'ledit-save-region #[(beg end) "\303	\n#\210\304\305!\207" [ledit-buffer beg end append-to-buffer message "Region saved for Lisp"] 4 (#$ . 1891) "r"])
#@34 Carry the current defun to Lisp.
(defalias 'ledit-zap-defun-to-lisp #[nil "\300 \210\301 \207" [ledit-save-defun ledit-go-to-lisp] 1 (#$ . 2103) nil])
#@35 Carry the current defun to liszt.
(defalias 'ledit-zap-defun-to-liszt #[nil "\300 \210\301 \207" [ledit-save-defun ledit-go-to-liszt] 1 (#$ . 2260) nil])
#@35 Carry the current region to Lisp.
(defalias 'ledit-zap-region-to-lisp #[(beg end) "\302	\"\210\303 \207" [beg end ledit-save-region ledit-go-to-lisp] 3 (#$ . 2420) "r"])
#@47 Suspend Emacs and restart a waiting Lisp job.
(defalias 'ledit-go-to-lisp #[nil "\203�\305 \210\306	!\203�r	q\210eb\210\307ed\n#\210\310 \210)\311!\210\312\f\313\211#\207" [ledit-save-files ledit-buffer ledit-zap-file ledit-go-to-lisp-string ledit-read-file save-some-buffers get-buffer write-region erase-buffer suspend-emacs load t] 4 (#$ . 2597) nil])
#@48 Suspend Emacs and restart a waiting Liszt job.
(defalias 'ledit-go-to-liszt #[nil "\203�\305 \210\306	!\203!�r	q\210eb\210\307c\210\310ed\n#\210\311 \210)\312!\210\313\f\314\211#\207" [ledit-save-files ledit-buffer ledit-compile-file ledit-go-to-liszt-string ledit-read-file save-some-buffers get-buffer "(declare (macros t))\n" write-region erase-buffer suspend-emacs load t] 4 (#$ . 2962) nil])
#@51 Set up key bindings for the Lisp/Emacs interface.
(defalias 'ledit-setup #[nil "\204\f�\302 \303	\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\207" [ledit-mode-map lisp-mode-shared-map make-sparse-keymap set-keymap-parent define-key "" ledit-save-defun "" ledit-save-region "z" ledit-go-to-lisp "" ledit-go-to-liszt] 4 (#$ . 3368)])
(ledit-setup)
#@578 \<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)
(defalias 'ledit-mode #[nil "\301\300!\210\302\303 \210)\304 \207" [delay-mode-hooks make-local-variable t lisp-mode ledit-from-lisp-mode] 2 (#$ . 3761) nil])
(defalias 'ledit-from-lisp-mode #[nil "\303!\210\304\305\306\307!\207" [ledit-mode-map mode-name major-mode use-local-map "Ledit" ledit-mode run-mode-hooks ledit-mode-hook] 2])
(provide 'ledit)