;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\301\302!\210\301\303!\210\304\305\306\307\310C%\207" [lisp-mode-abbrev-table require cl-generic lisp-mode define-abbrev-table emacs-lisp-mode-abbrev-table nil "Abbrev table for Emacs Lisp mode.\nIt has `lisp-mode-abbrev-table' as its parent." :parents] 6)
#@41 Syntax table used in `emacs-lisp-mode'.
(defvar emacs-lisp-mode-syntax-table (make-syntax-table lisp-data-mode-syntax-table) (#$ . 354))
#@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 "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\207" [lisp-mode-shared-map make-sparse-keymap set-keymap-parent define-key "	" completion-at-point "" eval-defun "" indent-pp-sexp] 5) (#$ . 497))
#@27 Menu for Emacs Lisp mode.
(defvar emacs-lisp-mode-menu nil (#$ . 861))
(easy-menu-do-define 'emacs-lisp-mode-menu emacs-lisp-mode-map "Menu for Emacs Lisp mode." '("Emacs-Lisp" ["Indent Line" lisp-indent-line] ["Indent Region" indent-region :help "Indent each nonblank line in the region" :active mark-active] ["Comment Out Region" comment-region :help "Comment or uncomment each line in the region" :active mark-active] "---" ["Evaluate Last S-expression" eval-last-sexp :help "Evaluate sexp before point; print value in echo area"] ["Evaluate Region" eval-region :help "Execute the region as Lisp code" :active mark-active] ["Evaluate Buffer" eval-buffer :help "Execute the current buffer as Lisp code"] ["Interactive Expression Evaluation" ielm :help "Interactively evaluate Emacs Lisp expressions"] "---" ["Byte-compile This File" emacs-lisp-byte-compile :help "Byte compile the file containing the current buffer"] ["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-recompile Directory..." byte-recompile-directory :help "Recompile every `.el' file in DIRECTORY that needs recompilation"] ["Disassemble Byte Compiled Object..." disassemble :help "Print disassembled code for OBJECT in a buffer"] "---" ["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"] ("Navigation" ["Forward Sexp" forward-sexp :help "Go to the next s-expression"] ["Backward Sexp" backward-sexp :help "Go to the previous s-expression"] ["Beginning Of Defun" beginning-of-defun :help "Go to the start of the current function definition"] ["Up List" up-list :help "Go one level up and forward"]) ("Linting" ["Lint Defun" elint-defun :help "Lint the function at point"] ["Lint Buffer" elint-current-buffer :help "Lint the current buffer"] ["Lint File..." elint-file :help "Lint a file"] ["Lint Directory..." elint-directory :help "Lint a directory"]) ("Profiling" ["Start Native Profiler..." profiler-start :help "Start recording profiling information"] ["Show Profiler Report" profiler-report :help "Show the current profiler report" :active (and (featurep 'profiler) (profiler-running-p))] ["Stop Native Profiler" profiler-stop :help "Stop recording profiling information" :active (and (featurep 'profiler) (profiler-running-p))] "---" ["Instrument Function..." elp-instrument-function :help "Instrument a function for profiling"] ["Instrument Package..." elp-instrument-package :help "Instrument for profiling all function that start with a prefix"] ["Show Profiling Results" elp-results :help "Display current profiling results"] ["Reset Counters for Function..." elp-reset-function :help "Reset the profiling information for a function"] ["Reset Counters for All Functions" elp-reset-all :help "Reset the profiling information for all functions being profiled"] "---" ["Remove Instrumentation for All Functions" elp-restore-all :help "Restore the original definitions of all functions being profiled"] ["Remove Instrumentation for Function..." elp-restore-function :help "Restore an instrumented function to its original definition"]) ("Tracing" ["Trace Function..." trace-function :help "Trace the function given as an argument"] ["Trace Function Quietly..." trace-function-background :help "Trace the function with trace output going quietly to a buffer"] "---" ["Untrace All" untrace-all :help "Untrace all currently traced functions"] ["Untrace Function..." untrace-function :help "Untrace function, and possibly activate all remaining advice"]) ["Construct Regexp" re-builder :help "Construct a regexp interactively"] ["Check Documentation Strings" checkdoc :help "Check documentation strings for style requirements"] ["Auto-Display Documentation Strings" eldoc-mode :help "Display the documentation string for the item under cursor" :style toggle :selected (bound-and-true-p eldoc-mode)]))
#@68 Populate MENU with symbol help commands at CLICK.

(fn MENU CLICK)
(defalias 'elisp-context-menu #[514 "\301
\302\"\203\261\303\304\305$\210\301
\302\306#\211;\205\307
!\2119\204$\310\202s\311
!\2034\312
!\2044\313\202s\312
!\203J\314
!\204J\311
!\204J\315\202s\314
!\203`\312
!\204`\311
!\204`\316\202s\312
!\204r\314
!\204r\311
!\205s\317\211\203\257\303\320\321\322\323\324\325\326\327DDF\330\331\332\n\"\257\333$\210\303\334\321\331\335E\323\336\337\340\327DDF\330\331\341\n\"\257\333$\210\266
\207" [menu-bar-separator thing-at-mouse symbol define-key-after [elisp-separator] middle-separator t intern nil facep fboundp "Face" boundp "Function" "Variable" "Symbol" [info-lookup-symbol] menu-item "Look up in Manual" lambda (_click) (interactive "e") info-lookup-symbol quote :help format "Find `%s' in relevant manual" elisp-separator [describe-symbol] "Describe %s" (_click) (interactive "e") describe-symbol "Display the documentation of `%s'"] 16 (#$ . 4833)])
#@54 Byte compile the file containing the current buffer.
(defalias 'emacs-lisp-byte-compile #[0 "\203\301!\207\302\303!\207" [buffer-file-name byte-compile-file error "The buffer must be saved in a file first"] 2 (#$ . 5843) [nil (emacs-lisp-mode)]])
#@49 Make sure the buffer is saved before compiling.
(defalias 'emacs-lisp--before-compile-buffer #[0 "\204\301\302!\210\303 \205\304\305\306\307 \"!\205\310 \207" [buffer-file-name error "The buffer must be saved in a file first" buffer-modified-p y-or-n-p format "Save buffer %s first? " buffer-name save-buffer] 4 (#$ . 6100)])
#@77 Byte-compile the current file (if it has changed), then load compiled code.
(defalias 'emacs-lisp-byte-compile-and-load #[0 "\301 \210\302\303!\210\304\305\306#\210\307\310!!\207" [buffer-file-name emacs-lisp--before-compile-buffer require bytecomp byte-recompile-file nil 0 load byte-compile-dest-file] 4 (#$ . 6439) [nil (emacs-lisp-mode)]])
#@260 Native-compile synchronously the current file (if it has changed).
Load the compiled code when finished.

Use `emacs-lisp-byte-compile-and-load' in combination with
`inhibit-automatic-native-compilation' set to nil to achieve
asynchronous native compilation.
(defalias 'emacs-lisp-native-compile-and-load #[0 "\301 \210\302\303!!\207" [buffer-file-name emacs-lisp--before-compile-buffer load native-compile] 3 (#$ . 6792) [nil (emacs-lisp-mode)]])
#@70 Macroexpand the form after point.
Comments in the form will be lost.
(defalias 'emacs-lisp-macroexpand #[0 "`\300p!\301
!

\232\203\302\303!\207`|\210\304
p\"\210n\203\"\305\306!\210\307`\"\207" [read macroexpand-1 message "Not a macro call, nothing to expand" pp delete-char -1 indent-region] 6 (#$ . 7247) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable emacs-lisp-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run when entering Emacs Lisp mode." :options (eldoc-mode imenu-add-menubar-index checkdoc-minor-mode) :type hook :group lisp] 10)
#@67 Set `electric-pair-text-pairs' for all `emacs-lisp-mode' buffers.
(defalias 'emacs-lisp-set-electric-text-pairs #[0 "\301\302\"r\303 \211\203#\211@\211q\210\304\305!\203\306\300!\210
A\266\202\202\210)\210\307\310\311\"\207" [electric-pair-text-pairs append ((96 . 39) (8216 . 8217)) buffer-list derived-mode-p emacs-lisp-mode make-local-variable remove-hook electric-pair-mode-hook emacs-lisp-set-electric-text-pairs] 5 (#$ . 7868)])
#@76 Make the current buffer use `lexical-binding'.

(fn &optional INTERACTIVE)
(defalias 'elisp-enable-lexical-binding #[256 "\203\211\205/\302\303!\210\304 \207\211\203$\305\306\307	\203\310\202\311\"!\205/\312\300!\210\313\314\300\313#\207" [lexical-binding buffer-file-name message "lexical-binding already enabled!" ding y-or-n-p format "Enable lexical-binding in this %s? " "file" "buffer" make-local-variable t add-file-local-variable-prop-line] 5 (#$ . 8317) "p"])
(defvar elisp--dynlex-modeline-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key [mode-line mouse-1] elisp-enable-lexical-binding] 5))
(defvar emacs-lisp-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [emacs-lisp-mode-hook variable-documentation put "Hook run after entering `(ELisp (lexical-binding (:propertize /l help-echo Using lexical-binding mode) (:propertize /d help-echo Using old dynamic scoping mode\nmouse-1: Enable lexical-binding mode face warning mouse-face mode-line-highlight local-map ,elisp--dynlex-modeline-map))) mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp emacs-lisp-mode-map definition-name emacs-lisp-mode] 4)
(defvar emacs-lisp-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [emacs-lisp-mode-abbrev-table emacs-lisp-mode-map variable-documentation put purecopy "Keymap for `emacs-lisp-mode'." boundp emacs-lisp-mode-syntax-table definition-name emacs-lisp-mode (lambda (#1=#:def-tmp-var) (defvar emacs-lisp-mode-syntax-table #1#)) make-syntax-table "Syntax table for `emacs-lisp-mode'." (lambda (#1#) (defvar emacs-lisp-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `emacs-lisp-mode'." derived-mode-parent lisp-data-mode custom-mode-group lisp] 5)
#@441 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.

When editing Lisp data (as opposed to code), `lisp-data-mode' can
be used instead.

\{emacs-lisp-mode-map}

In addition to any hooks its parent mode might have run, this mode
runs the hook `emacs-lisp-mode-hook', as the final or penultimate step
during initialization.
(defalias 'emacs-lisp-mode #[0 "\306\300!\210\307\310 \210\311\312\313\314\315\316\317\320\321\322\323\324\325\n\257\nED\310\326N\203+\327\311\326\310\326N#\210\330\f!\2047\331\f\332 \"\210\333
!\211\203E\211\334 =\203K\335
\336 \"\210\210\337@\340\"\204e@A=\204e\341@\340AC#\210\342\f!\210\343
!\210@AB\344\240\210BAA\211\345\240\266\346\347\350\"\210\351\352!\203\230\306\352!\210\353\354*\"*\202\235\346\355\356\"\210\346\357\360\345\307$\210\346\357\361\345\307$\210\346\362\363\345\307$\210\306\364!\210\3654\346\366\367\345\370$\210\346\371\372\345\307$\210\346\371\373\345\307$\210\346\374\375\376\307$\210)\377\201C!\207" [delay-mode-hooks major-mode elisp--dynlex-modeline-map mode-name emacs-lisp-mode-map emacs-lisp-mode-syntax-table make-local-variable t lisp-data-mode emacs-lisp-mode "ELisp" lexical-binding (:propertize "/l" help-echo "Using lexical-binding mode") :propertize "/d" help-echo "Using old dynamic scoping mode\nmouse-1: Enable lexical-binding mode" face warning mouse-face mode-line-highlight local-map mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table (lisp-el-font-lock-keywords lisp-el-font-lock-keywords-1 lisp-el-font-lock-keywords-2) nil add-hook after-load-functions elisp--font-lock-flush-elisp-buffers boundp electric-pair-text-pairs append ((96 . 39) (8216 . 8217)) electric-pair-mode-hook emacs-lisp-set-electric-text-pairs eldoc-documentation-functions elisp-eldoc-funcall elisp-eldoc-var-docstring xref-backend-functions elisp--xref-backend project-vc-external-roots-function elisp-load-path-roots completion-at-point-functions elisp-completion-at-point local flymake-diagnostic-functions elisp-flymake-checkdoc elisp-flymake-byte-compile context-menu-functions elisp-context-menu 10 run-mode-hooks emacs-lisp-mode-abbrev-table local-abbrev-table font-lock-defaults emacs-lisp-mode-hook] 13 (#$ . 10460) nil])
#@23 

(fn &optional FILE)
(defalias 'elisp--font-lock-flush-elisp-buffers #[256 "\203\211\205'\301 \211\205%\211@r\211q\210\302\303!\203\304 \210)
A\266\202\202\n\262
\207" [load-in-progress buffer-list derived-mode-p emacs-lisp-mode font-lock-flush] 5 (#$ . 12947)])
#@88 Return the vars locally bound around the witness, or nil if not found.

(fn VARS SEXP)
(defalias 'elisp--local-variables-1 #[514 "\211C\300\301\242:\2036
\242\242\211\302\267\202,
\242\243\211:\203\224\211\242
\243\211\204Z\242@\303=\203J\304!A\211\203I\211@\211\242\206>\211B\262
A\266\202\2022\210\305
\306!@\243@\"\262
\266\202\202\232\307>\203\211\211\203z\211@\211\242\206o\211B\262
A\266\202\202c\210\305
\306!@\"\262
\266\202\202\232	\"\266\202\202\232\"\262
\2021
\242\243\211:\203\322\211\242
\243\211\204\273\300\300\240\262
\266\202\202\330\305\310\311\312\311\313\"\"\"\306!@\"\266\202\202\330\"\262
\2021
\242\243\211:\203
\211\242
\243\211:\203
\211\242
\243\211\204
\305\"\266\204\202!
\305\fB\306!@A\"\266\204\202!
	\"\266\202\202!
\"\262
\2021
\300\240\2021

\"\262
\202F
\242\314=\203E
\206F
\315\202F
\300\262
\211\262\204a

\3161[
\317\242!0\202]
\210\300\240\204\207" [nil #[514 "\300\301\242!@\"\207" [elisp--local-variables-1 last] 6 "\n\n(fn VARS SEXP)"] #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (let* 19 let 19 lambda 159 condition-case 221 quote 294)) let* reverse elisp--local-variables-1 last (let* let) append remq &optional &rest elisp--witness--lisp (nil) (error) butlast] 16 (#$ . 13225)])
(defvar elisp--macroexpand-untrusted-warning t)
#@13 

(fn SEXP)
(defalias 'elisp--safe-macroexpand-all #[257 "\303 \204\203\304\300!\210\305\306\307\310\311 \"\210)\207\312\313\314\315#\216\306\316\317\320\321#\210\317\322\323#\210\324!+\207" [elisp--macroexpand-untrusted-warning inhibit-message warning-minimum-log-level trusted-content-p make-local-variable nil t message "Completion of local vars is disabled in %s (untrusted content)" buffer-name #[642 "\3001\301#0\207\302\303\"\210\207" [(error) apply message "Ignoring macroexpansion error: %S"] 7 "\n\n(fn EXPANDER FORM &rest ARGS)"] #[514 "\207" [] 3 "\n\n(fn HANDLER FORM)"] make-closure #[0 "\302\303\301\"\210\302\304\300\"\207" [V0 V1 advice-remove macroexp--compiler-macro macroexpand] 3] :emergency advice-add macroexp--compiler-macro :override macroexpand :around macroexpand-all] 7 (#$ . 14633)])
#@56 Return a list of locally let-bound variables at point.
(defalias 'elisp--local-variables #[0 "\212\300\301!\210\302 \303\3048@\206`\3058\206`\"\306\3048\211\2031\211@\307
!AB\262
A\266\202\202\210\310\311\"\262
\3121G\313\314Q!@0\202I\210\306\315\306\316!\"\317\306\320\321\"\"\266\205)\207" [skip-syntax-backward "w_" syntax-ppss buffer-substring-no-properties 9 8 nil syntax-after apply string (invalid-read-syntax end-of-file) read-from-string "elisp--witness--lisp" elisp--local-variables-1 elisp--safe-macroexpand-all delq mapcar #[257 "\2119\205\300\301!\302\"?\205\303
!\205\211\207" [string-match symbol-name "\\`[&_]" intern-soft] 4 "\n\n(fn VAR)"]] 10 (#$ . 15473)])
(defvar elisp--local-variables-completion-table (byte-code "\300C\300C\300C\211\301\302#\240\210\303\301\304$!\207" [nil make-closure #[0 "\300\302\240\210\303\304\301\242\"\207" [V0 V1 nil remove-hook post-command-hook] 3] completion-table-dynamic #[257 "\212\303\304!\210`pB\300\242
\232\204!\305\306\302\242\"\210\300
\240\210\301\307\310\311 \"\240\210\210)\301\242\207" [V0 V1 V2 skip-syntax-backward "_w" add-hook post-command-hook mapcar symbol-name elisp--local-variables] 6 "\n\n(fn STRING)"]] 9))
#@79 Return non-nil if the symbol at point is expected to be a function.

(fn POS)
(defalias 'elisp--expect-function-p #[257 "\211\206`Sf\300=\203\211S\206`Sf\301=\2063\212\302
!A@\211\2050\211b\210\303\304!\2050\305\225=\262
)\207" [39 35 syntax-ppss looking-at "(\\(cl-\\)?\\(?:callf2?\\|de\\(?:clare-function\\|f\\(?:advice\\|setf\\)\\)\\|function\\)[ 	
\n]+" 0] 4 (#$ . 16695)])
#@109 Return non-nil if the form at POS is not evaluated.
It can be quoted, or be inside a quoted form.

(fn POS)
(defalias 'elisp--form-quoted-p #[257 "\212\300
!\301
8\206K`\302\3038!B\304
\203I\211\204I
\211A\262\242b\210\304f\305=\2045\306\304x\210`Sf\307>\203;\310\262
\202`Sf\311=\203\304\262\202\262
\262
)\207" [syntax-ppss 8 reverse 9 nil 91 " " (39 96 8216) t 44] 6 (#$ . 17090)])
#@12 

(fn STR)
(defalias 'elisp--company-doc-buffer #[257 "\301
!\302 \303\304\"\216\305\3061O\307!\203\310!\210\202I\311!\203*\312!\210\202I\313!\2037\314!\210\202I\315!\203D\316!\210\202I\317\320\321\"\210\322 0\202Q\210\321*\207" [display-buffer-overriding-action intern-soft current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] (nil (inhibit-switch-frame . t)) (error) fboundp describe-function boundp describe-variable featurep describe-package facep describe-face signal user-error nil help-buffer] 6 (#$ . 17495)])
#@12 

(fn STR)
(defalias 'elisp--company-doc-string #[257 "\300
!\301
!\203\302
\303\"\202\304
\305\303#\211;\205%\306\307\"\205%\310\311\"\207" [intern-soft fboundp documentation t documentation-property variable-documentation string-match ".*$" match-string 0] 6 (#$ . 18082)])
#@12 

(fn STR)
(defalias 'elisp--company-location #[257 "\300
!\301
!\203\302
\303\"\207\304
!\203\302
\305\"\207\306
!\203-\307\310!\210\311\312\313!!!\314B\207\315
!\2057\302
\316\"\207" [intern-soft fboundp find-definition-noselect nil boundp defvar featurep require find-func find-file-noselect find-library-name symbol-name 0 facep defface] 6 (#$ . 18372)])
#@260 If non-nil, a hash table of cached obarray-related information.
The cache holds information specific to the current state of the
Elisp obarray.  If the obarray is modified by any means (such as
interning or uninterning a symbol), this variable is set to nil.
(defvar obarray-cache nil (#$ . 18745))
#@181 Compute collections of all Elisp symbols for completion purposes.
The return value is compatible with the COLLECTION form described
in `completion-at-point-functions' (which see).
(defalias 'elisp--completion-local-symbols #[0 "\303\204	\207\n\203\304pB\n\"\206.\n\203!\305pB \n#\207\306\307\310\"\305pB \n#\207" [read-symbol-shorthands obarray obarray-cache #[0 "\300C\301\302\303\"!\210\211\242\207" [nil mapatoms make-closure #[257 "\300
\300\242B\240\210	\302\211\211\211:\203L@\262\211A\262\242\262\303!\262\304\"\203B\305G\302OP!\306
\307\310#\210\300
\300\242B\240\266A\262\302\262
\202\f\302\207" [V0 read-symbol-shorthands nil symbol-name string-prefix-p make-symbol put shorthand t] 11 "\n\n(fn S)"]] 5] gethash puthash make-hash-table :test equal] 5 (#$ . 19051)])
#@12 

(fn SYM)
(defalias 'elisp--shorthand-aware-fboundp #[257 "\300\301\302!!!\207" [fboundp intern-soft symbol-name] 5 (#$ . 19868)])
#@12 

(fn SYM)
(defalias 'elisp--shorthand-aware-boundp #[257 "\300\301\302!!!\207" [boundp intern-soft symbol-name] 5 (#$ . 20007)])
#@385 Function used for `completion-at-point-functions' in `emacs-lisp-mode'.
If the context at point allows only a certain category of
symbols (e.g. functions, or variables) then the returned
completions are restricted to that category.  In contexts where
any symbol is possible (following a quote, for example),
functions are annotated with "<f>" via the
`:annotation-function' property.
(defalias 'elisp-completion-at-point #[0 "\304 p\305\306#\216\307!\210`\3101!\212\311\312!\210\313\314w\210`)0\202#\210\211\211d=\206.\211fz\315>?\205P\3161N\212\211b\210\317\312!\210\320\314x\210`Y\205I`)0\202P\210

\206U`Sf\321=\322!\3231x\212\324\325!\210\312u\210\314fz\326>\205s\327p!)0\202z\210\314\205\336
\330\331 8\203\221\206\212`Sf\332>\205\336
\203\231
\203\360\211\333=\203\250\334\335 \336\337F\202\251
\340!\203\300\314\335 \336\341\342\343\344\345\346\347\350\351\257\f\202\251

\203\330\314\335 \336\352\353\354\342\343\344\345\346\347\350\351\257\202\251
\314\355	\356\357\335 \360\361$\"\342\362\344\345\346\347\350\351\257\n\202\251
\212Sb\210\3631
\324\325!\210\312u\210\314f\211\321=\203\f
\321\202
\211z\364>\205
\327p!\262
0\202
\210\314\365
\366\267\202b
\334\367\370\371\372\n\314#!\"D\202\244
\212\3731E
\317\374!\210`W0\202G
\210\314)\203T
\334\335 \336\375F\202\244
\211 \202\244
\334\335 \336\376F\202\244

\377>\204m
\211 \202\244
\212Sb\210
\321=\203}
\324\325!\210\201@\325!\210\201A\201B!)\203\242
\334\335 \336\360\342\201C\344\345\346\347\350\351\257\f\202\244
\211 \262
\262
)D
@\204\266

A\202\333
f\206\276
\201Dz\201E>\203\314

A@\202\327
\356\201F\201GA@#AAB\244\262
\266\206)\207" [emacs-lisp-mode-syntax-table elisp--local-variables-completion-table macro-declarations-alist defun-declarations-alist syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table (scan-error) backward-sexp 1 "`',‘#" nil (34 40) (scan-error) forward-sexp "'’" 40 elisp--form-quoted-p (error) up-list -1 (119 95) read 8 syntax-ppss (96 8216) ignore-error t elisp--completion-local-symbols :predicate #[257 "\211\300N\207" [error-conditions] 3 "\n\n(fn SYM)"] elisp--expect-function-p elisp--shorthand-aware-fboundp :company-kind elisp--company-kind :company-doc-buffer elisp--company-doc-buffer :company-docsig elisp--company-doc-string :company-location elisp--company-location #[257 "\300\301!!\302
!\206\303
!\206\304
!\206\305
!\207" [intern-soft symbol-name boundp fboundp featurep symbol-plist] 4 "\n\n(fn SYM)"] :annotation-function #[257 "\300\301!!\205	\302\207" [fboundp intern-soft " <f>"] 4 "\n\n(fn STR)"] completion-table-merge apply-partially completion-table-with-predicate elisp--shorthand-aware-boundp strict #[257 "\301
\"\203	\302\207\303\207" [elisp--local-variables-completion-table test-completion value variable] 4 "\n\n(fn S)"] (error) (119 95) #[0 "\300\301 \302\303\304\305\306\307\310\311\312\313\257\f\207" [nil elisp--completion-local-symbols :predicate elisp--shorthand-aware-fboundp :company-kind elisp--company-kind :company-doc-buffer elisp--company-doc-buffer :company-docsig elisp--company-doc-string :company-location elisp--company-location] 12] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (declare 293 condition-case-unless-debug 308 condition-case 308 ignore-error 345)) mapcar #[257 "\300
@!\207" [symbol-name] 3 "\n\n(fn X)"] delete-dups append (error) 2 #[257 "\211\300N\207" [error-conditions] 3 "\n\n(fn SYM)"] #[257 "\211\300N\207" [error-conditions] 3 "\n\n(fn SYM)"] (let* let 40) forward-symbol looking-at "\\_<let\\*?\\_>" #[257 "\300\207" [variable] 2 "\n\n(fn _)"] 32 (32 62) completion-table-with-terminator " "] 22 (#$ . 20145)])
#@12 

(fn STR)
(defalias 'elisp--company-kind #[257 "\300
!\301
!\204\302
!\203\303\207\304
!\203\305\207\306
!\203!\307\207\310
!\203)\311\207\312
!\2031\313\207\314\207" [intern-soft macrop special-form-p keyword fboundp function boundp variable featurep module facep color text] 4 (#$ . 23890)])
#@28 

(fn &optional PREDICATE)
(defalias 'lisp-completion-at-point #[256 "\300 \207" [elisp-completion-at-point] 2 (#$ . 24200)])
(make-obsolete 'lisp-completion-at-point 'elisp-completion-at-point "25.1")
(defalias 'elisp--xref-backend #[0 "\300\207" [elisp] 1])
(defvar elisp--xref-format #("(%s %s)" 1 3 (face font-lock-keyword-face) 4 6 (face font-lock-function-name-face)))
(defvar elisp--xref-format-extra #("(%s %s %s)" 1 3 (face font-lock-keyword-face) 4 6 (face font-lock-function-name-face)))
#@254 Return an xref for TYPE SYMBOL in FILE.
TYPE must be a type in `find-function-regexp-alist' (use nil for
'defun).  If SUMMARY is non-nil, use it for the summary;
otherwise build the summary from TYPE and SYMBOL.

(fn TYPE SYMBOL FILE &optional SUMMARY)
(defalias 'elisp--xref-make-xref #[1027 "\301
\206\302\206
\303#\304\305$\"\207" [elisp--xref-format xref-make format defun record xref-elisp-location] 11 (#$ . 24706)])
#@282 List of functions run from `elisp--xref-find-definitions' to add more xrefs.
Called with one arg; the symbol whose definition is desired.
Each function should return a list of xrefs, or nil; the first
non-nil result supersedes the xrefs produced by
`elisp--xref-find-definitions'.
(defvar elisp-xref-find-def-functions nil (#$ . 25150))
#@111 Return the list index of the form at point, moving to the start.
If the buffer start was reached, return nil.
(defalias 'elisp--xref-list-index #[0 "\300\3011`\302 \210`
W\262
0\202\210\202 \203 \211T\262
\202
o?\205&\211\207" [0 (scan-error) backward-sexp] 4 (#$ . 25494)])
#@250 Find the likely namespace of the identifier at POS.
Return one of `function', `variable' `maybe-variable', `feature', `face', or
`any' (indicating any namespace).  `maybe-variable' indicates a variable
namespace but with lower confidence.

(fn POS)
(defalias 'elisp--xref-infer-namespace #[257 "\212\211b\210\300
\206\n`Sf\301=\203\"
S\206`Sf\302=\203\"\303\202\300

\206'`Sf\304>\203\213\305u\210\306 
 
\307=\203a\211\310\267\266\202]\266\311\202\300
\266\303\202\300
\266\312\202\300
\266\313\202\300
\266\314\202\300

\315=\203s\211\316>\203s\266\303\202\300

\317=\203\205\211\320>\203\205\266\303\202\300
\266\314\202\300

S\206\221`Sf\321=\203\244
\206\235`Sf\322=\204\260
\206\251`Sf\321=\203\264\312\202\300
\306 
 
\205\310`Sf\323=\205\310\305u\210\324\211\205\321`Sf\325>
\205\327\306 \211\205\335 
\205\355`Sf\323=\205\355\305u\210\324\211\205\366`Sf\326>
\205\374\306 \211\205
	 
\205
`Sf\323=\205
\305u\210\324\211\205
`Sf\327>\204)
\204)
\211\203/
\266\f\314\202\300
\307=\203C
\330>\203C
\266\f\312\202\300
\315=\203W
\331>\203W
\266\f\312\202\300
\332=\203d
\266\f\312\202\300
\307=\203v
\333>\203v
\266\f\312\202\300
\334=\203\203
\266\f\303\202\300
\335!\203\220
\266\f\312\202\300
\307=\203\260
\n\336\267\202\260
\266\f\303\202\300
\266\f\312\202\300
\266\f\313\202\300
\n\337>\203\275
\266\f\312\202\300
\266\f\340\262
)\207" [#[0 "\212\3001\f\301p!0\202\210\302)\2119\205\211\207" [(error) read nil] 2] 39 35 function (39 96) -1 elisp--xref-list-index 1 #s(hash-table size 33 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (featurep 67 require 67 provide 67 fboundp 73 symbol-function 73 fset 73 function-get 73 function-put 73 func-arity 73 functionp 73 funcall 73 funcall-interactively 73 apply 73 mapcar 73 mapc 73 mapcan 73 mapconcat 73 apply-partially 73 substitute-key-definition 73 boundp 79 set 79 symbol-value 79 special-variable-p 79 local-variable-p 79 local-variable-if-set-p 79 make-variable-buffer-local 79 default-value 79 set-default 79 make-local-variable 79 buffer-local-value 79 facep 85 face-name 85 face-id 85)) feature variable face any 2 (global-set-key local-set-key substitute-key-definition add-hook) 3 (define-key add-function) 44 64 40 t (39 96) (39 96) (39 96) (let let* letrec dlet lambda) (defun defmacro defsubst define-inline declare-function defadvice cl-defmethod cl-defgeneric) cond (let let* letrec dlet) 0 functionp #s(hash-table size 14 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 414 defun 414 defmacro 414 defsubst 414 define-inline 414 declare-function 414 defadvice 414 cl-defmethod 414 cl-defgeneric 414 defvar 420 defvar-local 420 defconst 420 defcustom 420 defface 426)) (if while and or when unless progn prog1 let let* lambda defun defsubst defvar defconst) maybe-variable] 16 (#$ . 25784)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method xref-backend-identifier-at-point nil ((_backend (eql 'elisp))) #[257 "\300\301!\211\205\302
@A\"\303
\304@#\262
\207" [bounds-of-thing-at-point symbol buffer-substring-no-properties propertize pos] 7 "\n\n(fn BACKEND)"] xref-backend-definitions ((_backend (eql 'elisp)) identifier) #[514 "\300\301!\210\302
!\211\205<\303\304\305#\211\203\306
!\202\307\310!
\311=\2034\312
\313#\206:\312
\307#\207\312
#\266\203\207" [require find-func intern-soft get-text-property 0 pos elisp--xref-infer-namespace any elisp--xref-find-definitions maybe-variable elisp--xref-filter-definitions variable] 10 "\n\n(fn BACKEND IDENTIFIER)"]] 6)
#@37 

(fn DEFINITIONS NAMESPACE SYMBOL)
(defalias 'elisp--xref-filter-definitions #[771 "
\302=\203l\211>\203j\303\211\211\211\211:\203g@\262\304!\262\305!	>\2040\306\307\310D\"\210\311H\262\305!	>\204E\306\307\310D\"\210\312H\313=\203X\203X\314\315\"\203]B\262A\262\303\262
\202
\237\207\207
\316\267\202\202\317\202\206\320\202\206\321\202\206\322\202\206\323\324\"\303\211:\203\272@\262\304!\305
!	>\204\244\306\307\310D\"\210\211\312H\262
>\203\263

B\262
A\262\202\211\211\237\207" [minor-mode-list cl-struct-xref-elisp-location-tags any nil xref-item-location type-of signal wrong-type-argument xref-elisp-location 3 2 defvar string-prefix-p "src/" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 114 variable 118 face 122 feature 126)) (nil defalias define-type cl-defgeneric cl-defmethod) (defvar) (defface) (feature) error "No clause matching `%S'"] 13 (#$ . 29416)])
#@15 

(fn SYMBOL)
(defalias 'elisp--xref-find-definitions #[257 "\304
\204\211\203\305\211A\262\242!\"\262\202\210\211\204
9\203U
K\203U
K9\203U\306!K\307
\310\"\211\203E\311\304#B\262\203S\311\312#B\262\266\313!\203m\307\314\"\211\203l\311\314#B\262\210\315!\203\257
\307\211K\"\304\211\203\255
\316=\203\226\311\304\317K\320\"#B\266\204\202\257
\321\322\"\211\262\203\317\323\324\"\203\317\325\326\"\327
!\307
\330\"\331	\332\333P\334\335
!\336Q$\311\330$B\266\210\202\257
\337N\211\262\203\243
\340!\n>\204\347\341\342\337D\"\210
\343H\211\203\204
\211@\344
!\340!>\204
\341\342\345D\"\210
\326H\304\346\n\340!>\204
\341\342\345D\"\210\347H#\307
\350\"\211\203;
\211@\2062
\211\322=?\262
A\266\202\202$
\210\211\203{
\204J
\3478\203{
\203h
\331	\350A@$\311\350$\fB\262\f\266\202}
\331	\350\351$\311\350$\fB\262\f\210\266
A\266\202\202\352\210\321\322\"\211\262\203\226
\323\352\"\204\255
\311\353#B\266\204\202\257
\311\304#B\262\266\354!\203\335
\307\355\"\211\203\334
\211\316=\203\323
\311\355\317\356\"#B\266\202\202\335
\311\355#B\262\210\357!\203\3601\360
\361\335!!0\202\362
\210\304\211\203\377
\311\362#B\262\210\207" [elisp-xref-find-def-functions elisp--xref-format-extra cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags nil append symbol-file find-lisp-object-file-name defun elisp--xref-make-xref defalias facep defface fboundp C-source help-C-file-name subr documentation t string-match "Constructor for objects of type `\\(.*\\)'" match-string 1 intern define-type format cl-defstruct "(" "(:constructor " symbol-name "))" cl--generic type-of signal wrong-type-argument 3 cl--generic-method-info cl--generic-method cl--generic-load-hist-format 2 cl-defmethod "()" "\n\n(fn ARG &rest ARGS)" cl-defgeneric boundp defvar var featurep (error) find-library-name feature] 18 (#$ . 30395)])
(cl-generic-define-method 'xref-backend-apropos nil '((_backend (eql 'elisp)) pattern) nil #[514 "\300\301\302!\303\304!\211\203\211@\305
!B\262
A\266\202\202	\210\211\237\266\202\"\207" [apply nconc xref-apropos-regexp nil apropos-internal elisp--xref-find-definitions] 10 "\n\n(fn BACKEND PATTERN)"])
(defvar elisp--xref-identifier-completion-table (apply-partially 'completion-table-with-predicate obarray #[257 "\300
!\206\301
!\206\302
!\206\303
!\207" [boundp fboundp featurep facep] 3 "\n\n(fn SYM)"] 'strict))
(cl-generic-define-method 'xref-backend-identifier-completion-table nil '((_backend (eql 'elisp))) nil #[257 "\207" [elisp--xref-identifier-completion-table] 2 "\n\n(fn BACKEND)"])
#@78 compiler-macro for inlining `xref-elisp-location-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'xref-elisp-location-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block xref-elisp-location-p (and (memq (type-of cl-x) cl-struct-xref-elisp-location-tags) t)) nil] 9 (#$ . 33060)])
(put 'xref-elisp-location-p 'compiler-macro 'xref-elisp-location-p--cmacro)
#@13 

(fn CL-X)
(defalias 'xref-elisp-location-p #[257 "\301
!>\205	\302\207" [cl-struct-xref-elisp-location-tags type-of t] 3 (#$ . 33449)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put xref-elisp-location-p side-effect-free error-free put xref-elisp-location cl-deftype-satisfies] 5)
#@83 compiler-macro for inlining `xref-elisp-location-symbol'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'xref-elisp-location-symbol--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block xref-elisp-location-symbol (progn (or (xref-elisp-location-p cl-x) (signal 'wrong-type-argument (list 'xref-elisp-location cl-x))) (aref cl-x 1))) nil] 9 (#$ . 33760)])
(put 'xref-elisp-location-symbol 'compiler-macro 'xref-elisp-location-symbol--cmacro)
#@71 Access slot "symbol" of `xref-elisp-location' struct CL-X.

(fn CL-X)
(defalias 'xref-elisp-location-symbol #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-xref-elisp-location-tags type-of signal wrong-type-argument xref-elisp-location 1] 5 (#$ . 34228)])
(byte-code "\300\301\302\303#\300\207" [function-put xref-elisp-location-symbol side-effect-free t] 4)
#@81 compiler-macro for inlining `xref-elisp-location-type'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'xref-elisp-location-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block xref-elisp-location-type (progn (or (xref-elisp-location-p cl-x) (signal 'wrong-type-argument (list 'xref-elisp-location cl-x))) (aref cl-x 2))) nil] 9 (#$ . 34612)])
(put 'xref-elisp-location-type 'compiler-macro 'xref-elisp-location-type--cmacro)
#@69 Access slot "type" of `xref-elisp-location' struct CL-X.

(fn CL-X)
(defalias 'xref-elisp-location-type #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-xref-elisp-location-tags type-of signal wrong-type-argument xref-elisp-location 2] 5 (#$ . 35070)])
(byte-code "\300\301\302\303#\300\207" [function-put xref-elisp-location-type side-effect-free t] 4)
#@81 compiler-macro for inlining `xref-elisp-location-file'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'xref-elisp-location-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block xref-elisp-location-file (progn (or (xref-elisp-location-p cl-x) (signal 'wrong-type-argument (list 'xref-elisp-location cl-x))) (aref cl-x 3))) nil] 9 (#$ . 35448)])
(put 'xref-elisp-location-file 'compiler-macro 'xref-elisp-location-file--cmacro)
#@69 Access slot "file" of `xref-elisp-location' struct CL-X.

(fn CL-X)
(defalias 'xref-elisp-location-file #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-xref-elisp-location-tags type-of signal wrong-type-argument xref-elisp-location 3] 5 (#$ . 35906)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put xref-elisp-location-file side-effect-free t defalias copy-xref-elisp-location copy-sequence] 4)
#@104 compiler-macro for inlining `make-xref-elisp-location'.

(fn CL-WHOLE &cl-quote &key SYMBOL TYPE FILE)
(defalias 'make-xref-elisp-location--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262
\202\305>A@\2034\306\262
\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :symbol :type :file (:symbol :type :file :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:symbol :type :file)" cl--defsubst-expand (symbol type file) (cl-block make-xref-elisp-location (record 'xref-elisp-location symbol type file))] 14 (#$ . 36343)])
(put 'make-xref-elisp-location 'compiler-macro 'make-xref-elisp-location--cmacro)
#@84 Constructor for objects of type `xref-elisp-location'.

(fn &key SYMBOL TYPE FILE)
(defalias 'make-xref-elisp-location #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262
\202\305>A@\2034\306\262
\202\307\310@\"\210\202\210\311\312$\207" [plist-member :symbol :type :file (:symbol :type :file :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:symbol :type :file)" record xref-elisp-location] 9 (#$ . 37057)])
(byte-code "\300\301\302\303#\300\207" [function-put make-xref-elisp-location side-effect-free t] 4)
#@93 compiler-macro for inlining `xref-make-elisp-location'.

(fn CL-WHOLE-ARG SYMBOL TYPE FILE)
(defalias 'xref-make-elisp-location--cmacro #[1028 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (symbol type file) (cl-block xref-make-elisp-location (record 'xref-elisp-location symbol type file)) nil] 13 (#$ . 37648)])
(put 'xref-make-elisp-location 'compiler-macro 'xref-make-elisp-location--cmacro)
#@79 Constructor for objects of type `xref-elisp-location'.

(fn SYMBOL TYPE FILE)
(defalias 'xref-make-elisp-location #[771 "\300\301$\207" [record xref-elisp-location] 8 (#$ . 38064)])
(byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&	\210\314\315\311\316\311\317%\210\314\320\311\321\311\322%\207" [function-put xref-make-elisp-location side-effect-free t cl-struct-define xref-elisp-location "Location of an Emacs Lisp symbol definition." cl-structure-object record nil ((cl-tag-slot) (symbol) (type) (file)) cl-struct-xref-elisp-location-tags cl-generic-define-method xref-location-marker ((l xref-elisp-location)) #[257 "\301
!>\210\211\302H
\303H\304H\305#r\211@q\210\212\214~\210\211A\206#eb\210\306 +\207" [cl-struct-xref-elisp-location-tags type-of 1 2 3 find-function-search-for-symbol point-marker] 8 "\n\n(fn L)"] xref-location-group ((l xref-elisp-location)) #[257 "\303
!>\204\304\305\306D\"\210\211\307H	\203-\310
\311\312\313#)\266\203\203-	
\307\311OP\207\207" [cl-struct-xref-elisp-location-tags find-function-C-source-directory inhibit-changing-match-data type-of signal wrong-type-argument xref-elisp-location 3 "\\`src/" nil t string-match] 9 "\n\n(fn L)"]] 11)
(defalias 'elisp-load-path-roots #[0 "\302\300!\203\n	B\207	\207" [package-user-dir load-path boundp] 2])
#@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 "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312\313#\210\207" [lisp-mode-shared-map make-sparse-keymap set-keymap-parent define-key "" eval-defun "" indent-pp-sexp "	" completion-at-point "\n" eval-print-last-sexp] 5) (#$ . 39398))
#@33 Menu for Lisp Interaction mode.
(defvar lisp-interaction-mode-menu nil (#$ . 39820))
(easy-menu-do-define 'lisp-interaction-mode-menu lisp-interaction-mode-map "Menu for Lisp Interaction mode." '("Lisp-Interaction" ["Complete Lisp Symbol" completion-at-point :help "Perform completion on Lisp symbol preceding point"] ["Indent or Pretty-Print" indent-pp-sexp :help "Indent each line of the list starting just after point, or prettyprint it"] ["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"] ["Evaluate and Print" eval-print-last-sexp :help "Evaluate sexp before point; print value into current buffer"] ["Evaluate Defun" eval-defun :help "Evaluate the top-level form containing point, or after point"]))
(defvar lisp-interaction-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [lisp-interaction-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar lisp-interaction-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\311\312 !\210\306\301N\204-\302\306\301\303\313!#\210\302\310\314\315#\207" [lisp-interaction-mode-map variable-documentation put purecopy "Keymap for `lisp-interaction-mode'." boundp lisp-interaction-mode-syntax-table definition-name lisp-interaction-mode (lambda (#1=#:def-tmp-var) (defvar lisp-interaction-mode-syntax-table #1#)) make-syntax-table "Syntax table for `lisp-interaction-mode'." derived-mode-parent emacs-lisp-mode] 5)
#@647 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}

In addition to any hooks its parent mode `emacs-lisp-mode' might have
run, this mode runs the hook `lisp-interaction-mode-hook', as the
final or penultimate step during initialization.
(defalias 'lisp-interaction-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324!\210\325\f!\210\306\305!\210\307)\326\327!\207" [delay-mode-hooks major-mode mode-name lisp-interaction-mode-map lisp-interaction-mode-syntax-table lexical-binding 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] 5 (#$ . 41652) nil])
#@59 Regular expression matching a dynamic doc string comment.
(defconst emacs-lisp-byte-code-comment-re "\\(#\\)@\\([0-9]+\\) \\(?:[^(]\\|([^\"]\\)" (#$ . 42987))
#@101 Try to syntactically mark the #@NNN ....^_ docstrings in byte-code files.

(fn END &optional POINT)
(defalias 'elisp--byte-code-comment #[513 "\301 \302
8\205w\303
8f\304=\205w\212\303
8b\210\305!\205\"\306\307\310!!)\211
\205u\310\225\311
!\211\\b\210\311`!
ZZ\211\312U?\205^\211V\203I\262
\211[u\210\211\312V\203W\211\202[S\313]\262\314\262
\2042\266`X\203s\315`S`\316\317$\207b\266\202\207" [emacs-lisp-byte-code-comment-re syntax-ppss 4 8 35 looking-at string-to-number match-string 2 position-bytes 0 1 t put-text-property syntax-table (2097164)] 10 (#$ . 43153)])
#@18 

(fn START END)
(defalias 'elisp-byte-code-syntax-propertize #[514 "
b\210\300
`\"\210
b\210`
W\205/\301\302\303#\205/\304\224\203\305\304\224\304\225\306\307$\210\300
`\"\210\202\207" [elisp--byte-code-comment re-search-forward "\\(#\\)@\\([0-9]+\\) \\(?:[^(]\\|([^\"]\\)" t 1 put-text-property syntax-table (2097163)] 7 (#$ . 43749)])
(add-to-list 'auto-mode-alist '("\\.elc\\'" . elisp-byte-code-mode))
(defvar elisp-byte-code-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [elisp-byte-code-mode-hook variable-documentation put "Hook run after entering Elisp-Byte-Code mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp elisp-byte-code-mode-map definition-name elisp-byte-code-mode] 4)
(defvar elisp-byte-code-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [elisp-byte-code-mode-abbrev-table elisp-byte-code-mode-map variable-documentation put purecopy "Keymap for `elisp-byte-code-mode'." boundp elisp-byte-code-mode-syntax-table definition-name elisp-byte-code-mode (lambda (#1=#:def-tmp-var) (defvar elisp-byte-code-mode-syntax-table #1#)) make-syntax-table "Syntax table for `elisp-byte-code-mode'." (lambda (#1#) (defvar elisp-byte-code-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `elisp-byte-code-mode'." derived-mode-parent emacs-lisp-mode] 5)
#@243 Major mode for *.elc files.

In addition to any hooks its parent mode `emacs-lisp-mode' might have
run, this mode runs the hook `elisp-byte-code-mode-hook', as the final
or penultimate step during initialization.

\{elisp-byte-code-mode-map}
(defalias 'elisp-byte-code-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\306\331!\210\332\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name elisp-byte-code-mode-map elisp-byte-code-mode-syntax-table elisp-byte-code-mode-abbrev-table make-local-variable t emacs-lisp-mode elisp-byte-code-mode "Elisp-Byte-Code" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table open-paren-in-column-0-is-defun-start nil syntax-propertize-function elisp-byte-code-syntax-propertize run-mode-hooks elisp-byte-code-mode-hook local-abbrev-table] 5 (#$ . 45449) nil])
#@587 Evaluate sexp before point; print value into current buffer.

Normally, this function truncates long output according to the value
of the variables `eval-expression-print-length' and
`eval-expression-print-level'.  With a prefix argument of zero,
however, there is no such truncation.  Such a prefix argument
also causes integers to be printed in several additional formats
(octal, hexadecimal, and character).

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

(fn &optional EVAL-LAST-SEXP-ARG-INTERNAL)
(defalias 'eval-print-last-sexp #[256 "p\301 \210\302
\206\303!\210\301 )\207" [standard-output terpri eval-last-sexp t] 3 (#$ . 46625) "P"])
#@290 Set up text properties for the output of `elisp--eval-last-sexp'.
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.

(fn BEG END VALUE ALT1 ALT2)
(defalias 'last-sexp-setup-props #[1285 "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\303#\210\307\310E\311\312\313\314BBBBBB#\207" [make-sparse-keymap define-key "
" elisp-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))] 16 (#$ . 47363)])
#@91 Toggle between abbreviated and unabbreviated printed representations.

(fn &optional ARG)
(defalias 'elisp-last-sexp-toggle-display #[256 "\214~\210\301`\302\"\211\205L\303d`T^\302\"\206`\304`\302\"\206`p`
|\210A@c\210
U\2045`S\262
\305`@\306	8	A@%\210d
^b)\266\204\262
)\207" [standard-output get-text-property printed-value previous-single-property-change next-single-char-property-change last-sexp-setup-props 2] 12 (#$ . 48110) "P"])
#@128 Return a string representing CHAR as a character rather than as an integer.
If CHAR is not a character, return nil.

(fn CHAR)
(defalias 'prin1-char #[257 "\211\250\205p\301
!\205p\302
!\303!\304\305>\2033\306\307\"\310U\2033\304\311\211\226\")\2043\226\262\304\262\3121[\313\314\315\316#\317\267\202O\320\321\"\202R\322\202R\320!Q\211\2620\210\202`\210\202`\210\211\205n\323
!@U\205n\211\266\203\207" [case-fold-search eventp event-basic-type event-modifiers nil shift logand 33554432 0 char-equal (error) "?" mapconcat #[257 "\211\300=\203\301\207\302\303\304!\305H\226\306#\207" [super "\\s-" string 92 symbol-name 0 45] 5 "\n\n(fn MODIF)"] "" #s(hash-table size 11 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (59 67 40 67 41 67 123 67 125 67 91 67 93 67 34 67 39 67 92 67 127 75)) string 92 "\\C-?" read-from-string] 9 (#$ . 48571)])
#@31 Return sexp before the point.
(defalias 'elisp--preceding-sexp #[0 "`\302\303\212\304 p\305\306#\216\307!\210h\310=\203 \311u\210`\262\202/g\312=\204,h\312=\203/\313\262h\314U\203V\212\311u\210\315\316!\210\317u\210\320\321\322
!)\262
\205M`)\211\203U\211b\210\210\323\311!\210h\324=\203l\311u\210h\325=\203l\311u\210`eTV\203\326\327`\330Z\"\203\331u\210h\332=\203\232\303\212\333\303x\210\322\334!\262
)\211\203\231\323\311!\210\210\214g=\203\244\303u\210\322\335!\203\256\336\225b\210e}\210\337p!\262\242\340=\203\311\341\342\343\344BBBD\262*\266\202)\207" [emacs-lisp-mode-syntax-table inhibit-changing-match-data 8216 nil syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table 8217 -1 39 96 125 skip-syntax-backward "w-" -3 "\\\\N{" t looking-at forward-sexp 92 63 looking-back "#s" 2 -2 61 "0-9#=" "\\(#[0-9]+=\\)+" ",@?" 0 read interactive call-interactively lambda (&rest args) (args)] 10 (#$ . 49466)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias preceding-sexp elisp--preceding-sexp nil make-obsolete "25.1"] 4)
#@352 Evaluate sexp before point; print value in the echo area.
If EVAL-LAST-SEXP-ARG-INTERNAL is non-nil, print output into
current buffer.  If EVAL-LAST-SEXP-ARG-INTERNAL is `0', print
output with no limit on the length and level of lists, and
include additional formats for integers (octal, hexadecimal, and
character).

(fn EVAL-LAST-SEXP-ARG-INTERNAL)
(defalias 'elisp--eval-last-sexp #[257 "\301
!\211\242
\243\211\242
\243\211\242
\243\302\303\304\305\306\307\310 !!!!\"\203&p\202'\311$\207" [lexical-binding eval-expression-get-print-arguments elisp--eval-last-sexp-print-value eval macroexpand-all eval-sexp-add-defvars elisp--eval-defun-1 macroexpand elisp--preceding-sexp t] 15 (#$ . 50594)])
#@60 

(fn VALUE OUTPUT &optional NO-TRUNCATE CHAR-PRINT-LIMIT)
(defalias 'elisp--eval-last-sexp-print-value #[1026 "\305\211\306!*
?\205?\205\f`\305\307\"\205(\310!\211\2032\311
	\"\210\210`\262\312!\203]	\204E\203]\313\"\230\204]\314\n\313\"%\210+\207" [print-level print-length eval-expression-print-maximum-character eval-expression-print-length eval-expression-print-level nil prin1-to-string prin1 eval-expression-print-format princ bufferp buffer-substring-no-properties last-sexp-setup-props] 16 (#$ . 51306)])
(defvar elisp--eval-last-sexp-fake-value (make-symbol "t"))
#@170 Prepend EXP with all the `defvar's that precede it in the buffer.
POS specifies the starting position where EXP was found and defaults to point.

(fn EXP &optional POS)
(defalias 'eval-sexp-add-defvars #[513 "\204
\207\212\211\204`\262
\301eb\210\302\303\304#\2039\305\306\307!!\310
!\2045\311\212\312\313\224!)!\2045\211B\262\210\202\314\315\316\317\"C\"B\262
)\207" [lexical-binding nil re-search-forward "(def\\(?:var\\|const\\|custom\\)[ 	\n]+\\([^; '()\n	]+\\)" t intern match-string 1 special-variable-p syntax-ppss-toplevel-pos syntax-ppss 0 progn append mapcar #[257 "\300
D\207" [defvar] 3 "\n\n(fn V)"]] 8 (#$ . 51930)])
#@926 Evaluate sexp before point; print value in the echo area.
Interactively, with a non `-' prefix argument, print output into
current buffer.

This commands handles `defvar', `defcustom' and `defface' the
same way that `eval-defun' does.  See the doc string of that
function for details.

Normally, this function truncates long output according to the
value of the variables `eval-expression-print-length' and
`eval-expression-print-level'.  With a prefix argument of zero,
however, there is no such truncation.
Integer values are printed in several formats (decimal, octal,
and hexadecimal).  When the prefix argument is -1 or the value
doesn't exceed `eval-expression-print-maximum-character', an
integer value is also printed as a character of that codepoint.

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

(fn EVAL-LAST-SEXP-ARG-INTERNAL)
(defalias 'eval-last-sexp #[257 "\204\n\303\304!!\207	\304
!\n)B\211A	=\204\211A\211@\207" [eval-expression-debug-on-error elisp--eval-last-sexp-fake-value debug-on-error values--store-value elisp--eval-last-sexp] 4 (#$ . 52583) "P"])
#@235 Treat some expressions specially.
Reset the `defvar' and `defcustom' variables to the initial value.
(For `defcustom', use the :set function if there is one.)
Reinitialize the face according to the `defface' specification.

(fn FORM)
(defalias 'elisp--eval-defun-1 #[257 "\211<\204\207\211@\302=\2031\211\243\243\2031\303
A@!\2031\304\302A@\305\306\233BBB\307A@\3108EE\207\211@\311=\203p\312\313A@\"!\203p\314
>\211\203X\211\243\242\262
\315
!\204X\305\262
\211\206]\316\313A@\"\313\211\3108\"!\"\266\207\211@\317=\203\220\313
A@\"\320
	\"\210\321
\322\305#\210\321
\323\305#\266\207\211@\304=\203\237\304\324\325A\"B\207\207" [lexical-binding face--new-frame-defaults defvar boundp progn nil 3 setq-default 2 custom-declare-variable default-boundp eval :set functionp set-default custom-declare-face remhash put face-defface-spec face-override-spec mapcar elisp--eval-defun-1] 8 (#$ . 53757)])
#@366 Evaluate defun that point is in or before.
The value is displayed in the echo area.
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.)

Return the result of evaluation.
(defalias 'elisp--eval-defun #[0 "	\n\306\212\307\306\211C\306\212\310 \210\311 \210`\262p!\262

`\240\210)\312\313\314!!!\315\242\316\317#$\266)\266)\320!\211\203M\321
!\210\210,\207" [eval-expression-debug-on-error eval-expression-print-length eval-expression-print-level elisp--eval-defun-result print-level print-length nil t end-of-defun beginning-of-defun eval-sexp-add-defvars elisp--eval-defun-1 macroexpand eval-region make-closure #[257 "\300\242b\210\302\303\301E\207" [V0 V1 setq elisp--eval-defun-result] 4 "\n\n(fn IGNORE)"] eval-expression-print-format princ debug-on-error standard-output load-read-function] 13 (#$ . 54686)])
#@1137 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 (using the defcustom's :set function if there is one), 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 echo area.  If not
instrumented, just FUNCTION is printed.

If not acting on a `defun', the result of evaluation is displayed in
the echo area.  This display is controlled by the variables
`eval-expression-print-length' and `eval-expression-print-level',
which see.

(fn EDEBUG-IT)
(defalias 'eval-defun #[257 "\211\203
\304\305!\210\306?!\207	\204\307 \207\310\211\n\307 \262
\262)\n=\204(
\207" [edebug-all-defs eval-expression-debug-on-error elisp--eval-last-sexp-fake-value debug-on-error require edebug eval-defun elisp--eval-defun nil] 5 (#$ . 55728) "P"])
#@278 Bookkeeping; elements are as follows:
  0 - contains the last symbol read from the buffer.
  1 - contains the string last displayed in the echo area for variables,
      or argument string for functions.
  2 - `function' if function args, `variable' if variable documentation.
(defvar elisp--eldoc-last-data (make-vector 3 nil) (#$ . 57162))
(defalias 'elisp--documentation-one-liner #[0 "\300C\301\302\"\303
!\210
\242\206\304
!\210
\242\207" [nil make-closure #[385 "
\205\300\301\302\303\304\305\306\"!\307\305\310\"##\240\207" [V0 format "%s: %s" propertize prin1-to-string plist-get :thing face :face] 11 "\n\n(fn DOC &rest PLIST)"] elisp-eldoc-var-docstring elisp-eldoc-funcall] 4])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [defalias elisp-eldoc-documentation-function elisp--documentation-one-liner "Return Elisp documentation for the thing at point as one-line string.\nThis is meant as a backward compatibility aide to the \"old\"\nElisp eldoc behavior.  Consider variable docstrings and function\nsignatures only, in this order.  If none applies, returns nil.\nChanges to `eldoc-documentation-functions' and\n`eldoc-documentation-strategy' are _not_ reflected here.  As such\nit is preferable to use ElDoc's interfaces directly." make-obsolete "use ElDoc's interfaces instead." "28.1"] 4)
#@121 Document function call at point.
Intended for `eldoc-documentation-functions' (which see).

(fn CALLBACK &rest IGNORED)
(defalias 'elisp-eldoc-funcall #[385 "\300 \211@\211\205\301\302\"\303\304\305!\203\306\202\307%\207" [elisp--fnsym-in-current-sexp apply elisp-get-fnsym-args-string :thing :face functionp font-lock-function-name-face font-lock-keyword-face] 11 (#$ . 58493)])
#@116 Document variable at point.
Intended for `eldoc-documentation-functions' (which see).

(fn CALLBACK &rest IGNORED)
(defalias 'elisp-eldoc-var-docstring #[385 "\300 \211\205	\301
!\211\205
\302\303\304%\207" [elisp--current-symbol elisp-get-var-docstring :thing :face font-lock-variable-name-face] 10 (#$ . 58891)])
#@200 Return a string containing the parameter list of the function SYM.
If SYM is a subr and no arglist is obtainable from the docstring
or elsewhere, return a 1-line docstring.

(fn SYM &optional INDEX)
(defalias 'elisp-get-fnsym-args-string #[513 "
\203
9\203\302!\204\303\202d
\304H=\203)\305H\306=\203)\307H\202d\310\311!	\312#\303
<\203:
\202[\313\3141G\315\312\"0\202I\210\303\"\211\262\203X\316
@!\202[\317!\320\321!\306#\266\203\211\205m\322#\207" [elisp--eldoc-last-data advertised-signature-table fboundp nil 0 2 function 1 gethash indirect-function t help-split-fundoc (invalid-function) documentation substitute-command-keys help-function-arglist elisp--last-data-store elisp-function-argstring elisp--highlight-function-argument] 9 (#$ . 59218)])
#@78 Highlight argument INDEX in ARGS list for function SYM.

(fn SYM ARGS INDEX)
(defalias 'elisp--highlight-function-argument #[771 "\302\303\304\305\306\307!\"\310
\235A\211\203\324GGZY\203\324\302\211\311	!\312\313!\212\314\302\313#\2051\303\225)
\203D\315\316\"\203D
\317\302O\202d\212\302\314\320\313#\205a\307\321\317!\322\313#\262
\211@
A\203a\313\262\262
)\211;\205|\205|\211\226\235?\205|\323!@\226\203\321\230\204\321\203\253\212\324\325\326 \313#)\204\253\315\327\"\203\253\302\262\f\317\224\262\317\225\262\n\202\321
\203\321\315\330\226\331Q\"\204\306\315\330\331Q\"\203\321\302\262\f\303\224\262\303\225\262\n)\266\203{
\317Y\203{
\315\332#\203i
\303\224\262\303\225\262\321\303\"\211\333\230\203
\317\262\210\202\324\211\334\230\204e
\211\335\230\204e
\336
\302\313\315#)\266\203\203'
\211\323!@\230\204Y
\336\317\nGSO\302\313\315#)\266\203\203`
\337\340\"G\341U\203`
\317V\203`
\342\317\"\317=\203`
\303\262\210\202\324S\262\210\202\324G\262S\262\343\262\303\262\202\324\203\223
\344!\262
\345\346D$\210\207" [case-fold-search inhibit-changing-match-data nil 0 eldoc-highlight-function-argument mapcar #[257 "\300\301\302#\207" [replace-regexp-in-string "\\`[(]\\|[)]\\'" ""] 5 "\n\n(fn X)"] split-string "&key" symbol-name current-word t re-search-backward string-match ":\\([^ ()]*\\)" 1 ":\\([^ ()\n]*\\)" match-string " " last re-search-forward ":.*" point-at-eol "&rest \\([^ ()]*\\)" "\\_<" "\\_>" "[^ ()]+" "&rest" "&optional" "&allow-other-keys" "\\.\\.\\.\\'" remove "..." 2 logand font-lock-warning-face copy-sequence add-text-properties face] 19 (#$ . 60010)])
#@12 

(fn SYM)
(defalias 'elisp-get-var-docstring #[257 "\211\204\301\207\211\302H=\203\303H\304=\203\305H\207\306
\307\310#\211\205-\311
!\312\304#\262
\207" [elisp--eldoc-last-data nil 0 2 variable 1 documentation-property variable-documentation t elisp--docstring-first-line elisp--last-data-store] 7 (#$ . 61708)])
#@24 

(fn SYMBOL DOC TYPE)
(defalias 'elisp--last-data-store #[771 "\301I\210\302I\210\303I\210
\207" [elisp--eldoc-last-data 0 1 2] 6 (#$ . 62041)])
#@12 

(fn DOC)
(defalias 'elisp--docstring-first-line #[257 "\211;\205=\300\301 \302\303\"\216\304\305\"\203\306\225\202\306\304\307\"\203)
\306\224O\2027\211\306U\2033\2027
\310O\262
)\262
!\207" [substitute-command-keys match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`\\*" 0 "\n" nil] 7 (#$ . 62199)])
(defalias 'elisp--fnsym-in-current-sexp #[0 "\212\300\301 8?\205\302 S\211\303W\203\303\262
\304 
D\262
)\207" [8 syntax-ppss elisp--beginning-of-sexp 0 elisp--current-symbol] 3])
(defalias 'elisp--beginning-of-sexp #[0 "\301\302
\3031F\3041&`\305\306!\210\305\307!\210`
W\205\307\211\262\262
0\210\202)\310\266`\305\306!\210`
W\2059
T\211\262\262
\205A\202)0\210\202I\310\266)\207" [parse-sexp-ignore-comments t 0 (error) (error) forward-sexp -1 1 nil] 5])
(defalias 'elisp--current-symbol #[0 "`f\211\205\211z\300>\205\301\302 !\207" [(119 95) intern-soft current-word] 3])
#@119 Return ARGLIST as a string enclosed by ().
ARGLIST is either a string, or a list of strings or symbols.

(fn ARGLIST)
(defalias 'elisp-function-argstring #[257 "\211;\203	\211\202\211<\204\300\202\301\302\303\"!\211\203*\304\305\"\203*\306\307\310\211$\207\207" [nil substitute-command-keys help--make-usage-docstring toto string-match "\\`([^ )]+ ?" replace-match "(" t] 7 (#$ . 63170)])
#@88 A Flymake backend for `checkdoc'.
Calls REPORT-FN directly.

(fn REPORT-FN &rest ARGS)
(defalias 'elisp-flymake-checkdoc #[385 "\304C\305\306\"\304\211\307\310!\311\216\212\3121\313\314!0\210\202\210.
\242\304\211\211\211\211\211:\203u@\262\211A\262\242\262\211A\262\242\262\211A\262\242\262@\262\315p\206Y\316\206e\206d\316T\317\n%
B\262
A\262\202*\211\237\266\207!\210\211\242\207" [checkdoc-create-error-function checkdoc-autofix-flag checkdoc-generate-compile-warnings-flag checkdoc-diagnostic-buffer nil make-closure #[1027 "\300F\300\242B\240\210\301\207" [V0 nil] 9 "\n\n(fn TEXT START END &optional UNFIXABLE)"] generate-new-buffer " *checkdoc-temp*" #[0 "\301!\207" [checkdoc-diagnostic-buffer kill-buffer] 2] (error) checkdoc-current-buffer t flymake-make-diagnostic 1 :note] 18 (#$ . 63577)])
#@46 

(fn REPORT-FN SOURCE-BUFFER OUTPUT-BUFFER)
(defalias 'elisp-flymake--byte-compile-done #[771 "r
q\210\212\214~\210r
q\210eb\210\300\301!\210\302\303 !)\211\304\211\211\211\211\211\211\211\211	:\203\214	@\262\211A\262\242\262	\211A\262\242\262\211A\262\242\262@\262b\210`dW\203X`\202Z\305 \262\306 \307\310!A\206fd^\262\311pU\203vS\202w\n
%B\262	A\262\n\304\262
\202#
\237\266\213!+\207" [search-forward ":elisp-flymake-output-start" read point-marker nil line-beginning-position line-end-position bounds-of-thing-at-point sexp flymake-make-diagnostic] 21 (#$ . 64434)])
#@61 Buffer-local process started for byte-compiling the buffer.
(defvar elisp-flymake--byte-compile-process nil (#$ . 65047))
(make-variable-buffer-local 'elisp-flymake--byte-compile-process)
#@182 Like `load-path' but used by `elisp-flymake-byte-compile'.
The default value contains just "./" which includes the default
directory of the buffer being compiled, and nothing else.
(defvar elisp-flymake-byte-compile-load-path (list "./") (#$ . 65242))
(put 'elisp-flymake-byte-compile-load-path 'safe-local-variable #[257 "\211<\205%\3002%\211\211\203!\211@\211;\204\301\300\302\"\210
A\266\202\202\n\303\262
0\207" [tag throw nil t] 6 "\n\n(fn X)"])
#@192 A Flymake backend for elisp byte compilation.
Spawn an Emacs process that byte-compiles a file representing the
current buffer state and calls REPORT-FN when done.

(fn REPORT-FN &rest ARGS)
(defalias 'elisp-flymake-byte-compile #[385 "\304 \204\305\306\307 \"\210\310\306\307 \"\210\203\311!\203\312!\210\313\314!p\214~\210\315ed\316\317%\210)\320\321!\322\323\314\324\325\326	\n\"\327\330\331\332\333\"\334\335E\"BBB\336\337\340\341\342%\343\344\345\346&\211\207" [elisp-flymake--byte-compile-process invocation-name invocation-directory elisp-flymake-byte-compile-load-path trusted-content-p message "Disabling elisp-flymake-byte-compile in %s (untrusted content)" buffer-name error process-live-p kill-process make-temp-file "elisp-flymake-byte-compile" write-region nil nomessage generate-new-buffer " *elisp-flymake-byte-compile*" make-process :name :buffer :command expand-file-name "-Q" "--batch" append mapcan #[257 "\300
D\207" ["-L"] 3 "\n\n(fn PATH)"] "-f" "elisp-flymake--batch-compile-for-flymake" :connection-type pipe :sentinel make-closure #[514 "\305!\306=\205B\307\310\301\303#\216\311\302!\203
r\302q\210\f)=\204(\312\313\314\315$\202A\316!\317U\2038\320\300\302\303#\202A\300\321\322\323\324\"#)\207" [V0 V1 V2 V3 elisp-flymake--byte-compile-process process-status exit make-closure #[0 "\3021\f\303\300!0\210\202
\210\304\301!\207" [V0 V1 (error) delete-file kill-buffer] 2] buffer-live-p flymake--log-1 :warning elisp-mode "byte-compile process %s obsolete" process-exit-status 0 elisp-flymake--byte-compile-done :panic :explanation format "byte-compile process %s died"] 8 "\n\n(fn PROC EVENT)"] :stderr " *stderr of elisp-flymake-byte-compile*" :noquery t] 21 (#$ . 65706)])
#@148 Helper for `elisp-flymake-byte-compile'.
Runs in a batch-mode Emacs.  Interactively use variable
`buffer-file-name' for FILE.

(fn &optional FILE)
(defalias 'elisp-flymake--batch-compile-for-flymake #[256 "\211\206@\304\305!\306\307C\310\311\"\312\216\313!\210)\314\315!\210\316 \210\317
\242!+\207" [command-line-args-left byte-compile-log-buffer byte-compile-dest-file-function byte-compile-log-warning-function generate-new-buffer " *dummy-byte-compile-log-buffer*" ignore nil make-closure #[1025 "\300F\300\242B\240\210\301\207" [V0 t] 9 "\n\n(fn STRING &optional POSITION FILL LEVEL)"] #[0 "\3011	\302!0\207\210\303\207" [byte-compile-log-buffer (error) kill-buffer nil] 2] byte-compile-file prin1 :elisp-flymake-output-start terpri pp] 6 (#$ . 67451) (list buffer-file-name)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put read-symbol-shorthands safe-local-variable consp provide elisp-mode] 4)