;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul  5 23:27:55 1993
;;; from file /gd/gnu/emacs/19.0/lisp/lisp-mode.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"))

(defvar lisp-mode-syntax-table nil "\
")
(defvar emacs-lisp-mode-syntax-table nil "\
")
(defvar lisp-mode-abbrev-table nil "\
")
(byte-code "„ј БГ \nДWѓ Е\nЖ#€\nT‰‚\n ЗЗИWѓ1 Е\nЖ#€\nT‰‚ ЙЙКWѓF Е\nЖ#€\nT‰‚4 ЛЛМWѓ[ Е\nЖ#€\nT‰‚I ЕНО#€ЕПО#€ЕРС#€ЕТС#€ЕУФ#€ЕХЦ#€ЕЧЦ#€ЕШЦ#€ЕЩЖ#€ЕЪЦ#€ЕЫЬ#€ЕЭЮ#€ЕЯа#€Ебв#€ЕЙг#€Еде#€)&„Ы з!&Еий&#€ЕЙЖ&#€ЕдЖ&#€клм\"€ноп\"‡" [emacs-lisp-mode-syntax-table 0 i make-syntax-table 48 modify-syntax-entry "_   " 58 65 91 97 123 128 32 "    " 9 10 ">   " 12 59 "<   " 96 "'   " 39 44 46 35 34 "\"    " 92 "\\   " 40 "()  " 41 ")(  " "(]  " 93 ")[  " lisp-mode-syntax-table copy-syntax-table 124 "\"   " define-abbrev-table lisp-mode-abbrev-table nil defalias lisp-mode-variables #[(lisp-syntax) "ѓ Б\n!€ЕЖ!€ЗPЕЙ!€	ЕК!€Л\nЕМ!€НЕО!€ПЕР!€ЛЕС!€ТЕУ!€ФЕХ!€ЦЕЧ!€Ш‰‡" [lisp-syntax set-syntax-table lisp-mode-syntax-table lisp-mode-abbrev-table local-abbrev-table make-local-variable paragraph-start "^$\\|" page-delimiter paragraph-separate paragraph-ignore-fill-prefix t indent-line-function lisp-indent-line indent-region-function lisp-indent-region parse-sexp-ignore-comments comment-start ";" comment-start-skip ";+ *" comment-column 40 comment-indent-function lisp-comment-indent] 2]] 5)
(defvar shared-lisp-mode-map nil "\
Keymap for commands shared by all sorts of Lisp modes.")
(byte-code "„ Б ВГД#€ВЕЖ#€ВЗИ#€ВЙК#€Б‡" [shared-lisp-mode-map make-sparse-keymap define-key "" indent-sexp "с" lisp-fill-paragraph "" backward-delete-char-untabify "	" lisp-indent-line] 4)
(defvar emacs-lisp-mode-map nil "\
Keymap for Emacs Lisp mode.
All commands in shared-lisp-mode-map are inherited by this map.")
(byte-code "„ Б \n¤ГДЕ#€ГЖЗ#€Б‡" [emacs-lisp-mode-map make-sparse-keymap shared-lisp-mode-map define-key "	" lisp-complete-symbol "" eval-defun] 4)
(defalias 'emacs-lisp-mode #[nil "А €Б\n!€Г!€ЕЗЙК!€ЛМ!‡" [kill-all-local-variables use-local-map emacs-lisp-mode-map set-syntax-table emacs-lisp-mode-syntax-table emacs-lisp-mode major-mode "Emacs-Lisp" mode-name lisp-mode-variables nil run-hooks emacs-lisp-mode-hook] 2 "\
Major mode for editing Lisp code to run in Emacs.
Commands:
Delete converts tabs to spaces as it moves back.
Blank lines separate paragraphs.  Semicolons start comments.
\\{emacs-lisp-mode-map}
Entry to this mode calls the value of `emacs-lisp-mode-hook'
if that value is non-nil." nil])
(defvar lisp-mode-map nil "\
Keymap for ordinary Lisp mode.
All commands in `shared-lisp-mode-map' are inherited by this map.")
(byte-code "„ Б \n¤ГДЕ#€ГЖЗ#€Б‡" [lisp-mode-map make-sparse-keymap shared-lisp-mode-map define-key "" lisp-send-defun "" run-lisp] 4)
(defalias 'lisp-mode #[nil "А €Б\n!€ГЕЗИ!€Й\n!€ЛМ!‡" [kill-all-local-variables use-local-map lisp-mode-map lisp-mode major-mode "Lisp" mode-name lisp-mode-variables t set-syntax-table lisp-mode-syntax-table run-hooks lisp-mode-hook] 2 "\
Major mode for editing Lisp code for Lisps other than GNU Emacs Lisp.
Commands:
Delete converts tabs to spaces as it moves back.
Blank lines separate paragraphs.  Semicolons start comments.
\\{lisp-mode-map}
Note that `run-lisp' may be used either to start an inferior Lisp job
or to switch back to an existing one.

Entry to this mode calls the value of `lisp-mode-hook'
if that value is non-nil." nil])
(defalias 'lisp-send-defun #[nil "АБ!‡" [error "Process lisp does not exist"] 2 "\
Send the current defun to the Lisp process made by \\[run-lisp]." nil])
(defvar lisp-interaction-mode-map nil "\
Keymap for Lisp Interaction moe.
All commands in `shared-lisp-mode-map' are inherited by this map.")
(byte-code "„ Б \n¤ГДЕ#€ГЖЗ#€ГИЙ#€Б‡" [lisp-interaction-mode-map make-sparse-keymap shared-lisp-mode-map define-key "" eval-defun "	" lisp-complete-symbol "\n" eval-print-last-sexp] 4)
(defalias 'lisp-interaction-mode #[nil "А €Б\n!€ГЕЗ!€ЙК!€ЛМ!‡" [kill-all-local-variables use-local-map lisp-interaction-mode-map lisp-interaction-mode major-mode "Lisp Interaction" mode-name set-syntax-table emacs-lisp-mode-syntax-table lisp-mode-variables nil run-hooks lisp-interaction-mode-hook] 2 "\
Major mode for typing and evaluating Lisp forms.
Like Lisp mode except that \\[eval-print-last-sexp] evals the Lisp expression
before point, and prints its value into the buffer, advancing point.

Commands:
Delete converts tabs to spaces as it moves back.
Paragraphs are separated only by blank lines.
Semicolons start comments.
\\{lisp-interaction-mode-map}
Entry to this mode calls the value of `lisp-interaction-mode-hook'
if that value is non-nil." nil])
(defalias 'eval-print-last-sexp #[nil "pБ €ВГ!€Б )‡" [standard-output terpri eval-last-sexp t] 2 "\
Evaluate sexp before point; print value into current buffer." nil])
(defalias 'eval-last-sexp #[(eval-last-sexp-arg-internal) "ѓ p‚	 Б`ДЕ ЗИЋЉЙ\n!€ЛМ!€Њe\n}€Нp!+!)!*‡" [eval-last-sexp-arg-internal t opoint standard-output prin1 syntax-table stab eval ((set-syntax-table stab)) set-syntax-table emacs-lisp-mode-syntax-table forward-sexp -1 read] 4 "\
Evaluate sexp before point; print value in minibuffer.
With argument, print output into current buffer." "P"])
(defalias 'eval-defun #[(eval-defun-arg-internal) "ѓ p‚	 БГДЉЕ €Ж €Зp!)!!)‡" [eval-defun-arg-internal t standard-output prin1 eval end-of-defun beginning-of-defun read] 4 "\
Evaluate defun that point is in or before.
Print value in minibuffer.
With argument, insert value in current buffer after the defun." "P"])
(defalias (quote lisp-comment-indent) #[nil "АБ!ѓ i‡АВ!ѓ Г ‰<ѓ @‚ )‡ЕЖx€nѓ* З‚, iT]‡" [looking-at "\\s<\\s<\\s<" "\\s<\\s<" calculate-lisp-indent tem " 	" nil 0 comment-column] 3])
(defconst lisp-indent-offset nil "\
")
(defconst lisp-indent-function (quote lisp-indent-function) "\
")
(defalias 'lisp-indent-line #[(&optional whole-exp) "А Б‰‰d`ZЗy€`ИБw€ЙК!ѓ$ d\nZb‚Ћ ЙЛ!ѓ9 ЙМ!„9 Н €Оu€‚W <ѓD @iZ‰ЗU„W `|€j€d\nZ`Vѓd d\nZb€…Ћ ЗU?…Ћ Љb€РС!€`b€Сy€`V)…Ћ Т#-‡" [calculate-lisp-indent nil pos end beg shift-amt indent 0 " 	" looking-at "\\s<\\s<\\s<" "\\s<" "\\s<\\s<" indent-for-comment -1 whole-exp forward-sexp 1 indent-code-rigidly] 7 "\
Indent current line as Lisp code.
With argument, indent any additional lines of the same expression
rigidly along with this one." "P"])
(defalias 'calculate-lisp-indent #[(&optional parse-start) "ЉАy€`Б‰‰ВБ‰	\nѓ\" \nb€‚% Л €`	Wѓ7 М`	А#‚% ѓ~ ѓ~ Ањ‰АVѓ~ БНњОњ‰Tb€ѓ7 `Vѓ7 М	А#‰A@‰ѓz )‚7 „П Tb€„ђ i‚П М`АВ$€РС!„П ЉОy€`)Vѓї `U„№ ТО!€М`АВ$€У €‚П b€Аy€М`АВ$€У €iХњѓе 	b€ЦБw€i‚Ёѓщ ѓщ b€i\\‚†ШЩ!ѓѓ„	\"†‚.	‡" [0 nil t containing-sexp last-sexp retry desired-indent paren-depth state indent-point parse-start beginning-of-defun parse-partial-sexp 2 1 peek looking-at "\\s(" forward-sexp backward-prefix-chars normal-indent 3 " 	" lisp-indent-offset boundp lisp-indent-function] 8 "\
Return appropriate indentation for current line as Lisp code.
In usual case returns an integer: the column to indent to.
Can instead return a list, whose car is the column to indent to.
This means that following lines at the same level of indentation
should not necessarily be indented the same way.
The second element of the list is the buffer position
of the start of the containing expression."])
(defalias (quote lisp-indent-function) #[(indent-point state) "i	ВњTb€Г`ЕЖ$€	Зњѓ: ИЙ!„: ЉВy€`)V„3 b€Еy€Г`ЕЖ$€К €i‚— `ЛВ!€`{МП!РN†U П!СN‰Т=„r „z GУVѓz ФХ\"ѓz Ц	\"‚– Ёѓ‹ Ш	$‚– …– 	\"*)‡" [normal-indent state 1 parse-partial-sexp last-sexp 0 t 2 looking-at "\\sw\\|\\s_" backward-prefix-chars forward-sexp nil method function intern-soft lisp-indent-function lisp-indent-hook defun 3 string-match "\\`def" lisp-indent-defform indent-point lisp-indent-specform] 6])
(defconst lisp-body-indent 2 "\
Number of columns to indent the second line of a `(def...)' form.")
(byte-code "АБВ\"€АГД\"€ЕЖЗИ#€ЕЙЗИ#€ЕКЗЛ#€ЕМЗН#€ЕОЗП#€ЕРЗЛ#€ЕСЗЛ#€ЕТЗЛ#€ЕУЗЛ#€ЕФЗН#€ЕХЗН#€ЕЦЗН#€ЕЧЗП#€ЕШЗН#€ЕЩЗП#€ЕЪЗН#€ЕЫЗН#‡" [defalias lisp-indent-specform #[(count state indent-point normal-indent) "Бњ\nГ‰‰b€i\\Бu€ЙБ!€К`БМ$€`Wѓ3 ГНОЏ„% \nПVѓV \nZБXѓN ‰\\\\D‚v D‚v ПUѓc \nПU„p \nПUѓt Xѓt ‚v ,‡" [state 1 count nil containing-form-column body-indent i containing-form-start lisp-body-indent forward-sexp parse-partial-sexp indent-point t (byte-code "SБВ!€Г`ВЕ$‡" [count forward-sexp 1 parse-partial-sexp indent-point t] 5) ((error)) 0 normal-indent] 6] lisp-indent-defform #[(state indent-point) "A@b€Бy€`AA@V… A@b€\ni\\‡" [state 1 lisp-body-indent] 2] put lambda lisp-indent-function defun autoload progn 0 prog1 1 prog2 2 save-excursion save-window-excursion save-restriction save-match-data let let* while if catch condition-case unwind-protect with-output-to-temp-buffer] 4)
(defalias 'indent-sexp #[(&optional endpos) "АCБ``А‰‰‰‰‰	\nЉМН!€)ЉАѓ0 `W‚2 ?…]\nА„Ђ m‰„Ђ П`А€`А‰%‰@\nР›@ѓg С €А€Р›А €Т›@ѓz Нy€У›А €‚; Ф‰ѓ? ѓў \nБXѓў ХЦ\n[А\"\"\nZБ\n„« \nБXѓµ Нy€‚J\nVѓЛ AS‰‚· \nWѓв АBT‰‚Н Нy€`ЧАw€m„JШЩ!„J@ѓ@БYѓ@‚<Ъ@ѓ@[‚	!‰Ёѓ.‰ €‚;A@[ €@)i\nU„J`|€\nj€„$ `U‰„$ `‚$ .‡" [nil 0 this-indent state inner-loop-done outer-loop-done bol last-depth last-point starting-point next-depth indent-stack forward-sexp 1 endpos parse-partial-sexp 4 indent-for-comment 3 5 t append make-list " 	" looking-at "\\s<\\|\n" calculate-lisp-indent val] 11 "\
Indent each line of the list starting just after point.
If optional arg ENDPOS is given, indent each line, stopping when
ENDPOS is encountered." nil])
(defalias (quote lisp-indent-region) #[(start end) "Љb€nѓ l„ Б €В!Е!€Ж‰“*‡" [start lisp-indent-line copy-marker end endmark indent-sexp nil] 3])
(defalias 'lisp-fill-paragraph #[(&optional justify) "А‰ЉГy€ДЕ!ѓ ЖГ”Г•{‚Q ДЗ!„> ИАw€`fЙ=ѓ0 Кu€‚ `fЛ>ѓ МН!€‚ ДО!ѓQ ЖПiР\"Г”Г•{P)\n„] С!‚™ ЊЉУyГUѓl ДФ!„_ ДФ!„u Нy€`)ЉНy€ДФ!„x `)}€ЦPЦP	С!,*‡" [nil comment-fill-prefix has-comment 0 looking-at "[ 	]*;[; 	]*" t ";\\|$" "^;\n\"\\\\?" 92 2 (34 63) forward-sexp 1 ";+[	 ]*" make-string 32 fill-paragraph justify -1 "^[ 	]*;" paragraph-start "\\|^[ 	;]*$" fill-prefix paragraph-separate] 3 "\
Like \\[fill-paragraph], but handle Emacs Lisp comments.
If any of the current line is a comment, fill the comment or the
paragraph of it that point is in, preserving the comment's indentation
and initial semicolons." "P"])
(defalias 'indent-code-rigidly #[(start end arg &optional nochange-regexp) "АЉ\nb€Г b€n„ Е`Жy€`А‰	%`\nW…^ З	›@„P ѓ4 Й!„P К `МАw€`|€l„O НО\\]О\"€)Е`Жy€`А‰	%‚ *‡" [nil state end point-marker start parse-partial-sexp 1 3 nochange-regexp looking-at current-indentation indent " 	" indent-to 0 arg] 6 "\
Indent all lines of code, starting in the region, sideways by ARG columns.
Does not affect lines starting inside comments or strings, assuming that
the start of the region is not inside them.

Called from a program, takes args START, END, COLUMNS and NOCHANGE-REGEXP.
The last is a regexp which, if matched at the beginning of a line,
means don't indent that line." "r\np"])
(provide (quote lisp-mode))