ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/elisp-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (byte-code "\301!\302\303\304#\210\302\305\306#\210\211\207" [lisp--mode-syntax-table make-syntax-table modify-syntax-entry 91 "(] " 93 ")[ "] 5) (#$ . 678))
#@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 "\302\303!\302\303!\302 \302 \302 \304\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\314\315\303B#\210\314\316\317#\210\314\320\321#\210\314\322\323#\210\314\324\325B#\210\314\326\327#\210\314\330\331#\210\314\332 #\210\314\333\334#\210\314\335\336#\210\314\337\340B#\210\314\341\342#\210\314\343\344#\210\314\345 #\210\314\346\347#\210\314\350\351#\210\314\352\353#\210\314\354\355#\210\314\356\357#\210\314\360 #\210\314\361\362#\210\314\363\364#\210\314\365\366#\210\314\367\370B#\210\314\371\372#\210\314\373\374#\210\314\375\376#\210\314\377\201@ #\210\314\201A \201B #\210\314\201C #\210\314\201D \201E #\210\314\201F \201G #\210\314\201H \201I #\210\314\201J \201K #\210\314\201L #\210\314\201M \201N #\210\314\201O \201P #\210\314\201Q \201R #\210\314\201S \201T #\210\314\201U #\210\314\201V \201W #\210\314\201X \201Y #\210\314\201Z \201[ #\210\207" [lisp-mode-shared-map menu-bar-separator make-sparse-keymap "Emacs-Lisp" set-keymap-parent define-key " " completion-at-point "" eval-defun "" indent-pp-sexp bindings--define-key [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") [sep-natprof] [prof-natprof-stop] (menu-item "Stop Native Profiler" profiler-stop :help "Stop recording profiling information" :enable (and (featurep 'profiler) (profiler-running-p))) [prof-natprof-report] (menu-item "Show Profiler Report" profiler-report :help "Show the current profiler report" :enable (and (featurep 'profiler) (profiler-running-p))) [prof-natprof-start] (menu-item "Start Native Profiler..." profiler-start :help "Start recording profiling information") [lint] "Linting" [lint-di] (menu-item "Lint Directory..." elint-directory :help "Lint a directory") [lint-f] (menu-item "Lint File..." elint-file :help "Lint a file") [lint-b] (menu-item "Lint Buffer" elint-current-buffer :help "Lint the current buffer") [lint-d] (menu-item "Lint Defun" elint-defun :help "Lint the function at point") [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 echo area") [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] (menu-item "Indent Line" lisp-indent-line)] 10) (#$ . 924))
#@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 (#$ . 6522) nil])
#@77 Byte-compile the current file (if it has changed), then load compiled code.
(defalias 'emacs-lisp-byte-compile-and-load #[0 "\204 \301\302!\210\303\304!\210\305 \203 \306\307\310\311 \"!\203 \312 \210\313\314\315\316$\207" [buffer-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-recompile-file nil 0 t] 5 (#$ . 6759) nil])
#@70 Macroexpand the form after point.
Comments in the form will be lost.
(defalias 'emacs-lisp-macroexpand #[0 "`\300p!\301!\232\203 \302\303!\202( `|\210\304p\"\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 (#$ . 7209) 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)
#@167 Hook run after entering Emacs-Lisp mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar emacs-lisp-mode-hook nil (#$ . 7829))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp emacs-lisp-mode-map put definition-name emacs-lisp-mode] 4)
(defvar emacs-lisp-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [emacs-lisp-mode-map variable-documentation put purecopy "Keymap for `emacs-lisp-mode'." boundp emacs-lisp-mode-syntax-table definition-name emacs-lisp-mode] 5)
(defvar emacs-lisp-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [emacs-lisp-mode-syntax-table variable-documentation put purecopy "Syntax table for `emacs-lisp-mode'." emacs-lisp-mode-abbrev-table definition-name emacs-lisp-mode] 5)
(defvar emacs-lisp-mode-abbrev-table (progn (define-abbrev-table 'emacs-lisp-mode-abbrev-table nil) emacs-lisp-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\210\302\305\310\311#\207" [emacs-lisp-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `emacs-lisp-mode'." emacs-lisp-mode derived-mode-parent prog-mode custom-mode-group lisp] 5)
#@354 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}
In addition to any hooks its parent mode `prog-mode' might have run,
this mode runs the hook `emacs-lisp-mode-hook', as the final step
during initialization.
(defalias 'emacs-lisp-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
1=\204R \326
\3251C#\210\327 !\210\330\f!\210
1\331\332\211\333#\210\334\335\336\"\210\306\337!\210\340\341 \" \306\342!\210\307\"\3322\343\344\345\346B\347\332$\210\334\350\351\332\307$\210\306\352!\210\353*\334\354\355\332\356$\210)\357\360!\207" [delay-mode-hooks major-mode mode-name emacs-lisp-mode-map emacs-lisp-mode-syntax-table emacs-lisp-mode-abbrev-table make-local-variable t prog-mode emacs-lisp-mode "Emacs-Lisp" 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-mode-variables nil elisp add-hook after-load-functions elisp--font-lock-flush-elisp-buffers electric-pair-text-pairs append ((96 . 39) (8216 . 8217)) electric-quote-string advice--add-function :before-until #[0 "\300\301!\207" [advice--buffer-local eldoc-documentation-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local eldoc-documentation-function] 4 "\n\n(fn GV--VAL)"] elisp-eldoc-documentation-function xref-backend-functions elisp--xref-backend project-vc-external-roots-function elisp-load-path-roots completion-at-point-functions elisp-completion-at-point local run-mode-hooks emacs-lisp-mode-hook local-abbrev-table imenu-case-fold-search] 5 (#$ . 9193) nil])
(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 "\n\n(fn &optional FILE)"])
#@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\302\303\304\242:\203\267\242@\211\305>\203\343 \242A\211:\203\313 \211@A\211\204` \f\211\f\242@\306=\203P \307!A\211\203O \211@\211\242\206D \211B\262A\266\202\2028 \210\310\311!@\243@\"\266\202\262\202\306 \312>\203o \f#\202\306 \313=\203 \f#\202\306 \314=\203\263 \211:\203\252 \211@A\211\204\235 \310\"\262\202\245 #\266\202\202\306 \f \"\202\306 \315=\203\300 \300\240\202\306 \f \"\266\202\202\336 \315=\203\330 \300\240\202\336 \n \"\262\202\262\211\316>\203\242A\211:\203\211@A\f#\266\202\202\315=\203\300\240\202\n \"\262\202\262\211\313=\203Q\242A\211:\203F\211@A\211\204:\n\300\240\262\202A\f#\266\202\202L\n \"\262\202\262\211\314=\203\237\242A\211:\203\224\211@A\211:\203\211\211@A\211\204|\310\"\262\202\204 #\266\202\202\217\f \"\266\202\202\232\n \"\262\202\262\211\315=\203\254\300\240\202\262 \"\262\202\310\242\317=\203\307\206\310\320\202\310\300\266\204\211\262\204\343\3211\335\322\242!0\202\337\210\300\240\204 \211\262\207" [nil #[771 "\300B\301!@A\"\207" [elisp--local-variables-1 last] 7 "\n\n(fn VARS CATCHES V)"] #[771 "\300\301\302\303\302\304\"\"\"\305!@\"\207" [elisp--local-variables-1 append remq &optional &rest last] 10 "\n\n(fn VARS BODY ARGS)"] #[771 "\211\203 \211@\211\242\206 \211B\262A\266\202\202 \210\300\301!@\"\207" [elisp--local-variables-1 last] 8 "\n\n(fn VARS BODY BINDINGS)"] #[514 "\300\301\242!@\"\207" [elisp--local-variables-1 last] 6 "\n\n(fn VARS SEXP)"] (let* let) let* reverse elisp--local-variables-1 last (let* let) lambda condition-case quote (let* let) elisp--witness--lisp (nil) (error) butlast] 19 (#$ . 11359)])
#@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\262A\266\202\202 \210\310\311\"\262\3121G \313\314Q!@0\202I \210\306\315\316\317\320\321\322!\323\"\324$\216\325\326\327#\210\330!)\331\306\"\332\306\333\334\"\"\266\204\266\203)\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" #[642 "\3001 \301#0\207\210\207" [(error) apply] 7 "\n\n(fn EXPANDER FORM &rest ARGS)"] make-byte-code 0 "\301\302\300\"\207" vconcat vector [advice-remove macroexpand] 3 advice-add macroexpand :around macroexpand-all elisp--local-variables-1 delq mapcar #[257 "\2119\205 \300\301!\302\"?\205 \303!\205 \211\207" [string-match symbol-name "\\`[&_]" intern-soft] 4 "\n\n(fn VAR)"]] 12 (#$ . 13263)])
(defvar elisp--local-variables-completion-table (byte-code "\300C\300C\300C\211\301\302\303\304\305\"\306\"\307$\240\210\310\301\311\312\304\305#\313\"\314\315%!\262\207" [nil make-byte-code 0 "\300\302\240\210\303\304\301\242\"\207" vconcat vector [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" [skip-syntax-backward "_w" add-hook post-command-hook mapcar symbol-name elisp--local-variables] 6 "\n\n(fn STRING)"] 12))
#@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 (#$ . 14807)])
#@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!\3018\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 (#$ . 15202)])
(defalias 'elisp--company-doc-buffer #[257 "\301!\302 \303\304\305\306\307!\310\"\311$\216\312\3131V \314!\203$ \315!\210\202P \316!\2031 \317!\210\202P \320!\203> \321!\210\202P \322!\203K \323!\210\202P \324\325\326\"\210\327 0\202X \210\326*\262\207" [display-buffer-overriding-action intern-soft current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [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] 9 "\n\n(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 "\n\n(fn STR)"])
(defalias 'elisp--company-location #[257 "\300!\301!\203 \302\303\"\202= \304!\203 \302\305\"\202= \306!\2033 \307\310!\210\311\312\313!!!\314B\202= \315!\205= \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 "\n\n(fn STR)"])
#@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 "\305 p\306\307\310\311\312\"\313\"\314$\216\315!\210`\3161* \212\317\320!\210\321\322w\210`)0\202, \210\211\211d=\2067 \211fz\323\235?\205Y \3241W \212\211b\210\325\320!\210\326\322x\210`Y\205R `)0\202Y \210\206^ `Sf\327=\330!\205\300\331\332 8\203| \206u `Sf\333>\205\300\203\204 \211\203\303 \334!\203\231 \322 \335\336\337\340\341\342\343\344\257\n\202\213\211\203\256 \322 \335\345\346\347\337\340\341\342\343\344\257\f\202\213\322\350\n\351\352 \353\354$\"\337\340\341\342\343\344\257\202\213\212Sb\210\3551\357 \356\357!\210\320u\210\322f\211\327=\203\337 \327\202\351 \211z\360>\205\351 \361p!\2620\202\361 \210\322\362\363\364=\203\365\366\367\370\371 \f\322#!\"D\202\206\372>\203Z\212\3731 \325\314!\210`W0\202!\210\322)\203-\365 \335\374F\202\206\375>\203P\212Sb\210\327=\203C\356\357!\210\376\357!\210\377\201@ !)\204U\211 \202\206 \202\206\201A >\203\212Sb\210\327=\203r\356\357!\210\376\357!\210\377\201@ !)\204\204\211 \202\206 \266\202\262)D@\204\230A\202\275f\206\240\201B z\201C >\203\256A@\202\271\351\201D \201E A@#AAB\244\262\266\205)\207" [emacs-lisp-mode-syntax-table obarray elisp--local-variables-completion-table macro-declarations-alist defun-declarations-alist syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (scan-error) backward-sexp 1 "`',‘#" nil (32 34 40 41) (scan-error) forward-sexp "'’" 40 elisp--form-quoted-p 8 syntax-ppss (96 8216) elisp--expect-function-p :predicate fboundp :company-doc-buffer elisp--company-doc-buffer :company-docsig elisp--company-doc-string :company-location elisp--company-location #[257 "\300!\206 \301!\206 \302!\206 \303!\207" [boundp fboundp featurep symbol-plist] 3 "\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 boundp strict (error) up-list -1 (119 95) read #[0 "\301\302\303\304\305\306\307\310\311\257\n\207" [obarray t :predicate boundp :company-doc-buffer elisp--company-doc-buffer :company-docsig elisp--company-doc-string :company-location elisp--company-location] 10] #[0 "\301\302\303\304\305\306\307\310\311\257\n\207" [obarray nil :predicate fboundp :company-doc-buffer elisp--company-doc-buffer :company-docsig elisp--company-doc-string :company-location elisp--company-location] 10] declare t mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn X)"] delete-dups append (condition-case-unless-debug condition-case) (error) #[257 "\211\300N\207" [error-conditions] 3 "\n\n(fn SYM)"] (let* let 40) forward-symbol looking-at "\\_<let\\*?\\_>" (let* let 40) 32 (32 62) completion-table-with-terminator " "] 19 (#$ . 16856)])
(defalias 'lisp-completion-at-point #[256 "\300 \207" [elisp-completion-at-point] 2 "\n\n(fn &optional PREDICATE)"])
(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 (byte-code "\300\301\302\303\304\305%\210\301\306\307\304\310%\210\211\207" ["(%s %s)" put-text-property 1 3 face font-lock-keyword-face 4 6 font-lock-function-name-face] 7))
(defvar elisp--xref-format-extra (byte-code "\300\301\302\303\304\305%\210\301\306\307\304\310%\210\211\207" ["(%s %s %s)" put-text-property 1 3 face font-lock-keyword-face 4 6 font-lock-function-name-face] 7))
#@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 vector cl-struct-xref-elisp-location] 11 (#$ . 20743)])
#@294 List of functions to be run from `elisp--xref-find-definitions' to add additional 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 supercedes the xrefs produced by
`elisp--xref-find-definitions'.
(defvar elisp-xref-find-def-functions nil (#$ . 21197))
(cl-generic-define-method 'xref-backend-definitions nil '((_backend (eql elisp)) identifier) nil #[514 "\300\301!\210\302!\211\205 \303!\207" [require find-func intern-soft elisp--xref-find-definitions] 5 "\n\n(fn BACKEND IDENTIFIER)"])
(defalias 'elisp--xref-find-definitions #[257 "\305\204 \211\203 \306\211A\262\242!\"\262\202 \210\211\204!9\203U K\203U K9\203U \307!K\310\311\"\211\203F \312\305#B\262\203S \312\313#B\262\266\314!\203m \310\315\"\211\203l \312\315#B\262\210\316!\203\265\310\211K\"\305\211\203\263\317=\203\226 \312\305\320K\321\"#B\262\202\263\322\323\"\211\262\203\321 \324\325\"\203\321 \326\327\"\330!\310\331\"\332 \333\334P\335\336
!\337Q$\312\331$B\262\266\202\263\340N\211\262\203\251\341!\203\357 G\342Y\203\357 \343H\n>\204\366 \344\345\340D\"\210\346H\211\203\212\211@\347!\341!\203G\342Y\203\343H >\204 \344\345\350D\"\210\327H\305 B\310\351\"\211\203B\211@\2069\211\323\232?\262A\266\202\202+\210\211\203\201\204Q\3528\203\201\203n\332 \351A@$\312\351$\fB\262\f\210\202\201\332 \351\353$\312\351$\fB\262\f\210\266A\266\202\202\371 \210\322\323\"\211\262\203\234\324\354\"\204\263\312\355#B\262\202\263\312\305#B\262\266\356!\203\376\310\357\"\211\203\375\211\317=\203\331\312\357\320\360\"#B\262\202\375\211\343\361O\362\230\203\356\312\357#B\262\202\375\f>\204\375\312\357#B\262\210\363!\203!\3641\365\336!!0\202\210\305\211\203 \312\366#B\262\210\211\207" [elisp-xref-find-def-functions elisp--xref-format-extra cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags minor-mode-list 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 vectorp 5 0 signal wrong-type-argument 3 cl--generic-method-info cl--generic-method cl-defmethod 2 "()" "\n\n(fn ARG &rest ARGS)" cl-defgeneric boundp defvar var 4 "src/" featurep (error) find-library-name feature] 18 "\n\n(fn SYMBOL)"])
(cl-generic-define-method 'xref-backend-apropos nil '((_backend (eql elisp)) regexp) nil #[514 "\300\301\302\303!\211\203 \211@\304!B\262A\266\202\202 \210\211\237\262\"\207" [apply nconc nil apropos-internal elisp--xref-find-definitions] 9 "\n\n(fn BACKEND REGEXP)"])
(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)"])
(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 (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-xref-elisp-location-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'xref-elisp-location-p 'compiler-macro 'xref-elisp-location-p--cmacro)
(defalias 'xref-elisp-location-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-xref-elisp-location-tags vectorp 4 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put xref-elisp-location-p side-effect-free error-free put xref-elisp-location cl-deftype-satisfies] 4)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-xref-elisp-location-tags)) (signal 'wrong-type-argument (list 'xref-elisp-location cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'xref-elisp-location-symbol 'compiler-macro 'xref-elisp-location-symbol--cmacro)
(defalias 'xref-elisp-location-symbol #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-xref-elisp-location-tags 0 signal wrong-type-argument xref-elisp-location 1] 5 "\n\n(fn CL-X)"])
(function-put 'xref-elisp-location-symbol 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-xref-elisp-location-tags)) (signal 'wrong-type-argument (list 'xref-elisp-location cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'xref-elisp-location-type 'compiler-macro 'xref-elisp-location-type--cmacro)
(defalias 'xref-elisp-location-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-xref-elisp-location-tags 0 signal wrong-type-argument xref-elisp-location 2] 5 "\n\n(fn CL-X)"])
(function-put 'xref-elisp-location-type 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-xref-elisp-location-tags)) (signal 'wrong-type-argument (list 'xref-elisp-location cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'xref-elisp-location-file 'compiler-macro 'xref-elisp-location-file--cmacro)
(defalias 'xref-elisp-location-file #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-xref-elisp-location-tags 0 signal wrong-type-argument xref-elisp-location 3] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put xref-elisp-location-file side-effect-free t defalias copy-xref-elisp-location copy-sequence] 4)
#@49
(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 "Constructor for objects of type `xref-elisp-location'." (declare (side-effect-free t)) (vector 'cl-struct-xref-elisp-location symbol type file))] 14 (#$ . 27456)])
(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)" vector cl-struct-xref-elisp-location] 9 (#$ . 28213)])
(function-put 'make-xref-elisp-location 'side-effect-free t)
(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 "Constructor for objects of type `xref-elisp-location'." (declare (side-effect-free t)) (vector 'cl-struct-xref-elisp-location symbol type file)) nil] 13 "\n\n(fn CL-WHOLE-ARG SYMBOL TYPE FILE)"])
(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" [vector cl-struct-xref-elisp-location] 8 (#$ . 29218)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\211\311\312\313\303& \210\314\315\310\316\310\317%\210\314\320\310\321\310\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 nil ((cl-tag-slot) (symbol) (type) (file)) cl-struct-xref-elisp-location-tags cl-struct-xref-elisp-location cl-generic-define-method xref-location-marker ((l xref-elisp-location)) #[257 "\211\300H\301H\302H\211\303#r\211@q\210\212\211A\206 eb\210\304 *\262\266\203\207" [1 2 3 find-function-search-for-symbol point-marker] 11 "\n\n(fn L)"] xref-location-group ((l xref-elisp-location)) #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-xref-elisp-location-tags 0 signal wrong-type-argument xref-elisp-location 3] 5 "\n\n(fn L)"]] 10)
(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 \301\302!\303\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\315\316\302B#\210\315\317\320#\210\315\321\322#\210\315\323\324#\210\315\325\326#\210\315\327\330#\210\207" [lisp-mode-shared-map make-sparse-keymap "Lisp-Interaction" set-keymap-parent define-key "" eval-defun "" indent-pp-sexp " " completion-at-point "\n" eval-print-last-sexp bindings--define-key [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") [complete-symbol] (menu-item "Complete Lisp Symbol" completion-at-point :help "Perform completion on Lisp symbol preceding point")] 7) (#$ . 30392))
#@173 Hook run after entering Lisp Interaction mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar lisp-interaction-mode-hook nil (#$ . 31741))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp lisp-interaction-mode-map put 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\300\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] 5)
(defvar lisp-interaction-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [lisp-interaction-mode-syntax-table variable-documentation put purecopy "Syntax table for `lisp-interaction-mode'." lisp-interaction-mode derived-mode-parent emacs-lisp-mode] 5)
#@632 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 step
during initialization.
(defalias 'lisp-interaction-mode #[0 "\305\300!\210\306\307 \210\310\311\307\312N\203 \313\310\312\307\312N#\210\314 !\204' \315 \316 \"\210\317\f!\211\2035 \211\320 =\203; \321\f\322 \"\210\210\323 !\210\324\f!\210)\325\326!\207" [delay-mode-hooks major-mode mode-name lisp-interaction-mode-map lisp-interaction-mode-syntax-table 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 (#$ . 32770) nil])
(defconst emacs-list-byte-code-comment-re "\\(#\\)@\\([0-9]+\\) \\(?:[^(]\\|([^\"]\\)")
#@101 Try to syntactically mark the #@NNN ....^_ docstrings in byte-code files.
(fn END &optional POINT)
(defalias 'elisp--byte-code-comment #[513 "\301 \3028\205z \3038f\304=\205z \212\3038b\210\305!\205\" \306\307\310!!)\211\205x \310\225\311!\211\\b\210\312\311`!#\211\313U?\205_ \211V\203J \262\211[u\210\211\313V\203X \211\202\\ S\314]\262\315\262\2042 \266`X\203v \316`S`\317\320$\202x b\266\202\207" [emacs-list-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)] 11 (#$ . 34145)])
(defalias 'elisp-byte-code-syntax-propertize #[514 "b\210\300`\"\210b\210`W\2051 \301\302\303#\2051 \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)] 9 "\n\n(fn START END)"])
(add-to-list 'auto-mode-alist '("\\.elc\\'" . elisp-byte-code-mode))
#@172 Hook run after entering Elisp-Byte-Code mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar elisp-byte-code-mode-hook nil (#$ . 35158))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp elisp-byte-code-mode-map put definition-name elisp-byte-code-mode] 4)
(defvar elisp-byte-code-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [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] 5)
(defvar elisp-byte-code-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [elisp-byte-code-mode-syntax-table variable-documentation put purecopy "Syntax table for `elisp-byte-code-mode'." elisp-byte-code-mode-abbrev-table definition-name elisp-byte-code-mode] 5)
(defvar elisp-byte-code-mode-abbrev-table (progn (define-abbrev-table 'elisp-byte-code-mode-abbrev-table nil) elisp-byte-code-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [elisp-byte-code-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `elisp-byte-code-mode'." elisp-byte-code-mode derived-mode-parent emacs-lisp-mode] 5)
#@228 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 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
\325 C#\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 (#$ . 36585) 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 (#$ . 37746) "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 (#$ . 38484)])
#@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\210U\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 (#$ . 39231) "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\205u \301!\205u \302!\303!\304\305>\2033 \306\307\"\310U\2033 \304\311\211\226\")\2043 \226\262\304\262\3121` \313\314\315\316#\317>\203K \320\321\"\202X \322=\203U \323\202X \320!Q\211\2620\202d \210\202e \210\211\205s \324!@U\205s \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)"] "" (59 40 41 123 125 91 93 34 39 92) string 92 127 "\\C-?" read-from-string] 9 (#$ . 39692)])
#@31 Return sexp before the point.
(defalias 'elisp--preceding-sexp #[0 "`\301\302\212\303 p\304\305\306\307\310\"\311\"\312$\216\313!\210h\314=\203) \315u\210`\262\2028 g\316=\2045 h\316=\2038 \317\262\320\315!\210h\321=\203N \315u\210h\322=\203N \315u\210`eTV\203a \323\324`\312Z\"\203a \325u\210h\326=\203| \302\212\327\302x\210\330\331!\262)\211\203{ \320\315!\210\210\214g=\203\206 \302u\210\330\332!\203\220 \305\225b\210e}\210\333p!\262\242\334=\203\253 \335\336\337\340BBBD\262*\266\202)\207" [emacs-lisp-mode-syntax-table 8216 nil syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table 8217 -1 39 96 forward-sexp 92 63 looking-back "#s" -2 61 "0-9#=" looking-at "\\(#[0-9]+=\\)+" ",@?" read interactive call-interactively lambda (&rest args) (args)] 12 (#$ . 40472)])
(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 "\211\203 p\202 \302\303\304\305\306 ! \"\")\207" [standard-output lexical-binding t elisp--eval-last-sexp-print-value eval eval-sexp-add-defvars elisp--preceding-sexp] 5 (#$ . 41453)])
(defalias 'elisp--eval-last-sexp-print-value #[513 "\305\211\306!*\307!\310U?\205 \n\307!\310U?\205 `\305\311!\312!\211\2032 \313!\210\210`\262\314\f!\203\\ \204D \203\\ \315\"\230\204\\ \316\n \315\"%\210*\207" [print-level print-length eval-expression-print-length eval-expression-print-level standard-output nil prin1-to-string prefix-numeric-value 0 prin1 eval-expression-print-format princ bufferp buffer-substring-no-properties last-sexp-setup-props] 16 "\n\n(fn VALUE &optional EVAL-LAST-SEXP-ARG-INTERNAL)"])
(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 "\301!\262\204 \207\212\211\204 `\262\302eb\210\303\304\305#\203? \306\307\310!!\311!\204; \212\312\313\224!@\313U)\203; \211B\262\210\202 \314\315\316\317\"C\"B\262)\207" [lexical-binding macroexpand-all nil re-search-forward "(def\\(?:var\\|const\\|custom\\)[ \n]+\\([^; '()\n ]+\\)" t intern match-string 1 special-variable-p syntax-ppss 0 progn append mapcar #[257 "\300D\207" [defvar] 3 "\n\n(fn V)"]] 8 (#$ . 42648)])
#@645 Evaluate sexp before point; print value in the echo area.
Interactively, with prefix argument, print output 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 EVAL-LAST-SEXP-ARG-INTERNAL)
(defalias 'eval-last-sexp #[257 "\204 \303!\207 \303!\n)B\211A =\204 \211A\211@\207" [eval-expression-debug-on-error elisp--eval-last-sexp-fake-value debug-on-error elisp--eval-last-sexp] 4 (#$ . 43304) "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 \303A@!\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 \313A@\"\320 \"\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 assq-delete-all put face-defface-spec face-override-spec mapcar elisp--eval-defun-1] 8 (#$ . 44171)])
#@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 \212\306\307\211C\307 \212\310 \210\311 \210`\262\312p!\262`\240\210)\313\314\315!!!\316\242\317\320\321\322\323 \n\"\324\"\325\326%$\266)\266,\327@!\211\203S \330!\210\210@\207" [eval-expression-debug-on-error eval-expression-print-length eval-expression-print-level print-level print-length debug-on-error t nil end-of-defun beginning-of-defun read eval-sexp-add-defvars elisp--eval-defun-1 macroexpand eval-region make-byte-code 257 "\300\242b\210\301\207" vconcat vector [] 2 "\n\n(fn IGNORE)" eval-expression-print-format princ standard-output values] 16 (#$ . 45104)])
#@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 (#$ . 46112) "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) (#$ . 47546))
#@60 `eldoc-documentation-function' (which see) for Emacs Lisp.
(defalias 'elisp-eldoc-documentation-function #[0 "\300 \301 \211\204\f \302\202* @=\203 \303\304\"\206* \305!\202* \305!\206* \303\304\"\207" [elisp--current-symbol elisp--fnsym-in-current-sexp nil apply elisp-get-fnsym-args-string elisp-get-var-docstring] 5 (#$ . 47894)])
#@207 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 PREFIX)
(defalias 'elisp-get-fnsym-args-string #[769 "\203 9\203 \302!\204 \303\202e \304H=\203) \305H\306=\203) \307H\202e \310\311! \312#\303<\203: \202[ \313\3141H \315\312\"0\202J \210\303\"\211\262\203X \211@\202[ \316!\317\320!\306#\266\203\211\205\207 \321\206\206 \322\323 !\324\325 !\203\202 \326\202\203 \327#\330P$\207" [elisp--eldoc-last-data advertised-signature-table fboundp nil 0 2 function 1 gethash indirect-function t help-split-fundoc (invalid-function) documentation help-function-arglist elisp--last-data-store elisp-function-argstring elisp--highlight-function-argument propertize symbol-name face functionp font-lock-function-name-face font-lock-keyword-face ": "] 13 (#$ . 48242)])
#@154 Highlight argument INDEX in ARGS list for function SYM.
In the absence of INDEX, just call `eldoc-docstring-format-sym-doc'.
(fn SYM ARGS INDEX PREFIX)
(defalias 'elisp--highlight-function-argument #[1028 "\302\303\304\305\306\307!\"\310\311\"\203\311 \302\211\312 !\313 \311\235A\212\314\302\315#\205* \303\225)\203= \310\316\"\203= \317\302O\202] \212\302\314\320\315#\205Z \307\321\317!\322\315#\262\211@A\203Z \315\262\262)\211;\205s \205s \211\226\235?\205s \323!@\226\230\204\306 \203\240 \212\324\325\326 \315#)\204\240 \310\327\"\203\240 \302\262
\317\224\262 \317\225\262\n\202\306 \203\306 \310\330\226\331Q\"\204\273 \310\330\331Q\"\203\306 \302\262
\303\224\262 \303\225\262\n)\266\203m\317Y\203m\310\332#\203[\303\224\262\303\225\262\321\303\"\211\333\230\203\365 \317\262\202W\211\334\230\204W\211\335\230\204W\336\302\315\310#)\266\203\203\211\323!@\230\204L\336\317\nGSO\302\315\310#)\266\203\203R\337\340\"G\341U\203R\317V\203R\342\317\"\317=\203R\303\262\202WS\262\210\202\311 G\262S\262\343\262\303\262\202\311 \203\203\344!\262\345\346D$\210\347\"\262\211\262\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 string-match "&key" symbol-name current-word re-search-backward t ":\\([^ ()]*\\)" 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 eldoc-docstring-format-sym-doc] 20 (#$ . 49182)])
(defalias 'elisp-get-var-docstring #[257 "\211\204 \301\207\211\302H=\203 \303H\304=\203 \305H\207\306\307\310#\211\2051 \311\312!\313#\314\304#\262\207" [elisp--eldoc-last-data nil 0 2 variable 1 documentation-property variable-documentation t eldoc-docstring-format-sym-doc elisp--docstring-first-line font-lock-variable-name-face elisp--last-data-store] 7 "\n\n(fn SYM)"])
(defalias 'elisp--last-data-store #[771 "\301I\210\302I\210\303I\210\207" [elisp--eldoc-last-data 0 1 2] 6 "\n\n(fn SYMBOL DOC TYPE)"])
(defalias 'elisp--docstring-first-line #[257 "\211;\205D \300\301 \302\303\304\305\306!\307\"\310$\216\311\312\"\203 \303\225\202! \303\311\313\"\2030 \303\224O\202> \211\303U\203: \202> \314O\262)\262!\207" [substitute-command-keys match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "\\`\\*" "\n" nil] 9 "\n\n(fn DOC)"])
(defalias 'elisp--fnsym-in-current-sexp #[0 "\212\300 S\211\301W\203
\301\262`Sf\206 \301\302U?\205 \303 D\262)\207" [elisp--beginning-of-sexp 0 34 elisp--current-symbol] 3])
(defalias 'elisp--beginning-of-sexp #[0 "\301\302\3031E \3041% `\305\306!\210\305\307!\210`W\205 \307\211\262\2620\202( \310\262\210`\305\306!\210`W\2059 T\211\262\262\205A \202) 0\202H \310\262\210)\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$\202- \211\207" [nil substitute-command-keys help--make-usage-docstring toto string-match "\\`([^ )]+ ?" replace-match "(" t] 7 (#$ . 52487)])
(provide 'elisp-mode)
Kontol Shell Bypass