WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/emacs-lisp
Viewing File: /usr/share/emacs/24.3/lisp/emacs-lisp/byte-run.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 13:00:10 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/byte-run.el
;;; in Emacs version 24.3
;;; 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.

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


#@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 (#$ . 561))
#@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 "\300A\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 (#$ . 907)])
#@354 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.
(defvar defun-declarations-alist (byte-code "\300\301D\302\303D\304\305D\306\307D\310\311D\257\207" [advertised-calling-convention #[1028 "\300\301D\301D\301DF\207" [set-advertised-calling-convention quote] 9 "\n\n(fn F ARGS ARGLIST WHEN)"] obsolete #[1028 "\300\301D\301DF\207" [make-obsolete quote] 8 "\n\n(fn F ARGS NEW-NAME WHEN)"] compiler-macro #[771 "\2119\204	\300\301!\207\302\303D\304\305DF\207" [error "Only symbols are supported in `compiler-macro'" put quote 'compiler-macro function] 8 "\n\n(fn F ARGS COMPILER-FUNCTION)"] doc-string #[771 "\300\301D\302\301DF\207" [put quote 'doc-string-elt] 8 "\n\n(fn F ARGS POS)"] indent #[771 "\300\301D\302\301DF\207" [put quote 'lisp-indent-function] 8 "\n\n(fn F ARGS VAL)"]] 6) (#$ . 1642))
#@327 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 function name
and the VALUES and should return the code to use to set this property.
(defvar macro-declarations-alist (byte-code "\301\302DB\207" [defun-declarations-alist debug #[771 "\300\301\302\303D\304\303DFE\207" [progn :autoload-end put quote 'edebug-form-spec] 10 "\n\n(fn NAME ARGS SPEC)"]] 2) (#$ . 2764))
(put 'defmacro 'doc-string-elt 3)
#@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@AA\262\203/B\262\2026\2046\302\262\303\304BBD\305\306D\307\310EE\311\312\313\314\315\316\f\f\"\317\"\320\321%\"\211\203e\322BB\202f\266\203\207" [declare nil (nil) function lambda defalias quote cons 'macro mapcar make-byte-code 257 "\211@\n\236A\211\203\303@\300\301A$\202\304\305@\300#\207" vconcat vector [macro-declarations-alist apply message "Warning: Unknown macro property %S in %S"] 7 "\n\n(fn X)" prog1] 15 (#$ . 3367)]))
#@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 "\211CC\211@\242\300=\203\211@A\301\240\210\202/\211@;\205/@@\242\300=\205/@@A\211@A\240\210@\203?@@B\240\210\202H@\204H\302\240\210\303\304\305\306\307\310\f\f	$\311\"\312\313%\"\314\315	D\316\317\n@BBDE\203z\320BB\202{\211\266\202\262\207" [declare nil (nil) mapcar make-byte-code 257 "\211@\f\236A\211\203\306@\300\301A$\202~\307\310!\203x@\311>\203x\312D\302@;\203V\303@\211A@)\242\313=\203I\303@\211A\211AA)B\241\266\202s\303@\211AB\241\266\202s\303@@\242\313=\203l\303@\211AB\241\266\202s\303\303@B\240\210\210\314\202~\315\316@\300#\207" vconcat vector [defun-declarations-alist x apply featurep cl (special inline notinline optimize warn) declare interactive nil message "Warning: Unknown defun property `%S' in %S"] 8 "\n\n(fn X)" defalias quote function lambda prog1] 17 (#$ . 4464)]))
(byte-code "\300\301\302\303#\210\304\305M\207" [put defun doc-string-elt 3 inline progn] 4)
#@154 Define an inline function.  The syntax is just like that of `defun'.
(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)

(fn NAME ARGLIST &rest BODY)
(defalias 'defsubst '(macro . #[642 "\300N\301>\204
\302\303\"\210\304\305BBB\306\307\310D\311BBDE\207" [byte-optimizer (nil byte-compile-inline-expand) error "`%s' is a primitive" prog1 defun eval-and-compile put quote ('byte-optimizer 'byte-compile-inline-expand)] 9 (#$ . 5854)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put defsubst edebug-form-spec defun 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 (#$ . 6499)])
#@490 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 &optional WHEN)
(defalias 'make-obsolete #[770 "\300\301\302\303E!#\210\207" [put byte-obsolete-info purecopy nil] 10 (#$ . 6887) "aMake function obsolete: \nxObsoletion replacement: "])
(set-advertised-calling-convention 'make-obsolete '(obsolete-name current-name when) "23.1")
#@424 Set OBSOLETE-NAME's function definition to CURRENT-NAME and mark it obsolete.

(define-obsolete-function-alias 'old-fun 'new-fun "22.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 "22.1")

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

(fn OBSOLETE-NAME CURRENT-NAME &optional WHEN DOCSTRING)
(defalias 'define-obsolete-function-alias '(macro . #[1026 "\300\301F\302FE\207" [progn defalias make-obsolete] 10 (#$ . 7652)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put define-obsolete-function-alias doc-string-elt 4 set-advertised-calling-convention (obsolete-name current-name when &optional docstring) "23.1"] 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 &optional WHEN ACCESS-TYPE)
(defalias 'make-obsolete-variable #[1026 "\300\301\302E!#\210\207" [put byte-obsolete-variable purecopy] 11 (#$ . 8429)])
(set-advertised-calling-convention 'make-obsolete-variable '(obsolete-name current-name when &optional access-type) "23.1")
#@1076 Make OBSOLETE-NAME a variable alias for CURRENT-NAME and mark it obsolete.
This uses `defvaralias' and `make-obsolete-variable' (which see).
See the Info node `(elisp)Variable Aliases' for more details.

If CURRENT-NAME is a defcustom (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 `custom-set-variables', 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 &optional WHEN DOCSTRING)
(defalias 'define-obsolete-variable-alias '(macro . #[1026 "\300\301F\302\303\304\305	\306BB\307\305\n\310BBD\311\n\312\305\313BBFFE\314FF\207" [progn defvaralias dolist (prop '(saved-value saved-variable-comment)) and get (prop) null (prop) put prop (prop) make-obsolete-variable] 17 (#$ . 9188)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put define-obsolete-variable-alias doc-string-elt 4 set-advertised-calling-convention (obsolete-name current-name when &optional docstring) "23.1"] 4)
#@187 Make OBSOLETE-FACE a face alias for CURRENT-FACE and mark it obsolete.
The string WHEN gives the Emacs version where OBSOLETE-FACE became
obsolete.

(fn OBSOLETE-FACE CURRENT-FACE WHEN)
(defalias 'define-obsolete-face-alias '(macro . #[771 "\300\301\302F\301\303\304\305D\306BBFE\207" [progn put 'face-alias 'obsolete-face or purecopy (t)] 11 (#$ . 10792)]))
#@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 (#$ . 11163)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put dont-compile edebug-form-spec t lisp-indent-function 0] 4)
#@228 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'.

(fn &rest BODY)
(defalias 'eval-when-compile '(macro . #[128 "\300B\207" [progn] 3 (#$ . 11562)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put eval-when-compile edebug-form-spec t lisp-indent-function 0] 4)
#@89 Like `progn', but evaluates the body at compile time and at load time.

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

(fn &rest BODY)
(defalias 'with-no-warnings #[128 "\300!@\207" [last] 3 (#$ . 12343)])
(byte-code "\300\301\302\303#\210\304\301\302\303#\207" [make-obsolete-variable macro-declaration-function macro-declarations-alist "24.3" make-obsolete] 4)
F1l3 Manager
