Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : lisp-mode.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:13 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/lisp-mode.el
;;; in Emacs version 23.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`lisp-mode.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\304B\305\304!\204�\306\304\307\"\210\310\304\307\"\210\303B\305\303!\204\350�\306\303\311 \312\211\313W\2038�\314\n\315	#\210\nT\211\202&�\316\211\317W\203M�\314\n\315	#\210\nT\211\202;�\320\211\321W\203b�\314\n\315	#\210\nT\211\202P�\322\211\323W\203w�\314\n\315	#\210\nT\211\202e�\314\324\325	#\210\314\326\325	#\210\314\327\325	#\210\314\330\325	#\210\314\331\332	#\210\314\333\334	#\210\314\335\336	#\210\314\337\336	#\210\314\340\336	#\210\314\341\336	#\210\314\342\315	#\210\314\343\336	#\210\314\344\345	#\210\314\346\347	#\210\314\350\351	#\210\314\352\353	#\210\314\320\354	#\210\314\355\356	#\210)	)\"\210\357B\305\357!\204\306\357\360!\314\320\315	#\210\314\355\315	#\210\314\343\361	#\210\314\362\363	#\210	)\"\210\307\207" [current-load-list table i emacs-lisp-mode-syntax-table lisp-mode-abbrev-table default-boundp set-default nil define-abbrev-table make-syntax-table 0 48 modify-syntax-entry "_   " 58 65 91 97 123 128 32 "    " 2208 9 12 10 ">   " 59 "<   " 96 "'   " 39 44 64 46 35 34 "\"    " 92 "\\   " 40 "()  " 41 ")(  " "(]  " 93 ")[  " lisp-mode-syntax-table copy-syntax-table "' 14b" 124 "\" 23bn"] 7)
#@74 Imenu generic expression for Lisp mode.  See `imenu-generic-expression'.
(defvar lisp-imenu-generic-expression (byte-code "\300\301\302!\303E\301\304!\301\305!\303E\301\306!\301\307!\303EE\207" [nil purecopy "^\\s-*(\$def\\(?:advice\\|generic\\|ine-\\(?:compiler-macro\\|derived-mode\\|g\\(?:\\(?:eneric\\|lobal\\(?:\\(?:ized\$?-minor\\)\\)-mode\\)\\|m\$?:ethod-combination\\|inor-mode\\|odify-macro\$\\|s\$?:etf-expander\\|keleton\$\\)\\|m\$?:acro\\|ethod\$\\|s\$?:etf\\|ubst\$\\|un\\*?\\)\\)\\s-+\$\\(\\sw\\|\\s_\$+\\)" 2 "Variables" "^\\s-*(\$def\\(?:c\\(?:onst\\(?:ant\$?\\|ustom\\)\\|ine-symbol-macro\\|\$?:paramete\\|va\$r\\)\\)\\s-+\$\\(\\sw\\|\\s_\$+\\)" "Types" "^\\s-*(\$def\\(?:class\\|face\\|group\\|ine-\\(?:condition\\|widget\$\\|package\\|struct\\|t\$?:\\(?:hem\\|yp\$e\\)\\)\\)\\s-+'?\$\\(\\sw\\|\\s_\$+\\)"] 5) (#$ . 1779))
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\311#\210\300\312\302\303#\210\300\313\302\303#\210\300\314\302\303#\210\300\315\302\303#\210\300\316\302\303#\210\300\317\302\311#\210\300\320\302\311#\210\300\321\302\322#\210\300\323\302\303#\210\300\324\302\311#\210\300\325\302\311#\210\300\326\302\311#\210\300\327\302\311#\210\300\330\302\311#\210\300\331\302\332#\210\300\333\302\311#\210\300\334\302\303#\210\300\335\302\311#\210\300\336\302\311#\210\300\337\302\303#\210\300\340\302\303#\210\300\341\302\311#\207" [put autoload doc-string-elt 3 defun defun* defvar defcustom deftheme 2 deftype defconst defmacro defmacro* defsubst defstruct define-skeleton define-derived-mode 4 define-compilation-mode easy-mmode-define-minor-mode define-minor-mode easy-mmode-define-global-mode define-global-minor-mode define-globalized-minor-mode define-generic-mode 7 define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter lambda defalias defvaralias define-category] 4)
#@61 The symbol property that holds the docstring position info.
(defvar lisp-doc-string-elt-property 'doc-string-elt (#$ . 3704))
(defalias 'lisp-font-lock-syntactic-face-function #[(state) "\3068\203s�\3078\211f\310=?\205q�A@\211\205(�\212\nb\210\311\312!\205'�\313\314!)\211\2052�\315!\fN\211\203n�\212\316
!\203E�\314\225b\210
 \nb\210\314u\210\317\320\321\217\210\322
!\205e�`	X\205e�\323d!\210`\3078U)\203n�\202p�+)\207\207" [state startpos listbeg firstsym lisp-doc-string-elt-property docelt 3 8 124 looking-at "([ 	\n]*\$\\(\\sw\\|\\s_\$+\\)" match-string 1 intern-soft functionp nil (byte-code "\302V\203�`	W\203�\303\304!\210S\211\202�\302\207" [docelt startpos 0 forward-sexp 1] 3) ((error)) zerop forward-comment font-lock-doc-face font-lock-string-face font-lock-comment-face] 4])
#@283 Common initialization routine for lisp modes.
The LISP-SYNTAX argument is used by code in inf-lisp.el and is
(uselessly) passed from pp.el, chistory.el, gnus-kill.el and
score-mode.el.  KEYWORDS-CASE-INSENSITIVE non-nil means that for
font-lock keywords will not be case sensitive.
(defalias 'lisp-mode-variables #[(&optional lisp-syntax keywords-case-insensitive) "\203�\306	!\210\n\307\304!\210\310\307\305!\210\311\307\312!\210\313\n\307\314!\210\315\f\307\316!\210\310\307\317!\210\320\307\321!\210\322\307\323!\210\324\307\325!\210\326\307\327!\210\330\307\331!\210\332\307\333!\210\334\307\335!\210\310\307\336!\210%\307\337!\210\310\307\340!\210\341 \342\343&\344BBB\211'\207" [lisp-syntax lisp-mode-syntax-table lisp-mode-abbrev-table local-abbrev-table paragraph-ignore-fill-prefix fill-paragraph-function set-syntax-table make-local-variable t lisp-fill-paragraph adaptive-fill-function #[nil "\300\301!\205�\302\207" [looking-at "\\s-+\"[^\n\"]+\"\\s-*$" ""] 2] indent-line-function lisp-indent-line parse-sexp-ignore-comments outline-regexp ";;;\$;* [^ 	\n]\\|###autoload\$\\|(" outline-level lisp-outline-level comment-start ";" comment-start-skip "\$\\(^\\|[^\\\\\n]\$\$\\\\\\\\\$*\\);+ *" font-lock-comment-start-skip ";+ *" comment-add 1 comment-column 40 comment-use-global-state imenu-generic-expression multibyte-syntax-as-symbol syntax-begin-function beginning-of-defun (lisp-font-lock-keywords lisp-font-lock-keywords-1 lisp-font-lock-keywords-2) nil ((("+-*/.<>=!?$%_&~^:@" . "w")) nil (font-lock-mark-block-function . mark-defun) (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function)) lisp-imenu-generic-expression keywords-case-insensitive font-lock-defaults] 4 (#$ . 4525)])
#@37 Lisp mode `outline-level' function.
(defalias 'lisp-outline-level #[nil "\301\225\301\224Z\302\303!\203�\304\202�)\207" [len 0 looking-at "(\\|;;;###autoload" 1000] 2 (#$ . 6294)])
#@56 Keymap for commands shared by all sorts of Lisp modes.
(defvar lisp-mode-shared-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "" indent-sexp "" backward-delete-char-untabify] 4) (#$ . 6485))
#@95 Keymap for Emacs Lisp mode.
All commands in `lisp-mode-shared-map' are inherited by this map.
(defvar emacs-lisp-mode-map (byte-code "\305\306!\305\306!\305 \305 \307\f\"\210\310\311\312#\210\310\313\314#\210\310\315\316#\210\310\317\306\nB#\210\310\n\320\321#\210\310\n\322\323#\210\310\n\324\325#\210\310\n\326\327B#\210\310\330\331#\210\310\332\333#\210\310\334\335#\210\310\336\337#\210\310\340\341#\210\310\n\342\343	B#\210\310	\344\345#\210\310	\346\347#\210\310	\350\351#\210\310	\352\353#\210\310	\354\355#\210\310	\356\357#\210\310	\360\361#\210\310	\362\363#\210\310\n\364\365#\210\310\n\366\367#\210\310\n\370\371#\210\310\n\372\373#\210\310\n\374\375#\210\310\n\376\377#\210\310\n\201@�\201A�#\210\310\n\201B�\201C�#\210\310\n\201D�\201E�#\210\310\n\201F�\201G�#\210\310\n\201H�\201I�#\210\310\n\201J�\201K�#\210\310\n\201L�\201M�#\210\310\n\201N�\201O�#\210\310\n\201P�\201Q�#\210,\207" [tracing-map prof-map menu-map map lisp-mode-shared-map make-sparse-keymap "Emacs-Lisp" set-keymap-parent define-key "	" lisp-complete-symbol "" eval-defun "" indent-pp-sexp [menu-bar emacs-lisp] [eldoc] (menu-item "Auto-Display Documentation Strings" eldoc-mode :button (:toggle bound-and-true-p eldoc-mode) :help "Display the documentation string for the item under cursor") [checkdoc] (menu-item "Check Documentation Strings" checkdoc :help "Check documentation strings for style requirements") [re-builder] (menu-item "Construct Regexp" re-builder :help "Construct a regexp interactively") [tracing] "Tracing" [tr-a] (menu-item "Untrace all" untrace-all :help "Untrace all currently traced functions") [tr-uf] (menu-item "Untrace function..." untrace-function :help "Untrace function, and possibly activate all remaining advice") [tr-sep] ("--") [tr-q] (menu-item "Trace function quietly..." trace-function-background :help "Trace the function with trace output going quietly to a buffer") [tr-f] (menu-item "Trace function..." trace-function :help "Trace the function given as an argument") [profiling] "Profiling" [prof-restall] (menu-item "Remove Instrumentation for All Functions" elp-restore-all :help "Restore the original definitions of all functions being profiled") [prof-restfunc] (menu-item "Remove Instrumentation for Function..." elp-restore-function :help "Restore an instrumented function to its original definition") [sep-rem] ("--") [prof-resall] (menu-item "Reset Counters for All Functions" elp-reset-all :help "Reset the profiling information for all functions being profiled") [prof-resfunc] (menu-item "Reset Counters for Function..." elp-reset-function :help "Reset the profiling information for a function") [prof-res] (menu-item "Show Profiling Results" elp-results :help "Display current profiling results") [prof-pack] (menu-item "Instrument Package..." elp-instrument-package :help "Instrument for profiling all function that start with a prefix") [prof-func] (menu-item "Instrument Function..." elp-instrument-function :help "Instrument a function for profiling") [edebug-defun] (menu-item "Instrument Function for Debugging" edebug-defun :help "Evaluate the top level form point is in, stepping through with Edebug" :keys "C-u C-M-x") [separator-byte] ("--") [disas] (menu-item "Disassemble byte compiled object..." disassemble :help "Print disassembled code for OBJECT in a buffer") [byte-recompile] (menu-item "Byte-recompile Directory..." byte-recompile-directory :help "Recompile every `.el' file in DIRECTORY that needs recompilation") [emacs-byte-compile-and-load] (menu-item "Byte-compile And Load" emacs-lisp-byte-compile-and-load :help "Byte-compile the current file (if it has changed), then load compiled code") [byte-compile] (menu-item "Byte-compile This File" emacs-lisp-byte-compile :help "Byte compile the file containing the current buffer") [separator-eval] ("--") [ielm] (menu-item "Interactive Expression Evaluation" ielm :help "Interactively evaluate Emacs Lisp expressions") [eval-buffer] (menu-item "Evaluate Buffer" eval-buffer :help "Execute the current buffer as Lisp code") [eval-region] (menu-item "Evaluate Region" eval-region :help "Execute the region as Lisp code" :enable mark-active) [eval-sexp] (menu-item "Evaluate Last S-expression" eval-last-sexp :help "Evaluate sexp before point; print value in minibuffer") [separator-format] ("--") [comment-region] (menu-item "Comment Out Region" comment-region :help "Comment or uncomment each line in the region" :enable mark-active) [indent-region] (menu-item "Indent Region" indent-region :help "Indent each nonblank line in the region" :enable mark-active) [indent-line] ("Indent Line" . lisp-indent-line)] 5) (#$ . 6740))
#@54 Byte compile the file containing the current buffer.
(defalias 'emacs-lisp-byte-compile #[nil "\203�\301!\207\302\303!\207" [buffer-file-name byte-compile-file error "The buffer must be saved in a file first"] 2 (#$ . 11404) nil])
#@77 Byte-compile the current file (if it has changed), then load compiled code.
(defalias 'emacs-lisp-byte-compile-and-load #[nil "\204�\302\303!\210\304\305!\210\306 \203�\307\310\311\312 \"!\203�\313 \210\314!\315	\"\203/�\316	!\2023�\317\320\")\207" [buffer-file-name compiled-file-name error "The buffer must be saved in a file first" require bytecomp buffer-modified-p y-or-n-p format "Save buffer %s first? " buffer-name save-buffer byte-compile-dest-file file-newer-than-file-p load-file byte-compile-file t] 4 (#$ . 11644) nil])
#@41 Hook run when entering Emacs Lisp mode.
(custom-declare-variable 'emacs-lisp-mode-hook 'nil '(#$ . 12191) :options '(turn-on-eldoc-mode imenu-add-menubar-index checkdoc-minor-mode) :type 'hook :group 'lisp)
#@35 Hook run when entering Lisp mode.
(custom-declare-variable 'lisp-mode-hook 'nil '(#$ . 12404) :options '(imenu-add-menubar-index) :type 'hook :group 'lisp)
#@47 Hook run when entering Lisp Interaction mode.
(custom-declare-variable 'lisp-interaction-mode-hook 'nil '(#$ . 12566) :options '(turn-on-eldoc-mode) :type 'hook :group 'lisp)
#@282 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.
(defalias 'emacs-lisp-mode #[nil "\305 \210\306!\210\307	!\210\310\311\312 \210\313\314\315!\207" [emacs-lisp-mode-map emacs-lisp-mode-syntax-table major-mode mode-name imenu-case-fold-search kill-all-local-variables use-local-map set-syntax-table emacs-lisp-mode "Emacs-Lisp" lisp-mode-variables nil run-mode-hooks emacs-lisp-mode-hook] 2 (#$ . 12748) nil])
(put 'emacs-lisp-mode 'custom-mode-group 'lisp)
#@98 Keymap for ordinary Lisp mode.
All commands in `lisp-mode-shared-map' are inherited by this map.
(defvar lisp-mode-map (byte-code "\303 \303\304!\305	\n\"\210\306	\307\310#\210\306	\311\312#\210\306	\313\304B#\210\306\314\315#\210\306\316\317#\210\306\320\321#\210	*\207" [menu-map map lisp-mode-shared-map make-sparse-keymap "Lisp" set-keymap-parent define-key "" lisp-eval-defun "" run-lisp [menu-bar lisp] [run-lisp] (menu-item "Run inferior Lisp" run-lisp :help "Run an inferior Lisp process, input and output via buffer `*inferior-lisp*'") [ev-def] (menu-item "Eval defun" lisp-eval-defun :help "Send the current defun to the Lisp process made by M-x run-lisp") [ind-sexp] (menu-item "Indent sexp" indent-sexp :help "Indent each line of the list starting just after point")] 5) (#$ . 13446))
#@399 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.
(defalias 'lisp-mode #[nil "\306 \210\307!\210\310\311\312\313\314\"\210\315\303!\210\316\314\317
!\210\320\321!\207" [lisp-mode-map major-mode mode-name comment-start-skip imenu-case-fold-search lisp-mode-syntax-table kill-all-local-variables use-local-map lisp-mode "Lisp" lisp-mode-variables nil t make-local-variable "\$\\(^\\|[^\\\\\n]\$\$\\\\\\\\\$*\\)\$;+\\|#|\$ *" set-syntax-table run-mode-hooks lisp-mode-hook] 3 (#$ . 14260) nil])
(put 'lisp-mode 'find-tag-default-function 'lisp-find-tag-default)
(defalias 'lisp-find-tag-default #[nil "\301 \211;\205�\302\303\"\203�\304\225\305O\202�)\207" [default find-tag-default string-match ":+" 0 nil] 4])
(defalias 'common-lisp-mode 'lisp-mode)
#@65 Send the current defun to the Lisp process made by \[run-lisp].
(defalias 'lisp-eval-defun #[(&optional and-go) "\300\301!\207" [error "Process lisp does not exist"] 2 (#$ . 15381) nil])
#@101 Keymap for Lisp Interaction mode.
All commands in `lisp-mode-shared-map' are inherited by this map.
(defvar lisp-interaction-mode-map (byte-code "\303 \303\304!\305	\n\"\210\306	\307\310#\210\306	\311\312#\210\306	\313\314#\210\306	\315\316#\210\306	\317\304B#\210\306\320\321#\210\306\322\323#\210\306\324\325#\210\306\326\327#\210\306\330\331#\210	*\207" [menu-map map lisp-mode-shared-map make-sparse-keymap "Lisp-Interaction" set-keymap-parent define-key "" eval-defun "" indent-pp-sexp "	" lisp-complete-symbol "\n" eval-print-last-sexp [menu-bar lisp-interaction] [eval-defun] (menu-item "Evaluate Defun" eval-defun :help "Evaluate the top-level form containing point, or after point") [eval-print-last-sexp] (menu-item "Evaluate and print" eval-print-last-sexp :help "Evaluate sexp before point; print value into current buffer") [edebug-defun-lisp-interaction] (menu-item "Instrument Function for Debugging" edebug-defun :help "Evaluate the top level form point is in, stepping through with Edebug" :keys "C-u C-M-x") [indent-pp-sexp] (menu-item "Indent or Pretty-Print" indent-pp-sexp :help "Indent each line of the list starting just after point, or prettyprint it") [lisp-complete-symbol] (menu-item "Complete Lisp Symbol" lisp-complete-symbol :help "Perform completion on Lisp symbol preceding point")] 5) (#$ . 15575))
(byte-code "\302B\303\302!\204�\304\302	\"\210\305\306N\204�\307\305\306\310#\210\311\312!\204'�\307\312\313\314#\210\312B\303\312!\2047�\304\312\315 \"\210\311\316!\204C�\307\316\313\314#\210\316B\303\316!\204S�\304\316\317 \"\210\307\302\313\314#\210\302B\303\302!\204m�\304\302\320\302\321\"\210\n\"\210\307\314\322\323#\207" [current-load-list lisp-mode-abbrev-table lisp-interaction-mode-abbrev-table default-boundp set-default lisp-interaction-mode-hook variable-documentation put "Hook run when entering Lisp Interaction mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp lisp-interaction-mode-map definition-name lisp-interaction-mode make-sparse-keymap lisp-interaction-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent emacs-lisp-mode] 5)
#@554 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.
Note that printing is controlled by `eval-expression-print-length'
and `eval-expression-print-level'.

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.
(defalias 'lisp-interaction-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2036�
\321 =\203<�\322\f\323 \"\210)\324!\210\325\f!\210)\326\327!\207" [delay-mode-hooks major-mode mode-name lisp-interaction-mode-map lisp-interaction-mode-syntax-table parent make-local-variable t emacs-lisp-mode lisp-interaction-mode "Lisp Interaction" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table run-mode-hooks lisp-interaction-mode-hook lisp-interaction-mode-abbrev-table local-abbrev-table] 6 (#$ . 17806) nil])
#@332 Evaluate sexp before point; print value into current buffer.

If `eval-expression-debug-on-error' is non-nil, which is the default,
this command arranges for all errors to enter the debugger.

Note that printing the result is controlled by the variables
`eval-expression-print-length' and `eval-expression-print-level',
which see.
(defalias 'eval-print-last-sexp #[nil "p\301 \210\302\303!\210\301 )\207" [standard-output terpri eval-last-sexp t] 2 (#$ . 19077) nil])
#@255 Set up text properties for the output of `eval-last-sexp-1'.
BEG and END are the start and end of the output in current-buffer.
VALUE is the Lisp value printed, ALT1 and ALT2 are strings for the
alternative printed representations that can be displayed.
(defalias 'last-sexp-setup-props #[(beg end value alt1 alt2) "\306 \307\310\311#\210\307\312\313#\210\307\314\311#\210\315	\n\316\f
E\317\320\321\322BBBBBB#)\207" [map beg end value alt1 alt2 make-sparse-keymap define-key "
" last-sexp-toggle-display [down-mouse-2] mouse-set-point [mouse-2] add-text-properties printed-value mouse-face highlight keymap (help-echo "RET, mouse-2: toggle abbreviated display" rear-nonsticky (mouse-face keymap help-echo printed-value))] 10 (#$ . 19553)])
#@71 Toggle between abbreviated and unabbreviated printed representations.
(defalias 'last-sexp-toggle-display #[(&optional arg) "\214~\210\305`\306\"\211\205I�\307d`T^\306\"\206�`\310`\306\"\206�`p`\211|\210A@c\210\f	U\2047�`S\311\f`@\3128A@%\210d	^b,*\207" [value point standard-output end beg get-text-property printed-value previous-single-property-change next-single-char-property-change last-sexp-setup-props 2] 7 (#$ . 20306) "P"])
#@117 Return a string representing CHAR as a character rather than as an integer.
If CHAR is not a character, return nil.
(defalias 'prin1-char #[(char) "\250\205~�\211\250\203#�\306\307	\310\311\312\313\"S!\"!\203#�\314\315	!!\206=�	9\203.�	\316N\206=�	:\205=�	@9\205=�	@\316N)\205~�\315!\317!\320\321>\203j�\306\307\322\"!\203j�\320\323\f\211\226\")\204j�\f\226\320\320\324\325\217\210\n\205}�\326\n!@U\205}�\n+\207" [char obj string mods c case-fold-search zerop logand lognot lsh 134217728 1 characterp event-basic-type event-symbol-elements event-modifiers nil shift 33554432 char-equal (byte-code "\303\304\305\306#	\307>\203�\302\310	\"\202 �	\311=\203�\312\202 �\302	!Q\304\207" [mods c string "?" mapconcat #[(modif) "\301=\203�\302\207\303\304\305!\306H\226\307#\207" [modif super "\\s-" string 92 symbol-name 0 45] 4] "" (59 40 41 123 125 91 93 34 39 92) 92 127 "\\C-?"] 5) ((error)) read-from-string] 8 (#$ . 20760)])
#@31 Return sexp before the point.
(defalias 'preceding-sexp #[nil "`\306\211\212\307 p\310\216\311
!\210g\312=\206�h\312=\313\314!\210h\315=\2032�\314u\210h\316=\2032�\314u\210h\317=\203P�\306\212\320\306x\210\321\322!)\203O�\313\314!\210)\214	\203^�g\323=\203^�\306u\210e\n}\210\324p!\211:\203|�@\325=\203|�\326\327\330\331\332FDD.\207" [expr ignore-quotes opoint #1=#:buffer #2=#:table emacs-lisp-mode-syntax-table nil syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table 39 forward-sexp -1 92 63 61 "0-9#=" looking-at "\$#[0-9]+=\$+" 96 read interactive call-interactively quote lambda (&rest args) args labeled-p] 7 (#$ . 21711)])
#@105 Evaluate sexp before point; print value in minibuffer.
With argument, print output into current buffer.
(defalias 'eval-last-sexp-1 #[(eval-last-sexp-arg-internal) "\203�p\202	�\302\303\304\305 !!)\207" [eval-last-sexp-arg-internal standard-output t eval-last-sexp-print-value eval preceding-sexp] 3 (#$ . 22419)])
(defalias 'eval-last-sexp-print-value #[(value) "\306\211\307\n!*\f`\306\310\n!\311\n!\211\203$�\312!\210)`\313!\203O�	\2046�\203O�\314
\"\230\204O�\315
\n\314
\"%\210-\207" [print-level print-length value eval-expression-print-length eval-expression-print-level end nil prin1-to-string prin1 eval-expression-print-format princ bufferp buffer-substring-no-properties last-sexp-setup-props beg unabbreviated str standard-output] 10])
(byte-code "\301B\302\301!\204�\303\301\304\305!\"\210\301\207" [current-load-list eval-last-sexp-fake-value default-boundp set-default make-symbol "t"] 4)
#@386 Evaluate sexp before point; print value in minibuffer.
Interactively, with prefix argument, print output into current buffer.
Truncates long output according to the value of the variables
`eval-expression-print-length' and `eval-expression-print-level'.

If `eval-expression-debug-on-error' is non-nil, which is the default,
this command arranges for all errors to enter the debugger.
(defalias 'eval-last-sexp #[(eval-last-sexp-arg-internal) "\204�\305	!\207\n\305	!)B\211A\n=\204�\fA\f@)\207" [eval-expression-debug-on-error eval-last-sexp-arg-internal eval-last-sexp-fake-value debug-on-error value eval-last-sexp-1] 3 (#$ . 23364) "P"])
#@166 Treat some expressions specially.
Reset the `defvar' and `defcustom' variables to the initial value.
Reinitialize the face according to the `defface' specification.
(defalias 'eval-defun-1 #[(form) "<\204�\207@\303=\2035�\243\243\2035�\304\211A@)!\2035�\305\303A@\306\307\233BBB\310A@\3118EE\207@\312=\203W�\313\314A@!!\203W�\315\314A@!\314\3118A@!\"\210\207@\316=\203\227�\317\314A@!\n\"\320\314A@!\321\306#\210\322\320A@\323\324\314A@!\325NDF\320A@\326\3118FF\320\314A@!\325\306#\210\207@\305=\203\246�\305\327\330A\"B\207\207" [form x face-new-frame-defaults defvar boundp progn nil 3 setq-default 2 custom-declare-variable default-boundp eval set-default custom-declare-face assq-delete-all put face-defface-spec prog1 'saved-face quote saved-face 'customized-face mapcar eval-defun-1] 9 (#$ . 24019)])
#@430 Evaluate defun that point is in or before.
The value is displayed in the minibuffer.
If the current defun is actually a call to `defvar',
then reset the variable using the initial value expression
even if the variable already has some other value.
(Normally `defvar' does not change the variable's value
if it already has a value.)

With argument, insert value in current buffer after the defun.
Return the result of evaluation.
(defalias 'eval-defun-2 #[nil "	\n\212\306\307\310\311\211\211\212\312 \210\313 \210`\314p!`)\315\316!!\317\320\321D\322DFF,\"\210,@\207" [eval-expression-debug-on-error eval-expression-print-length eval-expression-print-level print-level print-length debug-on-error apply eval-region t nil end-of-defun beginning-of-defun read eval-defun-1 macroexpand lambda (ignore) goto-char quote form end beg standard-output values] 10 (#$ . 24862) "P"])
#@1067 Evaluate the top-level form containing point, or after point.

If the current defun is actually a call to `defvar' or `defcustom',
evaluating it this way resets the variable using its initial value
expression even if the variable already has some other value.
(Normally `defvar' and `defcustom' do not alter the value if there
already is one.)  In an analogous way, evaluating a `defface'
overrides any customizations of the face, so that it becomes
defined exactly as the `defface' expression says.

If `eval-expression-debug-on-error' is non-nil, which is the default,
this command arranges for all errors to enter the debugger.

With a prefix argument, instrument the code for Edebug.

If acting on a `defun' for FUNCTION, and the function was
instrumented, `Edebug: FUNCTION' is printed in the minibuffer.  If not
instrumented, just FUNCTION is printed.

If not acting on a `defun', the result of evaluation is displayed in
the minibuffer.  This display is controlled by the variables
`eval-expression-print-length' and `eval-expression-print-level',
which see.
(defalias 'eval-defun #[(edebug-it) "\203
�\306\307!\210\310	?!\207\n\204�\311 \207\312\313!\314\211\211
\311 
)
\f=\204/�\f
+\207" [edebug-it edebug-all-defs eval-expression-debug-on-error value new-value old-value require edebug eval-defun eval-defun-2 make-symbol "t" nil debug-on-error] 4 (#$ . 25777) "P"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\310#\207" [defalias lisp-comment-indent comment-indent-default nil make-obsolete "22.1" lisp-mode-auto-fill do-auto-fill "23.1"] 4)
#@71 If non-nil, indent second line of expressions that many more columns.
(custom-declare-variable 'lisp-indent-offset 'nil '(#$ . 27392) :group 'lisp :type '(choice (const nil) integer))
(put 'lisp-body-indent 'safe-local-variable #[(x) "?\206�\250\207" [x] 1])
#@282 A function to be called by `calculate-lisp-indent'.
It indents the arguments of a Lisp function call.  This function
should accept two arguments: the indent-point, and the
`parse-partial-sexp' state at that position.  One option for this
function is `common-lisp-indent-function'.
(defvar lisp-indent-function 'lisp-indent-function (#$ . 27661))
#@130 Indent current line as Lisp code.
With argument, indent any additional lines of the same expression
rigidly along with this one.
(defalias 'lisp-indent-line #[(&optional whole-exp) "\306 \307\211d`Z\310 \210`\311\307w\210\f\203�\312\313!\203%�d	Zb\202\211�\312\314!\203:�\312\315!\204:�\316 \210\317u\210\202S�\f<\203B�\f@\fiZ\320!\204S�`|\210\fj\210d	Z`V\203`�d	Zb\210
\205\211�\320!?\205\211�\212b\210\321\322!\210`b\210\322y\210`\nV)\205\211�\323\n#-\207" [beg pos end shift-amt indent whole-exp calculate-lisp-indent nil beginning-of-line " 	" looking-at "\\s<\\s<\\s<" "\\s<" "\\s<\\s<" indent-for-comment -1 zerop forward-sexp 1 indent-code-rigidly] 5 (#$ . 28014) "P"])
#@553 Return appropriate indentation for current line as Lisp code.
In usual case returns an integer: the column to indent to.
If the value is nil, that means don't change the indentation
because the line starts inside a string.

The value can also be a list of the form (COLUMN CONTAINING-SEXP-START).
This means that following lines at the same level of indentation
should not necessarily be indented the same as this line.
Then COLUMN is the column to indent to, and CONTAINING-SEXP-START
is the buffer position of the start of the containing expression.
(defalias 'calculate-lisp-indent #[(&optional parse-start) "\212\306 \210`\307\211\211\310\307\211\203�b\210\202\"�\311 \210`W\2033�\312`\313#\202\"�\n\203t�
\203t�
\313\234\211\313V\203t�\307
\314\234
\315\234\211Tb\210	\2033�	`V\2033�\312	\313#\211A@\211\203p�)\2023�\n\204\304�Tb\210	\204\205�i\202\304�\312`	\313\310$\210\316\317!\204\304�\212\315y\210`)	V\203\264�`	U\204\256�\320\315!\210\312`	\313\310$\210\321 \210\202\304�	b\210\306 \210\312`	\313\310$\210\321 \210i
\322\234\203\321�\307\202\205\250\203\345�\203\345�b\210i\\\202\205	\203\203\373�\n\204\373�
\"\206\205\212b\210\323\307w\210\316\324!)\203z\212	b\210\321 \210\325\326!\204-\203#T`W\203-\320\327!\210\321 \210\202`\211)\203z	\212Tb\210\312`	\313\310$\210`)V\203z\310\307 	b\210\316\324!\203]i\211\204t\212\306 \210`)\330 \210`W\203t\316\324!\203ti*\206\205\202\205\206\205.	\207" [containing-sexp calculate-lisp-indent-last-sexp retry desired-indent paren-depth state beginning-of-line nil t beginning-of-defun parse-partial-sexp 0 2 1 looking-at "\\s(" forward-sexp backward-prefix-chars 3 " 	" ":" looking-back "^[ 	]*\\|([ 	]+" -1 backward-sexp indent-point parse-start peek normal-indent lisp-indent-offset lisp-indent-function indent parse-sexp-ignore-comments] 8 (#$ . 28716)])
#@991 This function is the normal value of the variable `lisp-indent-function'.
It is used when indenting a line within a function call, to see if the
called function says anything special about how to indent the line.

INDENT-POINT is the position where the user typed TAB, or equivalent.
Point is located at the point to indent under (for default indentation);
STATE is the `parse-partial-sexp' state for that position.

If the current line is in a call to a Lisp function
which has a non-nil property `lisp-indent-function',
that specifies how to do the indentation.  The property value can be
* `defun', meaning indent `defun'-style;
* an integer N, meaning indent the first N arguments specially
  like ordinary function arguments and then indent any further
  arguments like a body;
* a function to call just as this function was called.
  If that function returns nil, that means it doesn't specify
  the indentation.

This function also returns nil meaning don't specify the indentation.
(defalias 'lisp-indent-function #[(indent-point state) "i	\306\234Tb\210\307`\n\310\311$\210	\312\234\203:�\313\314!\204:�\212\306y\210`)\nV\2043�\nb\210\315 \210\307`\n\310\311$\210\316 \210i\202\210�`\317\306!\210`{\320\321\f!\322N\206Q�\321\f!\323N\211\324=\204j�\204q�\fG\325V\203q�\326\327\f\"\203q�\330	
\"\202\207�\250\203�\331	
$\202\207�\205\207�
	\"*)\207" [normal-indent state calculate-lisp-indent-last-sexp method function indent-point 1 parse-partial-sexp 0 t 2 looking-at "\\sw\\|\\s_" beginning-of-line backward-prefix-chars forward-sexp nil intern-soft lisp-indent-function lisp-indent-hook defun 3 string-match "\\`def" lisp-indent-defform lisp-indent-specform] 6 (#$ . 30620)])
#@67 Number of columns to indent the second line of a `(def...)' form.
(custom-declare-variable 'lisp-body-indent '2 '(#$ . 32324) :group 'lisp :type 'integer)
(put 'lisp-body-indent 'safe-local-variable 'integerp)
(defalias 'lisp-indent-specform #[(count state indent-point normal-indent) "\306\234	\307\211\211b\210i\n\\\306u\210\310\306!\210\311`\306\312$\210`W\2031�\307\313\314\217\204#�	\315V\203Q�\f	Z\306X\203J�\n\316_\\
D\202p�
D\202p�\f\315U\203]�	\315U\204j�	\315U\203n�X\203n�\202p�,\207" [state count containing-form-column body-indent i containing-form-start 1 nil forward-sexp parse-partial-sexp t (byte-code "S\302\303!\210\304`	\303\305$\207" [count indent-point forward-sexp 1 parse-partial-sexp t] 5) ((error)) 0 2 lisp-body-indent indent-point normal-indent] 6])
(defalias 'lisp-indent-defform #[(state indent-point) "A@b\210\302y\210`AA@V\205�A@b\210	i\\\207" [state lisp-body-indent 1] 2])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\306#\210\300\307\302\310#\210\300\311\302\312#\210\300\313\302\306#\210\300\314\302\306#\210\300\315\302\306#\210\300\316\302\306#\210\300\317\302\306#\210\300\320\302\306#\210\300\321\302\310#\210\300\322\302\306#\210\300\323\302\306#\210\300\324\302\310#\210\300\325\302\306#\210\300\326\302\310#\210\300\327\302\310#\210\300\330\302\310#\210\300\331\302\310#\210\300\332\302\310#\210\300\333\302\312#\210\300\334\302\312#\210\300\335\302\310#\210\300\336\302\312#\210\300\337\302\310#\210\300\340\302\310#\210\300\341\302\310#\210\300\342\302\310#\210\300\343\302\310#\210\300\344\302\310#\210\300\345\302\310#\207" [put lambda lisp-indent-function defun autoload progn 0 prog1 1 prog2 2 save-excursion save-window-excursion save-selected-window save-restriction save-match-data save-current-buffer with-current-buffer combine-after-change-calls with-output-to-string with-temp-file with-temp-buffer with-temp-message with-syntax-table let let* while if read-if catch condition-case unwind-protect with-output-to-temp-buffer eval-after-load dolist dotimes when unless] 4)
#@145 Indent each line of the list starting just after point.
If optional arg ENDPOS is given, indent each line, stopping when
ENDPOS is encountered.
(defalias 'indent-sexp #[(&optional endpos) "\306C\307?\205	�``\306\211\211\211\211\211\204)�\212\310\311!\210)\212\306\2036�`W\2028�\f?\205w\306\204\206�m\211\204\206�\312`\306\210`\306\211\n%\211@\313\n\233@\203m�\314 \210\306\210\313\n\233\306\240\210\315\n\233@\203\200�\311y\210\316\n\233\306\240\210\202A�\317\211\203E�\203\246�\307X\203\246�\320[\306\"\244Z\307\311y\210\203\270�`X\203\301�\317\202\301�\307X\203\301�\317\f\204dV\203\333�AS\211\202\307�W\203\362�\306BT\211\202\335�`\321\306w\210m\204d\322\323!\204d@\203@\307Y\203@\202S\324@\203%@[\202'!\211\2044\202R\250\203E\211\240\210\202RA@[\240\210@)	\203di	U\204d
`|\210	j\210\f\204,�`U\211\204,�`\202,�.\207" [endpos this-indent state inner-loop-done outer-loop-done bol nil 0 forward-sexp 1 parse-partial-sexp 4 indent-for-comment 3 5 t make-list " 	" looking-at "\\s<\\|\n" calculate-lisp-indent last-depth last-point starting-point next-depth indent-stack val] 11 (#$ . 34409) nil])
#@72 Indent every line whose first char is between START and END inclusive.
(defalias 'lisp-indent-region #[(start end) "\212\303!\nb\210n\203�l\204�\304 \210\305	!\210	\306\211\223*\207" [end endmark start copy-marker lisp-indent-line indent-sexp nil] 3 (#$ . 35648)])
#@121 Indent each line of the list starting just after point, or prettyprint it.
A prefix argument specifies pretty-printing.
(defalias 'indent-pp-sexp #[(&optional arg) "\203!�\212\214`\301\302!\210`}\210\303 \210db\210`Sf\304=\203 �\305\306!\210*\307 \207" [arg forward-sexp 1 pp-buffer 10 delete-char -1 indent-sexp] 3 (#$ . 35924) "P"])
#@156 Value of `fill-column' to use when filling a docstring.
Any non-integer value means do not use a different value of
`fill-column' when filling docstrings.
(custom-declare-variable 'emacs-lisp-docstring-fill-column '65 '(#$ . 36267) :type '(choice (integer) (const :tag "Use the current `fill-column'" t)) :group 'lisp)
#@232 Like \[fill-paragraph], but handle Emacs Lisp comments and docstrings.
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.
(defalias 'lisp-fill-paragraph #[(&optional justify) "\305!\206'�	\306P\n\307P\250\203�\310\311!\203�\202�\f\312!+\206'�\313\207" [justify paragraph-start paragraph-separate emacs-lisp-docstring-fill-column fill-column fill-comment-paragraph "\\|\\s-*\$[(;:\"]\\|`(\\|#'(\$" "\\|\\s-*\".*[,\\.]$" derived-mode-p emacs-lisp-mode fill-paragraph t] 4 (#$ . 36593) "P"])
#@366 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.
(defalias 'indent-code-rigidly #[(start end arg &optional nochange-regexp) "\306\212	b\210\307 \nb\210n\204�\310`\311y\210`\306\211%`	W\205Y�\312\233@\204K�\2032�\313!\204K�\314 `\315\306w\210`|\210l\204J�\316\317\f
\\]\317\"\210)\310`\311y\210`\306\211%\202�*\207" [state end start nochange-regexp indent arg nil point-marker parse-partial-sexp 1 3 looking-at current-indentation " 	" indent-to 0] 6 (#$ . 37210) "r\np"])
(provide 'lisp-mode)

${this.title}

Code Editor : lisp-mode.elc