ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/eieio-opt.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!\210\300\302!\210\300\303!\207" [require eieio find-func speedbar] 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 (#$ . 502) (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 (#$ . 1179)])
(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 (#$ . 1964)])
#@52 History of the function `eieio-read-class' prompt.
(defvar eieio-read-class nil (#$ . 2706))
#@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 (#$ . 2806)])
#@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 (#$ . 3255)])
#@44 Describe CTR if it is a class constructor.
(defalias 'eieio-help-constructor #[(ctr) "\303!\205~ \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\203W \315\316!c\210\317\320\n!\321\n\306%\210\315\322!c\210\323\324!\325\261\210db\210 \211\242\312=\262\203q \326c\202} \212\327\330\331\332#c\210\333!)*\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 `" 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 eieio-help-class] 6 (#$ . 3785)])
#@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 (#$ . 4659) nil])
#@54 Keymap used when working with a project in speedbar.
(defvar eieio-class-speedbar-key-map nil (#$ . 6510))
#@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 (#$ . 6623)])
(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 (#$ . 7439))
#@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 (#$ . 7566)])
#@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 (#$ . 7919)])
#@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 (#$ . 8396)])
#@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 (#$ . 9009)])
(provide 'eieio-opt)
Kontol Shell Bypass