ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/cl-indent.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\304\301&\210\306\314\315\316\312\313\304\301&\210\306\317\310\320\312\313\304\301&\210\306\321\322\323\312\324\304\301&\210\306\325\310\326\312\313\304\301&\210\306\327\330\331\312\313\304\301&\210\306\332\310\333\312\313\304\301&\210\306\334\302\335\336\337\312\324\304\301& \210\306\340\341\342\336\337\312\313\304\301& \210\306\343\302\344\336\337\312\324\304\301& \210\306\345\322\346\336\347\312\350\304\301& \207" [custom-declare-group lisp-indent nil "Indentation in Lisp." :group lisp custom-declare-variable lisp-indent-maximum-backtracking 3 "Maximum depth to backtrack out from a sublist for structured indentation.\nIf this variable is 0, no backtracking will occur and forms such as `flet'\nmay not be correctly indented." :type integer lisp-tag-indentation 1 "Indentation of tags relative to containing list.\nThis variable is used by the function `lisp-indent-tagbody'." lisp-tag-body-indentation "Indentation of non-tagged lines relative to containing list.\nThis variable is used by the function `lisp-indent-tagbody' to indent normal\nlines (lines without tags).\nThe indentation is relative to the indentation of the parenthesis enclosing\nthe special form. If the value is t, the body of tags will be indented\nas a block at the same indentation as the first s-expression following\nthe tag. In this case, any forms before the first tag are indented\nby `lisp-body-indent'." lisp-backquote-indentation t "Whether or not to indent backquoted lists as code.\nIf nil, indent backquoted lists as data, i.e., like quoted lists." boolean lisp-loop-keyword-indentation "Indentation of loop keywords in extended loop forms." lisp-loop-forms-indentation 5 "Indentation of forms in extended loop forms." lisp-simple-loop-indentation "Indentation of forms in simple loop forms." lisp-lambda-list-keyword-alignment "Whether to vertically align lambda-list keywords together.\nIf nil (the default), keyworded lambda-list parts are aligned\nwith the initial mandatory arguments, like this:\n\n(defun foo (arg1 arg2 &rest rest\n &key key1 key2)\n #|...|#)\n\nIf non-nil, alignment is done with the first keyword\n(or falls back to the previous case), as in:\n\n(defun foo (arg1 arg2 &rest rest\n &key key1 key2)\n #|...|#)" :version "24.1" lisp-lambda-list-keyword-parameter-indentation 2 "Indentation of lambda list keyword parameters.\nSee `lisp-lambda-list-keyword-parameter-alignment'\nfor more information." lisp-lambda-list-keyword-parameter-alignment "Whether to vertically align lambda-list keyword parameters together.\nIf nil (the default), the parameters are aligned\nwith their corresponding keyword, plus the value of\n`lisp-lambda-list-keyword-parameter-indentation', like this:\n\n(defun foo (arg1 arg2 &key key1 key2\n key3 key4)\n #|...|#)\n\nIf non-nil, alignment is done with the first parameter\n(or falls back to the previous case), as in:\n\n(defun foo (arg1 arg2 &key key1 key2\n key3 key4)\n #|...|#)" lisp-indent-backquote-substitution-mode "How to indent substitutions in backquotes.\nIf t, the default, indent substituted forms normally.\nIf nil, do not apply special indentation rule to substituted\nforms. If `corrected', subtract the `,' or `,@' from the form\ncolumn, indenting as if this character sequence were not present.\nIn any case, do not backtrack beyond a backquote substitution.\n\nUntil Emacs 25.1, the nil behavior was hard-wired." "25.1" (choice (const corrected) (const nil) (const t))] 10)
#@125 Defun-like indentation method.
This applies when the value of the `common-lisp-indent-function' property
is set to `defun'.
(defvar lisp-indent-defun-method '(4 &lambda &body) (#$ . 4015))
#@53 True if an extended loop form starts at LOOP-START.
(defalias 'lisp-extended-loop-p #[(loop-start) "\3011 \212b\210\302u\210\303\304!\210\305\302!\210\306\307!)0\207\210\310\207" [loop-start (error) 1 forward-sexp 2 backward-sexp looking-at "\\sw" t] 2 (#$ . 4210)])
#@146 Find the lisp indentation function for SYMBOL.
If NO-COMPAT is non-nil, do not retrieve indenters intended for
the standard lisp indent package.
(defalias 'lisp-indent-find-method #[(symbol &optional no-compat) "\302\303!\203\f \304N\206 \305N\206 ?\205 \306N\207" [symbol no-compat derived-mode-p emacs-lisp-mode common-lisp-indent-function-for-elisp common-lisp-indent-function lisp-indent-function] 2 (#$ . 4486)])
#@52 Compute the indentation of loop form constituents.
(defalias 'common-lisp-loop-part-indentation #[(indent-point state) "\212\306\234b\210i)\n\307=\203= \212\306\234b\210 `Sf\310=\203\" \311\202: `Sf\312=\2039 \311u\210`Sf\310=\2039 \313\202: \314\\) b\210\315 \210\316\306\234!\204Q \f\\\202a \317\320!\203]
\\\202a \\ )D\207" [state loop-indentation lisp-indent-backquote-substitution-mode indent-point lisp-simple-loop-indentation lisp-loop-keyword-indentation 1 corrected 44 -1 64 -2 0 beginning-of-line lisp-extended-loop-p looking-at "^\\s-*\\(:?\\sw+\\|;\\)" lisp-loop-forms-indentation] 3 (#$ . 4917)])
#@3420 Function to indent the arguments of a Lisp function call.
This is suitable for use as the value of the variable
`lisp-indent-function'. INDENT-POINT is the point at which the
indentation function is called, and STATE is the
`parse-partial-sexp' state at that position. Browse the
`lisp-indent' customize group for options affecting the behavior
of this function.
If the indentation point is in a call to a Lisp function, that
function's `common-lisp-indent-function' property specifies how
this function should indent it. Possible values for this
property are:
* defun, meaning indent according to `lisp-indent-defun-method';
i.e., like (4 &lambda &body), as explained below.
* any other symbol, meaning a function to call. The function should
take the arguments: PATH STATE INDENT-POINT SEXP-COLUMN NORMAL-INDENT.
PATH is a list of integers describing the position of point in terms of
list-structure with respect to the containing lists. For example, in
((a b c (d foo) f) g), foo has a path of (0 3 1). In other words,
to reach foo take the 0th element of the outermost list, then
the 3rd element of the next list, and finally the 1st element.
STATE and INDENT-POINT are as in the arguments to
`common-lisp-indent-function'. SEXP-COLUMN is the column of
the open parenthesis of the innermost containing list.
NORMAL-INDENT is the column the indentation point was
originally in. This function should behave like `lisp-indent-259'.
* an integer N, meaning indent the first N arguments like
function arguments, and any further arguments like a body.
This is equivalent to (4 4 ... &body).
* a list. The list element in position M specifies how to indent the Mth
function argument. If there are fewer elements than function arguments,
the last list element applies to all remaining arguments. The accepted
list elements are:
* nil, meaning the default indentation.
* an integer, specifying an explicit indentation.
* &lambda. Indent the argument (which may be a list) by 4.
* &rest. When used, this must be the penultimate element. The
element after this one applies to all remaining arguments.
* &body. This is equivalent to &rest lisp-body-indent, i.e., indent
all remaining elements by `lisp-body-indent'.
* &whole. This must be followed by nil, an integer, or a
function symbol. This indentation is applied to the
associated argument, and as a base indent for all remaining
arguments. For example, an integer P means indent this
argument by P, and all remaining arguments by P, plus the
value specified by their associated list element.
* a symbol. A function to call, with the 6 arguments specified above.
* a list, with elements as described above. This applies when the
associated function argument is itself a list. Each element of the list
specifies how to indent the associated argument.
For example, the function `case' has an indent property
(4 &rest (&whole 2 &rest 1)), meaning:
* indent the first argument by 4.
* arguments after the first should be lists, and there may be any number
of them. The first list element has an offset of 2, all the rest
have an offset of 2+1=3.
If the current mode is actually `emacs-lisp-mode', look for a
`common-lisp-indent-function-for-elisp' property before looking
at `common-lisp-indent-function' and, if set, use its value
instead.
(defalias 'common-lisp-indent-function #[(indent-point state) "\212\303\234b\210\304\305\306!\203 \307\202 \310!\2053 \2063 `Sf\311=\203- \312u\210`Sf\313=\2062 `Sf\313=?)\203< \314\n\"\207\315\n\"\207" [state lisp-indent-backquote-substitution-mode indent-point 1 looking-at derived-mode-p emacs-lisp-mode "(\\(cl-\\)?loop" "([Ll][Oo][Oo][Pp]" 64 -1 44 common-lisp-loop-part-indentation common-lisp-indent-function-1] 3 (#$ . 5546)])
(defalias 'common-lisp-indent-function-1 #[(indent-point state) "i\306\307\211\211 \n\310\234\307 ' ( ) *\fb\210i(\204C*+W\203C` ,\310u\210\311` \310\312$\210\307\211\211\211 - . / 0\313\314!\204P \307\211/.\202\305 `0\315\310!\210\3160`\"\227/0b\210\317\320!\203\227 \321\322/!\312\"\204\227 \323\324/\"\203\227 \322/\306\225\307O!\2110\203\227 \3210\312\"\203\227 \3250!/\322/!0\3210!.0\204\305 \323\326/\"\203\305 /\306\224T\307O/\322/!0\3210!.\306 1` W\203\365 \3271\356 \315\310!\210` Y?\205\352 \311` \310\312$\2101T1\3120\202\362 \210\202\365 \204\316 1)B))/\2034.\204))A\2044\323\330/\"\203\312-\2024\323\331/\"\2034\332.\2024.\333=\20342.,Sf\334=\204K3\204\\,Sf\335=\203\\,\336Zf\337=\204\\ T(\202,Sf\340=\204x,Sf\341=\203\244,\336Zf\340=\203\2444\342=\203\216 S,Sf\341=\203\216 S4\203\235'+*\202\244\211(\204,Sf\337=\203\264 T(\202.\204\322-\203\343/2)\n &\211'\202.\250\203\n)A\203\342\202)@.X\203\363 \344\\\fD\202)@.TU\203 5\\\202(\202\343/.)\n &(,,b\210,(\204?\34518\346\310!\210*T\211*0\202>\210+\211*\210)\202 (\206J'.\207" [normal-indent indent-point state sexp-column containing-form-start last-point 0 nil 1 parse-partial-sexp t looking-at "\\sw\\|\\s_" forward-sexp buffer-substring-no-properties derived-mode-p emacs-lisp-mode lisp-indent-find-method intern-soft string-match "\\`cl-" symbol-name ":[^:]+" (error) "\\`def" "\\`\\(\\(?:do\\|with\\(?:out\\)?\\)\\)-" (&lambda &body) defun 39 96 2 35 44 64 corrected common-lisp-indent-call-method 4 (error) backward-up-list tentative-calculated calculated path depth lisp-indent-maximum-backtracking containing-sexp tentative-defun method function tem n lisp-indent-defun-method lisp-backquote-indentation lisp-indent-backquote-substitution-mode lisp-body-indent] 9])
(defalias 'common-lisp-indent-call-method #[(function method path state indent-point sexp-column normal-indent) "\n9\203 \n \f
%\202 \306\n \f
&)\207" [function lisp-indent-error-function method path state indent-point lisp-indent-259 sexp-column normal-indent] 7])
(defalias 'lisp-indent-report-bad-format #[(m) "\302\303\304 $\207" [lisp-indent-error-function m error "%s has a badly-formed %s property: %s" common-lisp-indent-function] 5])
#@51 Regular expression matching lambda-list keywords.
(defvar lisp-indent-lambda-list-keywords-regexp "&\\(optional\\|rest\\|key\\|allow-other-keys\\|aux\\|whole\\|body\\|environment\\)\\([ ]\\|$\\)" (#$ . 11765))
(defalias 'lisp-indent-lambda-list #[(indent-point sexp-column containing-form-start) "\306\212 b\210\307 \210\310\306w\210`\311\n!)\203@ \203: \212\fb\210\312 \313\216\314\n\315#\2033 \316\224b\210i\2026 T+\202\210 T\202\210 \212 b\210\317y\210\306\210\312 \320\216\321\n\f\315#\203\204 \316\224b\210i\211 \\ \316\225b\210\310\306w\210l\203u \202\200 \203~ i\202\200 *\202\207 T+)\207" [limit indent-point lisp-indent-lambda-list-keywords-regexp lisp-lambda-list-keyword-alignment containing-form-start save-match-data-internal nil beginning-of-line " " looking-at match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward t 0 -1 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-backward sexp-column keyword-posn lisp-lambda-list-keyword-parameter-indentation indented-keyword-posn lisp-lambda-list-keyword-parameter-alignment] 5])
(defalias 'lisp-indent-259 #[(method path state indent-point sexp-column normal-indent) "\3062\275 \307\234\310\211\211 \205\273:\204! \311!\210@SA\310\f\203 @\211\310=\204\220 \312=\204\220 \313=\203M A\203\220 \314=\203a A:\203a AA\203\220 \250\204\220 :\203\200 @\315=\203\200 A@9\204\220 A@\250\204\220 9\203\213 A\203\220 \311!\210\n\203\242 :\204\242 \316\306\"\210\202- \313=\203\304 \316\306\f\317U\203\275 \204\275 \\\202\277 \"\210\202- \314=\203\330 \f\317V\317A\202- \f\317V\203\365 \fSA\f\317W\203- \316\306\"\210\202- \310=\203\316\306:\203\202\f
D\"\210\202- \312=\203@\316\306\204'\320\\
D\202;A\2049\321
#
D\202;\"\210\202- \250\203\\\316\306\204U \\
D\202W\"\210\202- 9\203r\316\306 %\"\210\202- \203\202 AA\310\211\202. A@\316\306\n\203\221\202\266 \310=\203\236
D\202\266 \250\203\254 \\
D\202\266 %\"\210\202- -0\207" [path state tail tem n containing-form-start exit 1 nil lisp-indent-report-bad-format &lambda &body &rest &whole throw 0 4 lisp-indent-lambda-list p method normal-indent sexp-column lisp-body-indent indent-point] 9])
(defalias 'lisp-indent-tagbody #[(path state indent-point sexp-column normal-indent) "A\203 \207\212\nb\210\306 \210\307\310w\210\311\312!\203 \f\\\202F
\250\203)
\\\202F
\313=\203B \3141< \315\316!\210i0\202F \210 T\202F \\\316\234)D\207" [path normal-indent indent-point sexp-column lisp-tag-indentation lisp-tag-body-indentation beginning-of-line " " nil looking-at "\\sw\\|\\s_" t (error) backward-sexp 1 lisp-body-indent state] 3])
(defalias 'lisp-indent-do #[(path state indent-point sexp-column normal-indent) "@\306Y\203 \307 \f
\n%)\207\310\311 \f
\n&\207" [path lisp-body-indent lisp-tag-body-indentation state indent-point sexp-column 3 lisp-indent-tagbody lisp-indent-259 ((&whole nil &rest) (&whole nil &rest 1)) normal-indent] 7])
(defalias 'lisp-indent-defmethod #[(path state indent-point sexp-column normal-indent) "\306\307 @\310Y\203> \212\311 \210\312u\210\313\314!\210\315\316w\210\317\320!\203, T\313 \210\315\316w\210\202 \307V)\203> \321\322\323\324\"\325#\202A \326\327N) \n \f
&\207" [nqual path state indent-point sexp-column normal-indent lisp-indent-259 0 3 beginning-of-defun 1 forward-sexp 2 " \n" nil looking-at "\\sw\\|\\s_" append (4) make-list 4 (&lambda &body) defun common-lisp-indent-function] 7])
(defalias 'lisp-indent-function-lambda-hack #[(path state indent-point sexp-column normal-indent) "A\204\f @\304V\203 \207\3051. \212\306\307!\210\310u\210\311\312!\203( \313\n\314i#\202+ \n\\)0\207\210 \n\\\207" [path normal-indent lisp-body-indent sexp-column 3 (error) backward-up-list 2 1 looking-at "\\(lisp:+\\)?function\\(\\Sw\\|\\S_\\)" + -1] 4])
(byte-code "\303\211\304\211\203* \n@\305 @\306 A9\203 A\306N\202! A@#\210\nA\211\204\n +\305\307\310\311#\210\305\312\310\313#\210\314\315!\207" [l el --dolist-tail-- ((block 1) (case (4 &rest (&whole 2 &rest 1))) (ccase . case) (ecase . case) (typecase . case) (etypecase . case) (ctypecase . case) (catch 1) (cond (&rest (&whole 2 &rest 1))) (defvar (4 2 2)) (defclass (6 4 (&whole 2 &rest 1) (&whole 2 &rest 1))) (defconstant . defvar) (defcustom (4 2 2 2)) (defparameter . defvar) (defconst . defcustom) (define-condition . defclass) (define-modify-macro (4 &lambda &body)) (defsetf (4 &lambda 4 &body)) (defun (4 &lambda &body)) (defgeneric (4 &lambda &body)) (define-setf-method . defun) (define-setf-expander . defun) (defmacro . defun) (defsubst . defun) (deftype . defun) (defmethod lisp-indent-defmethod) (defpackage (4 2)) (defstruct ((&whole 4 &rest (&whole 2 &rest 1)) &rest (&whole 2 &rest 1))) (destructuring-bind ((&whole 6 &rest 1) 4 &body)) (do lisp-indent-do) (do* . do) (dolist ((&whole 4 2 1) &body)) (dotimes . dolist) (eval-when 1) (flet ((&whole 4 &rest (&whole 1 &lambda &body)) &body)) (labels . flet) (macrolet . flet) (generic-flet . flet) (generic-labels . flet) (handler-case (4 &rest (&whole 2 &lambda &body))) (restart-case . handler-case) (if (nil nil &body)) (if (&rest nil)) (lambda (&lambda &rest lisp-indent-function-lambda-hack)) (let ((&whole 4 &rest (&whole 1 1 2)) &body)) (let* . let) (compiler-let . let) (handler-bind . let) (restart-bind . let) (locally 1) (:method (&lambda &body)) (multiple-value-bind ((&whole 6 &rest 1) 4 &body)) (multiple-value-call (4 &body)) (multiple-value-prog1 1) (multiple-value-setq (4 2)) (multiple-value-setf . multiple-value-setq) (pprint-logical-block (4 2)) (print-unreadable-object ((&whole 4 1 &rest 1) &body)) (prog (&lambda &rest lisp-indent-tagbody)) (prog* . prog) (prog1 1) (prog2 2) (progn 0) (progv (4 4 &body)) (return 0) (return-from (nil &body)) (symbol-macrolet . let) (tagbody lisp-indent-tagbody) (throw 1) (unless 1) (unwind-protect (5 &body)) (when 1) (with-accessors . multiple-value-bind) (with-condition-restarts . multiple-value-bind) (with-compilation-unit (&lambda &body)) (with-output-to-string (4 2)) (with-slots . multiple-value-bind) (with-standard-io-syntax (2))) nil put common-lisp-indent-function if common-lisp-indent-function-for-elisp 2 with-output-to-string 0 provide cl-indent] 6)
Kontol Shell Bypass