Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/eieio-opt.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 cl-extra] 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!\204 \303\304\305\300E\"\210\306\307\310!\311\"\210r\312\310!q\210\313 \210\314b\210\315\316\211#)\207" [root-class eieio-default-superclass class-p signal wrong-type-argument class display-buffer get-buffer-create "*EIEIO OBJECT BROWSE*" t get-buffer erase-buffer 0 eieio-browse-tree ""] 5 (#$ . 522) (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!\204 \307\310\311\300E\"\210\312!\313N\211\314H)\n\315P\n\316P\n\317P \320\261\210A\203H \321@
\f#\210A\211\2023 \205T \321@
#-\207" [this-root cl-x ch-prefix lprefix mprefix fprefix class-p signal wrong-type-argument class symbol-name cl--class 6 " +--" " | " " " "\n" eieio-browse-tree chl myname prefix] 7 (#$ . 1199)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias eieio-help-class cl--describe-class nil make-obsolete "25.1"] 4)
#@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 \306\211\307N\211\310H)\311\312 !\f\"\204*
\203\" \313 !\204* \312 !\314B\fB \315 \211 \203I @\316
\f#A\211\2044 *\f*\207" [class cc cl-x sublst buildlist instantiable-only eieio-default-superclass cl--class 6 assoc symbol-name class-abstract-p 1 nil eieio-build-class-alist elem --dolist-tail--] 5 (#$ . 1984)])
#@52 History of the function `eieio-read-class' prompt.
(defvar eieio-read-class nil (#$ . 2726))
#@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 (#$ . 2826)])
#@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 (#$ . 3275)])
#@44 Describe CTR if it is a class constructor.
(defalias 'eieio-help-constructor #[(ctr) "\303!\205\202 \304 \210\305\306\"Keb\210\307!\210\310\311 \211\242\312=\262\203( \313\202) \314\"c\210 \211\242\312=\262\203? \n\204? \305 \"\n\203[ \315\316!c\210\317\320!\210\321\322\n!\323\n\306%\210\315\324!c\210\325\326!\327\261\210db\210 \211\242\312=\262\203u \330c\202\201 \212\331\332\333\334#c\210\335!)*\207" [ctr def location class-p erase-buffer find-lisp-object-file-name define-type prin1 format " is an %s object constructor function" autoload "autoloaded" "" substitute-command-keys " in `" require cl-extra help-insert-xref-button help-fns-short-filename cl-type-definition "'" ".\nCreates an object of class " symbol-name "." "\n\n[Class description not available until class definition is loaded.]\n" propertize "\n\nClass description:\n" face bold cl--describe-class] 6 (#$ . 3805)])
#@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 / 0 1 2
\321 ,\211 -\203\315 -@,2,JHG 3),J3),JH\\I\210\3303!\210\322\323!\210\3133W\203\303 ,\331=\203\300 \332130\202\303 \332/)-A\211-\204\201 *1\203\361 /\204\361 *T*0\333U\203\355 +T+\322\334!\210\322\335!\210\330.!\210\325 \210 T,-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\343*_ \"\"!\210\322\344!\210\325 \210\322\345!\210\330+!\210\322\323!\210\322\340\341\342\346+_*\"\"!\210\322\347!\210\325 .\n\207" [meth1 meth buff methidx standard-output slots cl-generic-all-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" floor 100.0 "% of total methods" "Only One Primary Impl: " 100.0 "% of total primary methods" slotn idxarray primaryonly oneprimary S --dolist-tail-- M !P numP P mtree num] 7 (#$ . 4717) nil])
#@54 Keymap used when working with a project in speedbar.
(defvar eieio-class-speedbar-key-map nil (#$ . 6568))
#@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 (#$ . 6681)])
(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 (#$ . 7497))
#@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 \300\301\302\"\210\303y\210\304 \207" [eieio-class-button eieio-default-superclass 0 -1 speedbar-expand-line] 3 (#$ . 7624)])
#@65 Draw a speedbar button at the current point for CLASS at DEPTH.
(defalias 'eieio-class-button #[(class depth) "\304!\204 \305\306\300\300E\"\210\307N\211\310H)\211\203, \311\312\313\314\315!\316\317 & \202: \311\312\320\321\211\315!\316\317 & )\207" [class cl-x subclasses depth class-p signal wrong-type-argument cl--class 6 speedbar-make-tag-line angle 43 eieio-sb-expand symbol-name eieio-describe-class-sb speedbar-directory-face 32 nil] 11 (#$ . 7977)])
#@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\"\2033 \310\311!\210\312\212\313\210\314u\210\n\315N\211\316H)\211 \203/ \317\f@
T\"\210\fA\211\204! +\202I \306\320\"\203E \310\321!\210\322
!\210\202I \323\324!\210\325 \207" [text inhibit-read-only class cl-x subclasses indent string-match "\\+" speedbar-change-expand-button-char 45 t nil 1 cl--class 6 eieio-class-button "-" 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly] 4 (#$ . 8454)])
#@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+\306 \207" [save-selected-window--state token internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] dframe-select-attached-frame describe-function dframe-maybee-jump-to-attached-frame] 2 (#$ . 9069)])
(provide 'eieio-opt)
Mini Shell