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



#@177 Set FUNCTION's property PROP to VALUE.
The namespace for PROP is shared with symbols.
So far, FUNCTION can only be a symbol, not a lambda expression.

(fn FUNCTION PROP VALUE)
(defalias 'function-put #[771 "\300#\207" [put] 7 (#$ . 85)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put defmacro doc-string-elt 3 lisp-indent-function 2] 5)
#@265 Function to process declarations in a macro definition.
The function will be called with two args MACRO and DECL.
MACRO is the name of the macro being defined.
DECL is a list `(declare ...)' containing the declarations.
The value the function returns is not used.
(defvar macro-declaration-function 'macro-declaration-function (#$ . 456))
#@293 Process a declaration found in a macro definition.
This is set as the value of the variable `macro-declaration-function'.
MACRO is the name of the macro being defined.
DECL is a list `(declare ...)' containing the declarations.
The return value of this function is not used.

(fn MACRO DECL)
(defalias 'macro-declaration-function #[514 "\300
A\211\262\205d
@\262
\211:\203\\\211A<\203\\\211AA\204\\\211@\301=\2030\302\303A@#\210\202
\211@\304=\203B\302\305A@#\210\202
\211@\306=\203T\302\307A@#\210\202
\310\311\"\210\202
\310\312\"\210\202
\207" [nil indent put lisp-indent-function debug edebug-form-spec doc-string doc-string-elt message "Unknown declaration %s" "Invalid declaration %s"] 7 (#$ . 802)])
#@28 

(fn F ARGS ARGLIST WHEN)
(defalias 'byte-run--set-advertised-calling-convention #[1028 "\300\301D\301D\301DF\207" [set-advertised-calling-convention quote] 9 (#$ . 1536)])
#@29 

(fn F ARGS NEW-NAME WHEN)
(defalias 'byte-run--set-obsolete #[1028 "\300\301D\301D\301DF\207" [make-obsolete quote] 9 (#$ . 1719)])
#@23 

(fn F ARGS INSTEAD)
(defalias 'byte-run--set-interactive-only #[771 "\300\301D\302\301DF\207" [function-put quote 'interactive-only] 8 (#$ . 1862)])
#@19 

(fn F ARGS VAL)
(defalias 'byte-run--set-pure #[771 "\300\301D\302\301DF\207" [function-put quote 'pure] 8 (#$ . 2021)])
#@19 

(fn F ARGS VAL)
(defalias 'byte-run--set-side-effect-free #[771 "\300\301D\302\301DF\207" [function-put quote 'side-effect-free] 8 (#$ . 2152)])
(put 'compiler-macro 'edebug-declaration-spec '(&or symbolp ("lambda" &define lambda-list lambda-doc def-body)))
#@33 

(fn F ARGS COMPILER-FUNCTION)
(defalias 'byte-run--set-compiler-macro #[771 "\211\242\300=\204\301\302\303D\304\305DFD\207\306\307!\310P!
A\311\301\302\303D\312\305DFD\313\301\314\315@\"ABBBDF\207" [lambda eval-and-compile function-put quote 'compiler-macro function intern symbol-name "--anon-cmacro" progn 'compiler-macro :autoload-end defun append] 14 (#$ . 2420)])
#@19 

(fn F ARGS POS)
(defalias 'byte-run--set-doc-string #[771 "\300\301D\302\301DF\207" [function-put quote 'doc-string-elt] 8 (#$ . 2814)])
#@19 

(fn F ARGS VAL)
(defalias 'byte-run--set-indent #[771 "\300\301D\302\301DF\207" [function-put quote 'lisp-indent-function] 8 (#$ . 2961)])
#@19 

(fn F ARGS VAL)
(defalias 'byte-run--set-speed #[771 "\300\301D\302\301DF\207" [function-put quote 'speed] 8 (#$ . 3110)])
#@19 

(fn F ARGS VAL)
(defalias 'byte-run--set-completion #[771 "\300\301D\302\303DF\207" [function-put quote 'completion-predicate function] 8 (#$ . 3243)])
#@25 

(fn F ARGS &rest VAL)
(defalias 'byte-run--set-modes #[642 "\300\301D\302\301DF\207" [function-put quote 'command-modes] 8 (#$ . 3405)])
#@382 List associating function properties to their macro expansion.
Each element of the list takes the form (PROP FUN) where FUN is
a function.  For each (PROP . VALUES) in a function's declaration,
the FUN corresponding to PROP is called with the function name,
the function's arglist, and the VALUES and should return the code to use
to set this property.

This is used by `declare'.
(defvar defun-declarations-alist (byte-code "\300\301D\302\303D\304\305D\306\307\310E\311\312\313E\314\315D\316\317D\320\321D\322\323D\324\325D\326\327D\257\207" [advertised-calling-convention byte-run--set-advertised-calling-convention obsolete byte-run--set-obsolete interactive-only byte-run--set-interactive-only pure byte-run--set-pure "If non-nil, the compiler can replace calls with their return value.\nThis may shift errors from run-time to compile-time." side-effect-free byte-run--set-side-effect-free "If non-nil, calls can be ignored if their value is unused.\nIf `error-free', drop calls even if `byte-compile-delete-errors' is nil." compiler-macro byte-run--set-compiler-macro doc-string byte-run--set-doc-string indent byte-run--set-indent speed byte-run--set-speed completion byte-run--set-completion modes byte-run--set-modes] 12) (#$ . 3553))
#@23 

(fn NAME ARGS SPEC)
(defalias 'byte-run--set-debug #[771 "\300\301\302\303D\304\303DFE\207" [progn :autoload-end put quote 'edebug-form-spec] 10 (#$ . 4803)])
#@22 

(fn NAME ARGS VAL)
(defalias 'byte-run--set-no-font-lock-keyword #[771 "\300\301D\302\301DF\207" [function-put quote 'no-font-lock-keyword] 8 (#$ . 4974)])
#@373 List associating properties of macros to their macro expansion.
Each element of the list takes the form (PROP FUN) where FUN is a function.
For each (PROP . VALUES) in a macro's declaration, the FUN corresponding
to PROP is called with the macro name, the macro's arglist, and the VALUES
and should return the code to use to set this property.

This is used by `declare'.
(defvar macro-declarations-alist (byte-code "\301\302D\303\304DBB\207" [defun-declarations-alist debug byte-run--set-debug no-font-lock-keyword byte-run--set-no-font-lock-keyword] 3) (#$ . 5141))
#@525 Define NAME as a macro.
When the macro is called, as in (NAME ARGS...),
the function (lambda ARGLIST BODY...) is applied to
the list ARGS... as it appears in the expression,
and the result should be a form to be evaluated instead of the original.
DECL is a declaration, optional, of the form (declare DECLS...) where
DECLS is a list of elements of the form (PROP . VALUES).  These are
interpreted according to `macro-declarations-alist'.
The return value is undefined.

(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)
(defalias 'defmacro '(macro . #[898 "
\242\300=\203
A\301\262\202#
;\205#\211@\242\300=\205#\211@A
A\262\203/B\262\2026
\2046\302\262\303\304BBD\305\306D\307\310EE\311\312\313		#\"\314\315!\203z\314!\203w\314!\203z\316\306	D\317\306\320NDF
\235\203z\315 \210\211\203\204\321BB\207
\207" [declare nil (nil) function lambda defalias quote cons 'macro mapcar make-closure #[257 "\211@\n\236A\211\203\303
@\300\301A$\207\304\305\306@\300#\307\"\207" [V0 V1 macro-declarations-alist apply macroexp-warn-and-return format-message "Unknown macro property %S in %S" nil] 7 "\n\n(fn X)"] fboundp lisp--el-font-lock-flush-elisp-buffers function-put 'no-font-lock-keyword no-font-lock-keyword prog1] 14 (#$ . 5717)]))
#@398 Define NAME as a function.
The definition is (lambda ARGLIST [DOCSTRING] BODY...).
See also the function `interactive'.
DECL is a declaration, optional, of the form (declare DECLS...) where
DECLS is a list of elements of the form (PROP . VALUES).  These are
interpreted according to `defun-declarations-alist'.
The return value is undefined.

(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)
(defalias 'defun '(macro . #[898 "
C
C\204\300\301\"\210<\203\302\303\304\305\"\"\203$\300\306\"\210
\242\242\307=\2036
\242A\310\240\210\202O
\242;\205O\211\242@\242\307=\205O\211\242@A
\211\242A\240\210\242\203_
\242\242B\240\210\202h
\242\204h
\311\240\210\304\312\313		%\"\314\315	D\316\317\n\242BBDE
\203\220\320
BB\207\207" [error "Cannot define '%s' as a function" delq t mapcar symbolp "Malformed arglist: %s" declare nil (nil) make-closure #[257 "\211@\f\236A\211\203\305
@\300\301A$\207\306\307!\203n
@\310>\203n\311D\302\242;\203N\303\242A@\242\312=\203A\303\242\211AAAB\241\266\202l\303\242\211AB\241\266\202l\303\242@\242\312=\203d\303\242\211AB\241\266\202l\303
\303\242B\240\266\313\207\314\315\316@\300#\313\"\207" [V0 V1 V2 V3 defun-declarations-alist apply featurep cl (special inline notinline optimize warn) declare interactive nil macroexp-warn-and-return format-message "Unknown defun property `%S' in %S"] 7 "\n\n(fn X)"] defalias quote function lambda prog1] 14 (#$ . 6996)]))
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\311#\207" [function-put defun doc-string-elt 3 lisp-indent-function 2 defalias inline progn "Like `progn', but when compiled inline top-level function calls in body.\nYou don't need this.  (See bytecomp.el commentary for more details.)\n\n(fn BODY...)"] 6)
#@125 Define an inline function.  The syntax is just like that of `defun'.

(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)
(defalias 'defsubst '(macro . #[642 "\300N\301>\204
\302\303\"\210\304\305BBB\306\307\310\311#\312\313D\314BBEE\207" [byte-optimizer (nil byte-compile-inline-expand) error "`%s' is a primitive" prog1 defun eval-and-compile byte-run--set-speed nil -1 put quote ('byte-optimizer 'byte-compile-inline-expand)] 10 (#$ . 8777)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put defsubst edebug-form-spec defun function-put doc-string-elt 3] 4)
(defvar advertised-signature-table (make-hash-table :test 'eq :weakness 'key))
#@240 Set the advertised SIGNATURE of FUNCTION.
This will allow the byte-compiler to warn the programmer when she uses
an obsolete calling convention.  WHEN specifies since when the calling
convention was modified.

(fn FUNCTION SIGNATURE WHEN)
(defalias 'set-advertised-calling-convention #[771 "\301\302!#\207" [advertised-signature-table puthash indirect-function] 7 (#$ . 9453)])
#@480 Make the byte-compiler warn that function OBSOLETE-NAME is obsolete.
OBSOLETE-NAME should be a function name or macro name (a symbol).

The warning will say that CURRENT-NAME should be used instead.
If CURRENT-NAME is a string, that is the `use instead' message
(it should end with a period, and not start with a capital).
WHEN should be a string indicating when the function
was first made obsolete, for example a date or a release number.

(fn OBSOLETE-NAME CURRENT-NAME WHEN)
(defalias 'make-obsolete #[771 "\300\301\302\303E!#\210\207" [put byte-obsolete-info purecopy nil] 10 (#$ . 9841)])
#@555 Set OBSOLETE-NAME's function definition to CURRENT-NAME and mark it obsolete.

(define-obsolete-function-alias \='old-fun \='new-fun "28.1" "old-fun's doc.")

is equivalent to the following two lines of code:

(defalias \='old-fun \='new-fun "old-fun's doc.")
(make-obsolete \='old-fun \='new-fun "28.1")

WHEN should be a string indicating when the function was first
made obsolete, for example a date or a release number.

See the docstrings of `defalias' and `make-obsolete' for more details.

(fn OBSOLETE-NAME CURRENT-NAME WHEN &optional DOCSTRING)
(defalias 'define-obsolete-function-alias '(macro . #[1027 "\300\301F\302FE\207" [progn defalias make-obsolete] 10 (#$ . 10448)]))
(byte-code "\300\301\302\303#\300\207" [function-put define-obsolete-function-alias doc-string-elt 4] 4)
#@499 Make the byte-compiler warn that OBSOLETE-NAME is obsolete.
The warning will say that CURRENT-NAME should be used instead.
If CURRENT-NAME is a string, that is the `use instead' message.
WHEN should be a string indicating when the variable
was first made obsolete, for example a date or a release number.
ACCESS-TYPE if non-nil should specify the kind of access that will trigger
  obsolescence warnings; it can be either `get' or `set'.

(fn OBSOLETE-NAME CURRENT-NAME WHEN &optional ACCESS-TYPE)
(defalias 'make-obsolete-variable #[1027 "\300\301\302E!#\210\207" [put byte-obsolete-variable purecopy] 11 (#$ . 11254)])
#@1405 Make OBSOLETE-NAME a variable alias for CURRENT-NAME and mark it obsolete.

WHEN should be a string indicating when the variable was first
made obsolete, for example a date or a release number.

This macro evaluates all its parameters, and both OBSOLETE-NAME
and CURRENT-NAME should be symbols, so a typical usage would look like:

  (define-obsolete-variable-alias 'foo-thing 'bar-thing "28.1")

This macro uses `defvaralias' and `make-obsolete-variable' (which see).
See the Info node `(elisp)Variable Aliases' for more details.

If CURRENT-NAME is a defcustom or a defvar (more generally, any variable
where OBSOLETE-NAME may be set, e.g. in an init file, before the
alias is defined), then the define-obsolete-variable-alias
statement should be evaluated before the defcustom, if user
customizations are to be respected.  The simplest way to achieve
this is to place the alias statement before the defcustom (this
is not necessary for aliases that are autoloaded, or in files
dumped with Emacs).  This is so that any user customizations are
applied before the defcustom tries to initialize the
variable (this is due to the way `defvaralias' works).

For the benefit of Customize, if OBSOLETE-NAME has
any of the following properties, they are copied to
CURRENT-NAME, if it does not already have them:
`saved-value', `saved-variable-comment'.

(fn OBSOLETE-NAME CURRENT-NAME WHEN &optional DOCSTRING)
(defalias 'define-obsolete-variable-alias '(macro . #[1027 "\300\301F\302\303\304\305	\306BB\307\305\n\310BBD\311\n\312\305\313BBFFE\314FF\207" [progn defvaralias dolist (prop '(saved-value saved-variable-comment)) and get (prop) null (prop) put prop (prop) make-obsolete-variable] 17 (#$ . 11890)]))
(byte-code "\300\301\302\303#\300\207" [function-put define-obsolete-variable-alias doc-string-elt 4] 4)
#@224 Make OBSOLETE-FACE a face alias for CURRENT-FACE and mark it obsolete.
WHEN should be a string indicating when the face was first made
obsolete, for example a date or a release number.

(fn OBSOLETE-FACE CURRENT-FACE WHEN)
(defalias 'define-obsolete-face-alias '(macro . #[771 "\300\301\302F\301\303\304\305D\306BBFE\207" [progn put 'face-alias 'obsolete-face or purecopy (t)] 11 (#$ . 13721)]))
#@157 Like `progn', but the body always runs interpreted (not compiled).
If you think you need this, you're probably making a mistake somewhere.

(fn &rest BODY)
(defalias 'dont-compile '(macro . #[128 "\300\301A\203
\302B\202@DD\207" [eval quote progn] 5 (#$ . 14129)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\307\301\310\311#\207" [put dont-compile edebug-form-spec t function-put lisp-indent-function 0 make-obsolete nil "24.4"] 5)
#@360 Like `progn', but evaluates the body at compile time if you're compiling.
Thus, the result of the body appears to the compiler as a quoted
constant.  In interpreted code, this is entirely equivalent to
`progn', except that the value of the expression may be (but is
not necessarily) computed at load time if eager macro expansion
is enabled.

(fn &rest BODY)
(defalias 'eval-when-compile '(macro . #[128 "\301\302\303B\"D\207" [lexical-binding quote eval progn] 5 (#$ . 14583)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put eval-when-compile edebug-form-spec (&rest def-form) function-put lisp-indent-function 0] 4)
#@281 Like `progn', but evaluates the body at compile time and at load time.
In interpreted code, this is entirely equivalent to `progn',
except that the value of the expression may be (but is not
necessarily) computed at load time if eager macro expansion is
enabled.

(fn &rest BODY)
(defalias 'eval-and-compile '(macro . #[128 "\301\302\303B\"D\207" [lexical-binding quote eval progn] 5 (#$ . 15229)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put eval-and-compile edebug-form-spec (&rest def-form) function-put lisp-indent-function 0] 4)
#@76 Like `progn', but prevents compiler warnings in the body.

(fn &rest BODY)
(defalias 'with-no-warnings #[128 "\300
!@\207" [last] 3 (#$ . 15793)])
(byte-code "\300\301\302\303#\300\207" [function-put with-no-warnings lisp-indent-function 0] 4)
#@1049 Like `progn', but prevents compiler WARNINGS in BODY.

WARNINGS is an associative list where the first element of each
item is a warning type, and the rest of the elements in each item
are symbols they apply to.  For instance, if you want to suppress
byte compilation warnings about the two obsolete functions `foo'
and `bar', as well as the function `zot' being called with the
wrong number of parameters, say

(with-suppressed-warnings ((obsolete foo bar)
                           (callargs zot))
  (foo (bar))
  (zot 1 2))

The warnings that can be suppressed are a subset of the warnings
in `byte-compile-warning-types'; see the variable
`byte-compile-warnings' for a fuller explanation of the warning
types.  The types that can be suppressed with this macro are
`free-vars', `callargs', `redefine', `obsolete',
`interactive-only', `lexical', `mapcar', `constants' and
`suspicious'.

For the `mapcar' case, only the `mapcar' function can be used in
the symbol list.  For `suspicious', only `set-buffer' can be used.

(fn WARNINGS &rest BODY)
(defalias 'with-suppressed-warnings '(macro . #[385 "\302\303!\203\f\304\300!\204\305
B\207\306\"\307\310!	\")\207" [byte-compile--suppressed-warnings macroexpand-all-environment featurep macroexp boundp progn append macroexpand-all macroexp-progn] 5 (#$ . 16045)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put with-suppressed-warnings edebug-form-spec (sexp &optional body) function-put lisp-indent-function 1] 4)
#@222 Return a warning about unescaped character literals.
If there were any unescaped character literals in the last form
read, return an appropriate warning message as a string.
Otherwise, return nil.  For internal use only.
(defalias 'byte-run--unescaped-character-literals-warning #[0 "\205\301\302\"\303\304\305\306\307#\305\310\307##\262
\207" [lread--unescaped-character-literals sort < format-message "unescaped character literals %s detected, %s expected!" mapconcat #[257 "\300\301\"\207" [format "`?%c'"] 4 "\n\n(fn CHAR)"] ", " #[257 "\300\301\"\207" [format "`?\\%c'"] 4 "\n\n(fn CHAR)"]] 8 (#$ . 17543)])
#@242 Format STRING in a way that looks pleasing in the compilation output.
If MESSAGE, output the message, too.

If TYPE, it should be a string that says what the information
type is.  This defaults to "INFO".

(fn STRING &optional MESSAGE TYPE)
(defalias 'byte-compile-info #[769 "\300\301\206\302#\203\303\304\"\210\207" [format "  %-9s%s" "INFO" message "%s"] 7 (#$ . 18171)])
#@86 Format ARGS in a way that looks pleasing in the compilation output.

(fn &rest ARGS)
(defalias 'byte-compile-info-string #[128 "\300\301\302\"!\207" [byte-compile-info apply format] 5 (#$ . 18560)])
(make-obsolete 'byte-compile-info-string 'byte-compile-info "28.1")
#@94 Message format ARGS in a way that looks pleasing in the compilation output.

(fn &rest ARGS)
(defalias 'byte-compile-info-message #[128 "\300\301\302\"\303\"\207" [byte-compile-info apply format t] 5 (#$ . 18834)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\307#\207" [make-obsolete byte-compile-info-message byte-compile-info "28.1" make-obsolete-variable macro-declaration-function macro-declarations-alist "24.3"] 4)