;ELC ;;; Compiled ;;; in Emacs version 27.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 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/012 \321,\211-\203\315-@,2,JHG3),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)