;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:01 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/eieio-opt.el
;;; in Emacs version 24.3.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!\210\300\302!\210\300\303!\210\300\304!\207" [require eieio find-func speedbar help-mode] 2)
#@158 Create an object browser window to show all objects.
If optional ROOT-CLASS, then start with that, otherwise start with
variable `eieio-default-superclass'.
(defalias 'eieio-browse #[(&optional root-class) "\204\301\302\303\304\217\204\305\306\307D\"\210\310\311\312!\313\"\210r\314\312!q\210\315 \210\316b\210\317\320\211#)\207" [root-class eieio-default-superclass nil (byte-code "\301N\302H\303=\207" [root-class eieio-class-definition 0 defclass] 2) ((error)) signal wrong-type-argument class-p display-buffer get-buffer-create "*EIEIO OBJECT BROWSE*" t get-buffer erase-buffer 0 eieio-browse-tree ""] 4 (#$ . 678) (byte-code "\205\301\302\303\304 \305\306$!C\207" [current-prefix-arg read completing-read "Class: " eieio-build-class-alist nil t] 6)])
#@222 Recursively draw the children of the given class on the screen.
Argument THIS-ROOT is the local root of the tree.
Argument PREFIX is the character prefix to use.
Argument CH-PREFIX is another character prefix to display.
(defalias 'eieio-browse-tree #[(this-root prefix ch-prefix) "\306\307\310\217\204\311\312\313D\"\210\314!\315N	H\n\316P\n\317P\n\320P\321\261\210A\203E\322@
\f#\210A\211\2020\205Q\322@
#-\207" [this-root class-children ch-prefix lprefix mprefix fprefix nil (byte-code "\301!\302N\303H\304=\207" [this-root eval eieio-class-definition 0 defclass] 2) ((error)) signal wrong-type-argument class-p symbol-name eieio-class-definition "  +--" "  |  " "     " "\n" eieio-browse-tree chl myname prefix] 7 (#$ . 1453)])
#@202 Describe a CLASS defined by a string or symbol.
If CLASS is actually an object, then also display current values of that object.
Optional HEADERFCN should be called to insert a few bits of info first.
(defalias 'eieio-describe-class #[(class &optional headerfcn) "r\306\307 !q\210p\310 \210	\311\211\312\211\3122\313 \210\314\315!\210+\21134\316\31756E\320\321!\"\2106\203<6 \210\3225!\210\323\324!\210\3255\326N7H>A\242\203W\323\327!\210\323\330!\2105\331N\203s\323\332!\210\323\3335\331N!!\210\323\334!\210\335 \210\3365!\2118\203\252\323\337!\2108\203\247\323\340!\210\3228@!\210\323\334!\2108A\2118\203\204\323\341!\210\202\204\335 \210)\3425!\2119\203\337\323\343!\2109\203\334\323\340!\210\3229@!\210\323\334!\2109A\2119\203\271\323\341!\210\202\271\335 \210)\335 \210\3445\345\"\211:\203
\323\346!\210\335 \210\323:!\210\335 \210\335 \210)\3475!\210\3505!\311:\211;\203\314
\323\351!\210\335 \210\335 \210;\203\314
\352;@5\":\323\340!\210\322;@!\210\323\334!\210:\204E
\323\353!\210\202\303
:@\203`
\323\354!\210\322:@@!\210\335 \210\323:@A!\210:A\211:@\203
\323\355!\210\322:@@!\210\335 \210\323:@A!\210:A\211:@\203\236
\323\356!\210\322:@@!\210\335 \210\323:@A!\210:A\211:@\203\275
\323\357!\210\322:@@!\210\335 \210\323:@A!\210\335 \210\335 \210;A\211;\204\"
*\3603!\210+r\307 q\210\361 )\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook help-setup-xref eieio-describe-class called-interactively-p interactive prin1 princ " is a" :abstract eieio-class-definition "n abstract" " class" class-location " in `" file-name-nondirectory "'" terpri class-parents " Inherits from " "`" ", " class-children " Children " documentation-property variable-documentation "Documentation:" eieio-describe-class-slots eieio-all-generic-functions "Specialized Methods:" eieio-method-documentation "  Undocumented" "  :STATIC " "  :BEFORE " "  :PRIMARY " "  :AFTER " internal-temp-output-buffer-show buffer-string inhibit-read-only #2=#:buf standard-output class headerfcn class-options pl ch doc methods] 5 (#$ . 2226) (list (eieio-read-class "Class: "))])
#@62 Describe the slots in CLASS.
Outputs to the standard output.
(defalias 'eieio-describe-class-slots #[(class) "\306N\211\nH	\fH	H	H	H\307	H\310\311!\210\312 \210\312 \210
\203\265@\203?\310\313!\210\310\314!\210\315
@!\210H\316=\204^\310\317!\210\315H!\210@ =\204q\310\320!\210\315@!\210@\203\201\310\321!\210\315@!\210@\203\225\312 \210\310\322!\210\310@!\210\312 \210\312 \210
AAAAAT\2021	!H	\"H	#H\307	$H
\203\331\312 \210\310\323!\210\312 \210\312 \210
\205;
@\203\355\310\313!\210\310\314!\210\315
@!\210H\316=\204\f
\310\317!\210\315H!\210\324\325\326\217\210@\203%
\312 \210\310\322!\210\310@!\210\312 \210\312 \210
AAAT\202\337.\207" [class cv class-public-doc docs class-public-a names eieio-class-definition 0 princ "Instance Allocated Slots:" terpri "Private " "Slot: " prin1 t "    type = " "    default = " "    printer = " "  " "Class Allocated Slots:" nil (byte-code "\303	@\"\304\305!\210\306\n!\210)\303\207" [class names value eieio-oref princ "   value = " prin1] 3) ((error)) class-public-d deflt class-public-type types class-public-printer publp i class-protection prot eieio-unbound class-class-allocation-doc class-class-allocation-a class-class-allocation-type class-class-allocation-protection] 4 (#$ . 4529)])
#@109 Describe the constructor function FCN.
Uses `eieio-describe-class' to describe the class being constructed.
(defalias 'eieio-describe-constructor #[(fcn) "\301\302\"\207" [fcn eieio-describe-class #[nil "\301!\210\302\303!\210\304N\203\302\305!\210\302\306\304N!!\210\302\307!\210\310 \210\302\311!\210\301!\210\302\312!\210\310 \210\310 \207" [fcn prin1 princ " is an object constructor function" class-location " in `" file-name-nondirectory "'" terpri "Creates an object of class " "."] 4]] 3 (#$ . 5882) (list (eieio-read-class "Class: "))])
#@55 Return a list of all classes that inherit from CLASS.
(defalias 'eieio-build-class-list #[(class) "\302\303\304\217\203\305\306\307\310\311N	H\"\"\207C\207" [class class-children nil (byte-code "\301N\302H\303=\207" [class eieio-class-definition 0 defclass] 2) ((error)) apply append mapcar #[(c) "\301C\302!\"\207" [c append eieio-build-class-list] 4] eieio-class-definition] 6 (#$ . 6441)])
#@315 Return an alist of all currently active classes for completion purposes.
Optional argument CLASS is the class to start with.
If INSTANTIABLE-ONLY is non nil, only allow names of classes which
are not abstract, otherwise allow all classes.
Optional argument BUILDLIST is more list to attach and is used internally.
(defalias 'eieio-build-class-alist #[(&optional class instantiable-only buildlist) "\206	\211\306NH\307\310\n!
\"\204/\f\203'\311\n\306N
H>A\242\204/\310\n!\312B
B\f\203B\313\f@\f
#\fA\211\2043
*\207" [class eieio-default-superclass cc class-children sublst buildlist eieio-class-definition assoc symbol-name :abstract 1 eieio-build-class-alist instantiable-only class-options] 5 (#$ . 6848)])
#@52 History of the function `eieio-read-class' prompt.
(defvar eieio-read-class nil (#$ . 7579))
#@193 Return a class chosen by the user using PROMPT.
Optional argument HISTVAR is a variable to use as history.
If INSTANTIABLE-ONLY is non nil, only allow names of classes which
are not abstract.
(defalias 'eieio-read-class #[(prompt &optional histvar instantiable-only) "\303\304\305\306	\"\306\307\306\n\206\310&!\207" [prompt instantiable-only histvar intern completing-read eieio-build-class-alist nil t eieio-read-class] 8 (#$ . 7679)])
#@263 Return a class chosen by the user using PROMPT.
CLASS is the base class, and completion occurs across all subclasses.
Optional argument HISTVAR is a variable to use as history.
If INSTANTIABLE-ONLY is non nil, only allow names of classes which
are not abstract.
(defalias 'eieio-read-subclass #[(prompt class &optional histvar instantiable-only) "\304\305\306	\n\"\307\310\307\206\311&!\207" [prompt class instantiable-only histvar intern completing-read eieio-build-class-alist nil t eieio-read-class] 8 (#$ . 8128)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias describe-method eieio-describe-generic eieio-describe-method] 3)
#@110 Describe the generic function GENERIC.
Also extracts information about all methods specific to this generic.
(defalias 'eieio-describe-generic #[(generic) "\306!\203\f\307N\204\310\311\312\"\210	r\313\314 !q\210p\315 \210\n\316\211\317\211\317;<\320 \210\321\322!\210+\211=>\323\324D\325\326!\"\210\327!\210\330\331!\210\332!\203l\330\333!\210\334!\203^\330\335!\210\330\336!\210\334!\204l\330\337!\210\330\340!\210\341 \210\341 \210\342!\211?\204\206\330\343!\210\202\230\330\344!\210\341 \210\330?!\210\341 \210\341 \210)\330\345!\210\341 \210\341 \210\346\347@\211A\350W\203\347\351NAH\211B\203\335\330\352!\210\330@A\353ZH!\210\341 \210\330\354B8\206\325\355!\210\341 \210\341 \210)AT\211A\202\252\356\211A\346W\203\217
\357\351NAH!\316CBB\203\205
\330\360!\210\327B@@!\210\330\361!\210\330\362!\210\330@AH!\210\330\362!\210B@AD\363D!E\327E!\210*\341 \210\330\342B@A!\206A
\355!\210\364N\211C\203w
\365B\211F@@)C\"\211C\203w
C\211FA@)C\330\366!\210\330\367C!!\210\330\370!\210BAB\341 \210\341 \210\202\375*AT\211A\202\353*\371=!\210+r\314 q\210\372 )\207" [generic default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list fboundp eieio-method-obarray signal wrong-type-argument (generic-p generic) get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook help-setup-xref eieio-describe-generic called-interactively-p interactive prin1 princ " is a generic function" generic-primary-only-p " with only " generic-primary-only-one-p "one " "primary method" "s" "." terpri documentation "The generic is not documented.\n" "Documentation:" "Implementations:" 4 [":STATIC" ":BEFORE" ":PRIMARY" ":AFTER"] 7 eieio-method-tree "Generic " 3 2 "Undocumented" 0 reverse "`" "'" " " eieio-lambda-arglist method-locations assoc "\n\nDefined in `" file-name-nondirectory "'\n" internal-temp-output-buffer-show buffer-string inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output d prefix i gm location func arglst x] 5 (#$ . 8784) (list (eieio-read-generic "Generic Method: "))])
#@52 Return the argument list of FUNC, a function body.
(defalias 'eieio-lambda-arglist #[(func) "9\203K\301!\203\302!\207A@\207" [func byte-code-function-p eieio-compiled-function-arglist] 2 (#$ . 10922)])
#@126 Return a list of all generic functions.
Optional CLASS argument returns only those functions that contain
methods for CLASS.
(defalias 'eieio-all-generic-functions #[(&optional class) "\304\211\205	\305!\306\307!\210+\207" [class cn tree l nil symbol-name mapatoms #[(symbol) "\305N\211\2052\n\203-\306\307	\310H\"!\204-\306\307	\311H\"!\204-\306\307	\312H\"!\2052\fB\211\207" [symbol tree class cn l eieio-method-obarray fboundp intern-soft 0 1 2] 6]] 4 (#$ . 11141)])
#@183 Return a list of the specific documentation of GENERIC for CLASS.
If there is not an explicit method for CLASS in GENERIC, or if that
function has no documentation, then return nil.
(defalias 'eieio-method-documentation #[(generic class) "\306N\307	!\310\211\211\211\205e\311
\312H\"\311
\313H\"\311
\314H\"\315\f!\204=\315!\204=\315\n!\205e\315\f!\205J\316\f!\317\f!B\315!\205W\316!\317!B\315\n!\205d\316\n!\317\n!BE-\207" [generic class after primary before cn eieio-method-obarray symbol-name nil intern-soft 0 1 2 fboundp eieio-lambda-arglist documentation tree] 6 (#$ . 11637)])
#@45 History of the `eieio-read-generic' prompt.
(defvar eieio-read-generic nil (#$ . 12254))
#@126 Function used in function `eieio-read-generic'.
This is because `generic-p' is a macro.
Argument FN is the function to test.
(defalias 'eieio-read-generic-p #[(fn) "\301!\205	\302N\207" [fn fboundp eieio-method-obarray] 2 (#$ . 12350)])
#@122 Read a generic function from the minibuffer with PROMPT.
Optional argument HISTORYVAR is the variable to use as history.
(defalias 'eieio-read-generic #[(prompt &optional historyvar) "\303\304	\305\306\307\n\206\f\310&!\207" [prompt obarray historyvar intern completing-read eieio-read-generic-p t nil eieio-read-generic] 8 (#$ . 12597)])
#@63 Display a list of all the methods and what features are used.
(defalias 'eieio-display-method-list #[nil "\306 \307\310\"\311\312!\313\n\314\315'\316
G\313\"(\313\211)*\317\n!\210\320 \210'\321+\211,\203K,@+\322+!\210\322\323!\210,A\211,\2044*\322\324!\210\325 \210\322\326!\210\325 \210	\321-\211,\203
,@\211-\327N\321\211\211./01
\321+\211,\203\315,@+1+JHG2(+J2(+JH\\I\210\3302!\210\322\323!\210\3132W\203\303+\331=\203\300\33202/\202\303\332.),A\211,\204\201*0\203\361.\204\361)T)/\333U\203\355*T*\322\334!\210\322\335!\210\330-!\210\325 \210T,,A\211,\204d*\322\326!\210\325 \210
\321+\211,\2033
,@+\330(+JH!\210\322\323!\210,A\211,\204
*\330!\210\322\336!\210\325 \210'\321+\211,\203a
,@+\322+!\210\322\323!\210,A\211,\204J
*\325 \210\325 \210\322\337!\210\330)!\210\322\323!\210\322\340\341\342)!\342!\245\343_\"!\210\322\344!\210\325 \210\322\345!\210\330*!\210\322\323!\210\322\340\341\342*!\342)!\245\343_\"!\210\322\346!\210\325 .\n\207" [meth1 meth buff methidx standard-output slots eieio-all-generic-functions sort #[(a b) "\302!\302	!\231\207" [a b symbol-name] 3] get-buffer-create "*EIEIO Method List*" 0 (method-static method-before method-primary method-after method-generic-before method-generic-primary method-generic-after) ("static" "before" "primary" "after" "G bef" "G prim" "G aft") make-vector switch-to-buffer-other-window erase-buffer nil princ "	" "Method Name" terpri "--------------------------------------------------------------------" eieio-method-tree prin1 method-primary t 1 "*" "* " " Total symbols" "Methods Primary Only: " format "%d" float 100 "% of total methods" "Only One Primary Impl: " "% of total primary methods" slotn idxarray primaryonly oneprimary S --dolist-tail-- M !P numP P mtree num] 7 (#$ . 12945) nil])
(byte-code "\300\301\302\303\304\305\306\307\310!&\210\300\311\302\303\304\312\306\307\313!&\207" [define-button-type eieio-method-def :supertype help-xref help-function #[(class method file) "\303	\n#\207" [class method file eieio-help-find-method-definition] 4] help-echo purecopy "mouse-2, RET: find method's definition" eieio-class-def #[(class file) "\302	\"\207" [class file eieio-help-find-class-definition] 3] "mouse-2, RET: find class definition"] 9)
(defalias 'eieio-help-find-method-definition #[(class method file) "\306!\307\211\211\204\310\311\"\210\312!r	q\210eb\210\313\314\f\315\316
\317\260\307\320#\203.\321\224)\n\2049\322\323!\202E\324	!\210\nb\210\325 \210\326 +\207" [file buf location filename method class find-library-name nil error "Cannot find library %s" find-file-noselect re-search-forward "(defmethod[ 	
\n]+" "\\([ 	
\n]+:[a-zA-Z]+\\)?" "[ 	
\n]+(\\s-*(\\(\\sw\\|\\s_\\)+\\s-+" "\\s-*)" t 0 message "Unable to find location in file" pop-to-buffer recenter beginning-of-line] 8])
(defalias 'eieio-help-find-class-definition #[(class file) "\305!\306\211\211\204\307\310\"\210\311!r	q\210eb\210\312\313\f\314Q\306\315#\203*\316\224)\n\2045\317\320!\202A\321	!\210\nb\210\322 \210\323 +\207" [file buf location filename class find-library-name nil error "Cannot find library %s" find-file-noselect re-search-forward "(defclass[ 	
\n]+" "[ 	
\n]+" t 0 message "Unable to find location in file" pop-to-buffer recenter beginning-of-line] 5])
#@86 For buffers thrown into help mode, augment for EIEIO.
Arguments UNUSED are not used.
(defalias 'eieio-help-mode-augmentation-maybee #[(&rest unused) "\306=\205;
\212eb\210\307\211\n\203a\310`\311\"\203#\312`\311\"\206!`b\210\312`\311\"\211\203\nb\210\310`\311\"\211A\211@9\203]\313\314\315\217\203K\316\240\210\202]\317\f@!\203]\f@\320N\203]\321\240\210*\202eb\210\322\323\313\307#\203x\324\325\224\325\225\326\327$\210\202deb\210\322\330\313\307#\203\214\324\325\224\325\225\326\327$\210eb\210\322\331\313\307#\203\243\324\325\224\325\225\326\327$\210\202\217eb\210\322\332\313\307#\203\272\324\325\224\325\225\326\327$\210\202\246eb\210\322\333\313\307#\203\321\324\325\224\325\225\326\327$\210\202\275eb\210\334\335!\203

\336\337!\313-\322\340\313\307#\205	
\341\337!\342\343\344
-\345\346
!\346-!\347N\"\211.A@)%\210\202\341*\202:
\334\350!\203%
\341\337!\342\343\351
\346
!\352N$)\202:
\334\353!\205:
\341\337!\342\354\351
\346
!\352N$)+\207" [major-mode inhibit-read-only pos help-data args cname help-mode t get-text-property help-xref next-single-property-change nil (byte-code "@\301N\302H\303=\207" [args eieio-class-definition 0 defclass] 2) ((error)) eieio-describe-class fboundp eieio-method-obarray eieio-describe-generic re-search-forward "^\\(Documentation\\|Implementations\\):$" put-text-property 0 face bold "^Specialized Methods:$" "^\\(Instance\\|Class\\) Allocated Slots:$" ":\\(STATIC\\|BEFORE\\|AFTER\\|PRIMARY\\)" "^\\(Private \\)?Slot:" looking-at "\\(.+\\) is a generic function" match-string 1 "^`\\(.+\\)'[^]+?Defined in `\\(.+\\)'" match-string-no-properties help-xref-button 2 eieio-method-def assoc intern method-locations "\\(.+\\) is an object constructor function in `\\(.+\\)'" eieio-class-def class-location "\\(.+\\) is a\\(n abstract\\)? class in `\\(.+\\)'" 3 mname x] 10 (#$ . 16308)])
#@54 Keymap used when working with a project in speedbar.
(defvar eieio-class-speedbar-key-map nil (#$ . 18182))
#@41 Make a keymap for EIEIO under speedbar.
(defalias 'eieio-class-speedbar-make-map #[nil "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\207" [eieio-class-speedbar-key-map speedbar-make-specialized-keymap define-key "
" speedbar-edit-line "+" speedbar-expand-line "-" speedbar-contract-line] 4 (#$ . 18296)])
(byte-code "\204\301\302!\204\303\304\305\"\210\202\306 \210\307\310!\210\301\207" [eieio-class-speedbar-key-map featurep speedbar add-hook speedbar-load-hook #[nil "\300 \210\301\302!\207" [eieio-class-speedbar-make-map speedbar-add-expansion-list ("EIEIO" eieio-class-speedbar-menu eieio-class-speedbar-key-map eieio-class-speedbar)] 2] eieio-class-speedbar-make-map speedbar-add-expansion-list ("EIEIO" eieio-class-speedbar-menu eieio-class-speedbar-key-map eieio-class-speedbar)] 3)
#@70 Menu part in easymenu format used in speedbar while in `eieio' mode.
(defvar eieio-class-speedbar-menu nil (#$ . 19113))
#@154 Create buttons in speedbar that represents the current project.
DIR-OR-OBJECT is the object to expand, or nil, and DEPTH is the
current expansion depth.
(defalias 'eieio-class-speedbar #[(dir-or-object depth) "ed=\205\301\302\"\210\303y\210\304 \207" [eieio-default-superclass eieio-class-button 0 -1 speedbar-expand-line] 3 (#$ . 19241)])
#@65 Draw a speedbar button at the current point for CLASS at DEPTH.
(defalias 'eieio-class-button #[(class depth) "\304\305\306\217\204\307\310\311D\"\210\312N	H\211\203)\313\314\315\316\317!\320\321&	\2027\313\314\322\304\211\317!\320\321&	)\207" [class class-children subclasses depth nil (byte-code "\301N\302H\303=\207" [class eieio-class-definition 0 defclass] 2) ((error)) signal wrong-type-argument class-p eieio-class-definition speedbar-make-tag-line angle 43 eieio-sb-expand symbol-name eieio-describe-class-sb speedbar-directory-face 32] 11 (#$ . 19590)])
#@101 For button TEXT, expand CLASS at the current location.
Argument INDENT is the depth of indentation.
(defalias 'eieio-sb-expand #[(text class indent) "\306\307\"\2030\310\311!\210\312\212\313\210\314u\210\n\315NH\211\203,\316\f@
T\"\210\fA\211\204+\202F\306\317\"\203B\310\320!\210\321
!\210\202F\322\323!\210\324 \207" [text inhibit-read-only class class-children subclasses indent string-match "+" speedbar-change-expand-button-char 45 t nil 1 eieio-class-definition eieio-class-button "-" 43 speedbar-delete-subblock error "Ooops...  not sure what to do" speedbar-center-buffer-smartly] 4 (#$ . 20175)])
#@76 Describe the class TEXT in TOKEN.
INDENT is the current indentation level.
(defalias 'eieio-describe-class-sb #[(text token indent) "\302 r\303\216\304 \210\305	!\210\306 \210+\307 \207" [save-selected-window--state token internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) dframe-select-attached-frame eieio-describe-class dframe-maybee-jump-to-attached-frame speedbar-maybee-jump-to-attached-frame] 2 (#$ . 20801)])
(provide 'eieio-opt)