;;; compiled by rms@mole.gnu.ai.mit.edu on Sun May 30 00:42:50 1993
;;; from file /home/fsf/rms/e19/lisp/lisp-mode.el
;;; emacs version 19.9.0.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(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 ЕНО#€ЕПО#€ЕРС#€ЕТС#€ЕУФ#€ЕХЦ#€ЕЧЦ#€ЕШЦ#€ЕЩЖ#€ЕЪЦ#€ЕЫЬ#€ЕЭЮ#€ЕЯа#€Ебв#€ЕЙг#€Еде#€)&„Ы з!&Еий&#€ЕЙЖ&#€ЕдЖ&#€клм\"€ноM‡" [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 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 "„ БВ \"ДЕЖ#€ДЗИ#€Б‡" [emacs-lisp-mode-map nconc 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 "„ БВ \"ДЕЖ#€ДЗИ#€Б‡" [lisp-mode-map nconc 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 "„ БВ \"ДЕЖ#€ДЗИ#€ДЙК#€Б‡" [lisp-interaction-mode-map nconc 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 narrow-to-region read] 5 "\
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"])
(fset (quote lisp-comment-indent) #[nil "АБ!ѓ i‡АВ!ѓ Г ‰<ѓ @‚ )‡ЕЖ!€nѓ* З‚, iT]‡" [looking-at "\\s<\\s<\\s<" "\\s<\\s<" calculate-lisp-indent tem skip-chars-backward " 	" 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ЗИ!€`ЙК!€ЛМ!ѓ% d\nZb‚’ ЛН!ѓ; ЛО!„; П €РС!€‚Z <ѓF @iZ‰ИU„Z Т`\"€j€d\nZ`Vѓg d\nZb€…’ ИU?…’ Љb€ФХ!€`b€ЗХ!€`V)…’ Ц#-‡" [calculate-lisp-indent nil pos end beg shift-amt indent forward-line 0 skip-chars-forward " 	" looking-at "\\s<\\s<\\s<" "\\s<" "\\s<\\s<" indent-for-comment forward-char -1 delete-region 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) "ЉАБ!€`В‰‰ГВ‰	\nѓ$ b€‚' М €`\nWѓ9 Н`\nБ#	‚' ѓ† 	ѓ† О	Б\"‰БVѓ† ВО	П\"О	Р\"‰Tb€ѓ9 `Vѓ9 Н\nБ#‰A@‰ѓ‚ 	)‚9 „Ъ Tb€„™ i‚Ъ Н`БГ$€ТУ!„Ъ ЉАР!€`)VѓЙ `U„Г ФР!€Н`БГ$€Х €‚Ъ b€АБ!€Н`БГ$€Х €iО	Ч\"ѓс \nb€ШЩ!€i‚,Ъ!ѓѓb€i\\‚,†,ЬЭ!ѓ*ѓ*„*\n	\"†,‚,.	‡" [forward-line 0 nil t containing-sexp last-sexp retry desired-indent paren-depth state indent-point parse-start beginning-of-defun parse-partial-sexp elt 2 1 peek looking-at "\\s(" forward-sexp backward-prefix-chars normal-indent 3 skip-chars-forward " 	" integerp 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."])
(fset (quote lisp-indent-function) #[(indent-point state) "iБ\nГ\"Tb€Д`ЖЗ$€Б\nИ\"ѓ> ЙК!„> ЉЛГ!€`)V„7 b€ЛЖ!€Д`ЖЗ$€М €i‚” Н`ОГ!€`\"ПТ!УN‰Ф=„n „v GХVѓv ЦЧ\"ѓv Ш\n\"‚“ Ъ!ѓ€ Ы\n$‚“ …“ \n\"*)‡" [normal-indent elt state 1 parse-partial-sexp last-sexp 0 t 2 looking-at "\\sw\\|\\s_" forward-line backward-prefix-chars buffer-substring forward-sexp nil method function intern-soft lisp-indent-function defun 3 string-match "\\`def" lisp-indent-defform indent-point integerp lisp-indent-specform] 6])
(defconst lisp-body-indent 2 "\
Number of columns to indent the second line of a `(def...)' form.")
(byte-code "АБM€ВГM€ДЕЖЗ#€ДИЖЗ#€ДЙЖК#€ДЛЖМ#€ДНЖО#€ДПЖК#€ДРЖК#€ДСЖК#€ДТЖК#€ДУЖМ#€ДФЖМ#€ДХЖМ#€ДЦЖО#€ДЧЖМ#€ДШЖО#€ДЩЖМ#€ДЪЖМ#‡" [lisp-indent-specform #[(count state indent-point normal-indent) "А	В\"Д‰‰b€i	\\КВ!€ЛВ!€М`ВО$€`Wѓ7 ДПРЏ„) СVѓ\\ ZВXѓT Т	‰\\!\\D‚~ D‚~ СUѓi СU„w СUѓ| Xѓ| ‚~ ,‡" [elt state 1 count nil containing-form-column body-indent i containing-form-start lisp-body-indent forward-char 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€БВ!€`AA@V… A@b€i\\‡" [state forward-line 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 ?…k\nА„‡ m‰„‡ П`Р €`А‰%‰@\nСТ\"@ѓj У €Р €ФСТ\"А\"€СХ\"@ѓЃ ЦН!€ФСЧ\"А\"€‚; Ш‰ѓ? ѓ© \nБXѓ© ЩЪ\n[А\"\"\nZБ\n„І \nБXѓЅ ЦН!€‚X\nVѓУ AS‰‚ї \nWѓк АBT‰‚Х ЦН!€`ЫЬ!€m„XЭЮ!„X@ѓ@БYѓ@‚IЯ@ѓ\"@[‚$	! б !ѓ:Ф ‰\"€‚HФ A@[\"€ @)i\nU„Xв`\"€\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 end-of-line nthcdr 4 indent-for-comment setcar 3 forward-line 5 t append make-list skip-chars-forward " 	" looking-at "\\s<\\|\n" calculate-lisp-indent val integerp delete-region] 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])
(fset (quote lisp-indent-region) #[(start end) "Љb€nѓ l„ Б €В!Е!€ЖЗ\"*‡" [start lisp-indent-line copy-marker end endmark indent-sexp set-marker nil] 3])
(defalias 'lisp-fill-paragraph #[(&optional justify) "А‰ЉГД!€ЕЖ!ѓ ЗИЙД!КД!\"‚Y ЕЛ!„C МН!€`fО=ѓ5 ПР!€‚ `fС>ѓ ТУ!€‚ ЕФ!ѓY ЗХiЦ\"ИЙД!КД!\"P)\n„e Ч!‚Ґ ЊЩЉГЪ!ДUѓv ЕЫ!„h ЕЫ!„Ђ ГУ!€`)ЉГУ!€ЕЫ!„ѓ `)\"€ЭPЭP	Ч!,*‡" [nil comment-fill-prefix has-comment forward-line 0 looking-at "[ 	]*;[; 	]*" t buffer-substring match-beginning match-end ";\\|$" skip-chars-forward "^;\n\"\\\\?" 92 forward-char 2 (34 63) forward-sexp 1 ";+[	 ]*" make-string 32 fill-paragraph justify narrow-to-region -1 "^[ 	]*;" paragraph-start "\\|^[ 	;]*$" fill-prefix paragraph-separate] 5 "\
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„ Е`ЖЗ!€`А‰	%`\nW…b ИЙ	\"@„S \nѓ6 Л\n!„S М О`ПР!€`\"€l„R СТ\\]Т\"€)Е`ЖЗ!€`А‰	%‚ *‡" [nil state end point-marker start parse-partial-sexp forward-line 1 nthcdr 3 nochange-regexp looking-at current-indentation indent delete-region skip-chars-forward " 	" 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))