Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;ELC ;;; Compiled by leavens@CMC3251632-A on Thu Sep 04 23:07:34 2003 ;;; from file d:/emacs/eieio/eieio-opt.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`eieio-opt.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'eieio) #@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\"\210\212\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 (#$ . 618) (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)]) #@224 Recursively, draws 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 (#$ . 1396)]) (defalias 'describe-class 'eieio-describe-class) #@129 Describe a CLASS defined by a string or symbol. If CLASS is actually an object, then also display current values of that obect. (defalias 'eieio-describe-class #[(class) "\306\220\307\310N H>A\242\203\311\312!\210\311\313!\210\314!\210\315 \210\316!\211\203L\311\317!\210\n\203I\311\320!\210\314\n@!\210\311\321!\210\n\203B\311\322!\210\nA\211\204-\315 \210)\323!\211\203|\311\324!\210\203y\311\320!\210\314@!\210\311\321!\210\203r\311\322!\210A\211\204]\315 \210)\315 \210\325\326\"\211\203\232\311\327!\210\315 \210\311\f!\210\315 \210\315 \210)\330!\210\331!\332\211\2030
\311\333!\210\315 \210\315 \210 \2030
\334 @\"\311\320!\210\314 @!\210\311\321!\210\f\204\325\311\335!\210\202)
\f@\203\355\311\336!\210\314\f@@!\210\315 \210\311\f@A!\210\fA\211@\203
\311\337!\210\314\f@@!\210\315 \210\311\f@A!\210\fA\211@\203#
\311\340!\210\314\f@@!\210\315 \210\311\f@A!\210\315 \210\315 \210 A\211\204\267*\341 \221\207" [class class-options pl ch doc methods "*Help*" :abstract eieio-class-definition princ "Abstract " "Class " prin1 terpri class-parents " Inherits from " "`" "'" ", " class-children " Children " documentation-property variable-documentation "Documentation:" eieio-describe-class-slots eieio-all-generic-functions nil "Specialized Methods:" eieio-method-documentation " Undocumented" " :BEFORE " " :PRIMARY " " :AFTER " buffer-string] 5 (#$ . 2220) (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\307 H\310\311!\210\312 \210\312 \210 \203\232@\2039\310\313!\210\310\314!\210\315 @!\210H\316=\204X\310\317!\210\315H!\210@=\204k\310\320!\210\315@!\210@\203\312 \210\310\321!\210\310@!\210\312 \210\312 \210 AAAAT\202+ H H H\307 H \203\276\312 \210\310\322!\210\312 \210\312 \210 \205
@\203\322\310\313!\210\310\314!\210\315 @!\210H\316=\204\361\310\317!\210\315H!\210@\203
\312 \210\310\321!\210\310@!\210\312 \210\312 \210 AAAT\202\304.\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 = " " " "Class Allocated Slots:" class-public-d deflt class-public-type types i class-protection prot eieio-unbound class-class-allocation-doc class-class-allocation-a class-class-allocation-type class-class-allocation-protection] 4 (#$ . 3670)]) #@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 \203\307\n\306NH>A\242\204'\310\n!\311B\fB\f\f\203;\312\f@ \f#\f\fA\211\204+\f*\207" [class eieio-default-superclass cc class-children sublst instantiable-only eieio-class-definition :abstract symbol-name 1 eieio-build-class-alist class-options buildlist] 5 (#$ . 4778)]) #@52 History of the function `eieio-read-class' prompt. (defvar eieio-read-class nil (#$ . 5489)) #@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) "\302\303\304 \305\306\305 \206 \307&!\207" [prompt histvar intern completing-read eieio-build-class-alist nil t eieio-read-class] 8 (#$ . 5589)]) #@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 (#$ . 6013)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [defalias describe-method eieio-describe-generic 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\313\220\314!\210\315\316!\210\317 \210\317 \210\320!\211\2040\315\321!\210\202A\315\322!\210\317 \210\315 !\210\317 \210\317 \210)\315\323!\210\317 \210\317 \210\324\325\211\326W\203\207\327NH\211\203\315\330!\210\315\n\324ZH!\210\317 \210\315\331\f8\206w\332!\210\317 \210\317 \210)T\211\202Q\333\333\324W\203\351\334\327NH!\f\203\341\315\335!\210\314\f@@!\210\315\336!\210\315\337!\210\315\nH!\210\315\337!\210\f@A\340 !\"\314\"!\210*\317 \210\315\320\f@A!\206\323\332!\210\fA\317 \210\317 \210\202\227)T\211\202\212*\341 \221\207" [generic d prefix i gm func fboundp eieio-method-obarray signal wrong-type-argument (generic-p generic) "*Help*" prin1 princ " is a generic function." terpri documentation "The generic is not documented.\n" "Documentation:" "Implementations:" 3 [":BEFORE" ":PRIMARY" ":AFTER"] 6 eieio-method-tree "Generic " 2 "Undocumented" 0 reverse "`" "'" " " eieio-lambda-arglist buffer-string arglst] 6 (#$ . 6704) (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 (#$ . 7931)]) #@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 (#$ . 8149)]) #@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 (#$ . 8644)]) #@45 History of the `eieio-read-generic' prompt. (defvar eieio-read-generic nil (#$ . 9260)) #@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 (#$ . 9355)]) #@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 (#$ . 9601)]) #@55 For buffers thrown into help mode, augment for eieio. (defalias 'eieio-help-mode-augmentation-maybee #[nil "\306=\205\325\212eb\210\307\211\n\203d\310`\311\"\203#\312`\311\"\206!`b\210\312`\311\"\211\203\nb\210\310`\311\"\211@A\211@9\203`\313\314\315\217\203N\316\240\210\202`\317 @!\203` @\320N\203`\321\240\210+\202eb\210\322\323\313\307#\203{\324\325\224\325\225\326\327$\210\202geb\210\322\330\313\307#\203\217\324\325\224\325\225\326\327$\210eb\210\322\331\313\307#\203\246\324\325\224\325\225\326\327$\210\202\222eb\210\322\332\313\307#\203\275\324\325\224\325\225\326\327$\210\202\251eb\210\322\333\313\307#\205\324\324\325\224\325\225\326\327$\210\202\300+\207" [major-mode inhibit-read-only pos help-data method args 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:$" ":\\(BEFORE\\|AFTER\\|PRIMARY\\)" "^\\(Private \\)?Slot:"] 6 (#$ . 9948)]) #@47 Augment the help keymap for cool EIEIO stuff. (defalias 'eieio-help-augment-keymap #[nil "\301\302\303#\210\301\304\305#\207" [help-map define-key "g" describe-generic "C" describe-class] 4 (#$ . 11181)]) (byte-code "\301\300!\203\203\302 \210\202\303\304\302\"\210\301\207" [help-map boundp eieio-help-augment-keymap eval-after-load help] 3) #@54 Keymap used when working with a project in speedbar. (defvar eieio-class-speedbar-key-map nil (#$ . 11539)) #@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 (#$ . 11653)]) (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 (#$ . 12470)) #@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 (#$ . 12598)]) #@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 (#$ . 12947)]) #@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 (#$ . 13532)]) #@76 Describe the class TEXT in TOKEN. INDENT is the current indentation level. (defalias 'eieio-describe-class-sb #[(text token indent) "\303 \304\216\305 !\210\306\n!\210\307 \210*\310 \207" [save-selected-window-window dframe-attached-frame token selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) select-frame eieio-describe-class dframe-maybee-jump-to-attached-frame speedbar-maybee-jump-to-attached-frame] 2 (#$ . 14158)]) (provide 'eieio-opt)