Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
emacs-lisp /
Delete
Unzip
Name
Size
Permission
Date
Action
advice.elc
58.25
KB
-rw-r--r--
2023-06-07 04:04
authors.elc
30.49
KB
-rw-r--r--
2023-06-07 04:04
autoload.elc
21.31
KB
-rw-r--r--
2023-06-07 03:59
avl-tree.elc
27.02
KB
-rw-r--r--
2023-06-07 04:04
backquote.elc
4.4
KB
-rw-r--r--
2023-06-07 04:18
benchmark.elc
3.18
KB
-rw-r--r--
2023-06-07 04:04
bindat.elc
10.69
KB
-rw-r--r--
2023-06-07 04:04
byte-opt.elc
35.7
KB
-rw-r--r--
2023-06-07 03:59
byte-run.elc
12.35
KB
-rw-r--r--
2023-06-07 04:18
bytecomp.elc
136.26
KB
-rw-r--r--
2023-06-07 03:59
cconv.elc
15.61
KB
-rw-r--r--
2023-06-07 03:59
chart.elc
22.14
KB
-rw-r--r--
2023-06-07 04:04
check-declare.elc
8.87
KB
-rw-r--r--
2023-06-07 04:04
checkdoc.elc
67.42
KB
-rw-r--r--
2023-06-07 04:04
cl-extra.elc
20.01
KB
-rw-r--r--
2023-06-07 04:04
cl-indent.elc
16.34
KB
-rw-r--r--
2023-06-07 04:04
cl-lib.elc
34.86
KB
-rw-r--r--
2023-06-07 04:04
cl-loaddefs.el
39.75
KB
-rw-r--r--
2013-01-01 15:37
cl-macs.elc
71.79
KB
-rw-r--r--
2023-06-07 04:04
cl-seq.elc
40.03
KB
-rw-r--r--
2023-06-07 04:04
cl.elc
16
KB
-rw-r--r--
2023-06-07 04:04
copyright.elc
10.29
KB
-rw-r--r--
2023-06-07 04:04
crm.elc
7.76
KB
-rw-r--r--
2023-06-07 04:04
debug.elc
26.92
KB
-rw-r--r--
2023-06-07 04:04
derived.elc
11.27
KB
-rw-r--r--
2023-06-07 04:04
disass.elc
5.48
KB
-rw-r--r--
2023-06-07 04:04
easy-mmode.elc
16.81
KB
-rw-r--r--
2023-06-07 04:04
easymenu.elc
20.03
KB
-rw-r--r--
2023-06-07 04:04
edebug.elc
101.25
KB
-rw-r--r--
2023-06-07 04:04
eieio-base.elc
13.18
KB
-rw-r--r--
2023-06-07 04:04
eieio-custom.elc
14.55
KB
-rw-r--r--
2023-06-07 04:04
eieio-datadebug.elc
3.9
KB
-rw-r--r--
2023-06-07 04:04
eieio-opt.elc
20.79
KB
-rw-r--r--
2023-06-07 04:04
eieio-speedbar.elc
12.55
KB
-rw-r--r--
2023-06-07 04:04
eieio.elc
89.24
KB
-rw-r--r--
2023-06-07 04:04
eldoc.elc
15.33
KB
-rw-r--r--
2023-06-07 04:04
elint.elc
31.22
KB
-rw-r--r--
2023-06-07 04:04
elp.elc
12.43
KB
-rw-r--r--
2023-06-07 04:04
ert-x.elc
9.78
KB
-rw-r--r--
2023-06-07 04:04
ert.elc
169.71
KB
-rw-r--r--
2023-06-07 04:04
ewoc.elc
26.49
KB
-rw-r--r--
2023-06-07 04:04
find-func.elc
17.4
KB
-rw-r--r--
2023-06-07 04:04
find-gc.elc
3.54
KB
-rw-r--r--
2023-06-07 04:04
float-sup.elc
1.36
KB
-rw-r--r--
2023-06-07 04:19
generic.elc
6.68
KB
-rw-r--r--
2023-06-07 04:04
gulp.elc
4.69
KB
-rw-r--r--
2023-06-07 04:04
gv.elc
17.81
KB
-rw-r--r--
2023-06-07 04:04
helper.elc
4.03
KB
-rw-r--r--
2023-06-07 04:04
lisp-mnt.elc
22.41
KB
-rw-r--r--
2023-06-07 04:04
lisp-mode.elc
44.27
KB
-rw-r--r--
2023-06-07 04:19
lisp.elc
18.56
KB
-rw-r--r--
2023-06-07 04:19
macroexp.elc
12.84
KB
-rw-r--r--
2023-06-07 04:18
map-ynp.elc
6.42
KB
-rw-r--r--
2023-06-07 04:18
package-x.elc
8.32
KB
-rw-r--r--
2023-06-07 04:04
package.elc
54.49
KB
-rw-r--r--
2023-06-07 04:04
pcase.elc
15.98
KB
-rw-r--r--
2023-06-07 04:04
pp.elc
5.56
KB
-rw-r--r--
2023-06-07 04:04
re-builder.elc
22.81
KB
-rw-r--r--
2023-06-07 04:04
regexp-opt.elc
4.87
KB
-rw-r--r--
2023-06-07 04:19
regi.elc
6.09
KB
-rw-r--r--
2023-06-07 04:04
ring.elc
6.58
KB
-rw-r--r--
2023-06-07 04:04
rx.elc
27.41
KB
-rw-r--r--
2023-06-07 04:04
shadow.elc
9.75
KB
-rw-r--r--
2023-06-07 04:04
smie.elc
35.4
KB
-rw-r--r--
2023-06-07 04:04
syntax.elc
13.69
KB
-rw-r--r--
2023-06-07 04:19
tabulated-list.elc
19.12
KB
-rw-r--r--
2023-06-07 04:19
tcover-ses.elc
15
KB
-rw-r--r--
2023-06-07 04:04
tcover-unsafep.elc
4.02
KB
-rw-r--r--
2023-06-07 04:04
testcover.elc
13.4
KB
-rw-r--r--
2023-06-07 04:04
timer.elc
22.94
KB
-rw-r--r--
2023-06-07 04:19
tq.elc
3.89
KB
-rw-r--r--
2023-06-07 04:04
trace.elc
5.24
KB
-rw-r--r--
2023-06-07 04:04
unsafep.elc
4.92
KB
-rw-r--r--
2023-06-07 04:04
warnings.elc
9.53
KB
-rw-r--r--
2023-06-07 04:04
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:04:45 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/eieio-custom.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!\210\305\306\307\310\311$\210\312\313\314\315\316\317\320\301&\210\321\322\323\324\320\325%\207" [require eieio widget wid-edit custom eieio-defclass eieio-widget-test-class nil ((a-string :initarg :a-string :initform "The moose is loose" :custom string :label "Amorphous String" :group (default foo) :documentation "A string for testing custom.\nThis is the next line of documentation.") (listostuff :initarg :listostuff :initform ("1" "2" "3") :type list :custom (repeat (string :tag "Stuff")) :label "List of Strings" :group foo :documentation "A list of stuff.") (uninitialized :initarg :uninitialized :type string :custom string :documentation "This slot is not initialized.\nUsed to make sure that custom doesn't barf when it encounters one\nof these.") (a-number :initarg :a-number :initform 2 :custom integer :documentation "A number of thingies.")) ("A class for testing the widget on.") custom-declare-variable eieio-widget-test (eieio-widget-test-class "Foo") "Test variable for editing an object." :type object :group custom-declare-face eieio-custom-slot-tag-face ((((class color) (background dark)) (:foreground "light blue")) (((class color) (background light)) (:foreground "blue")) (t (:italic t))) "Face used for unpushable variable tags." custom-faces] 8) #@75 Buffer local variable in object customize buffers for the current widget. (defvar eieio-wo nil (#$ . 1898)) #@72 Buffer local variable in object customize buffers for the current obj. (defvar eieio-co nil (#$ . 2012)) #@74 Buffer local variable in object customize buffers for the current group. (defvar eieio-cog nil (#$ . 2123)) #@131 When true, all customizable slots of the current object are updated. Updates occur regardless of the current customization group. (defvar eieio-custom-ignore-eieio-co nil (#$ . 2238)) (define-widget 'object-slot 'group "Abstractly modify a single slot in an object." :tag "Slot" :format "%t %v%h\n" :convert-widget 'widget-types-convert-widget :value-create 'eieio-slot-value-create :value-get 'eieio-slot-value-get :value-delete 'widget-children-value-delete :validate 'widget-children-validate :match 'eieio-object-match) #@29 Create the value of WIDGET. (defalias 'eieio-slot-value-create #[(widget) "\302\303 \304 \305\"\306\307\310\304 \310\"&B\311 \312#)\207" [chil widget nil widget-create-child-and-convert widget-get :childtype :tag "" :value widget-put :children] 9 (#$ . 2768)]) #@26 Get the value of WIDGET. (defalias 'eieio-slot-value-get #[(widget) "\301\302\303\"@!\207" [widget widget-value widget-get :children] 4 (#$ . 3040)]) #@30 Toggle visibility of WIDGET. (defalias 'eieio-custom-toggle-hide #[(widget) "\302\303\"@\302 \304\"\305=\203! \306 \304\307#\210\306 \310\302 \311\"#\210\2026 \306 \304\305#\210\306 \311\302 \310\"#\210\306 \310\312#\210\313 \314 !\")\207" [widget vc widget-get :children :eieio-custom-state hidden widget-put visible :value-face :orig-face invisible widget-value-set widget-value] 6 (#$ . 3197)]) #@93 Toggle visibility of parent of WIDGET. Optional argument IGNORE is an extraneous parameter. (defalias 'eieio-custom-toggle-parent #[(widget &rest ignore) "\301\302\303\"!\207" [widget eieio-custom-toggle-hide widget-get :parent] 4 (#$ . 3603)]) (define-widget 'object-edit 'group "Abstractly modify a CLOS object." :tag "Object" :format "%v" :convert-widget 'widget-types-convert-widget :value-create 'eieio-object-value-create :value-get 'eieio-object-value-get :value-delete 'widget-children-value-delete :validate 'widget-children-validate :match 'eieio-object-match :clone-object-children nil) #@38 Match info for WIDGET against VALUE. (defalias 'eieio-object-match #[(widget value) "\300\207" [t] 1 (#$ . 4208)]) #@26 Filter WIDGETs SLOTTYPE. (defalias 'eieio-filter-slot-type #[(widget slottype) "\302\303\"\203 \207 \304=\203 \305\207 <\203\" @\304=\203\" \305 AB\207 \306\232\203* \307\207 <\203O @\310\232\203O A@<\203O A@@\304\232\203O \310\305 A@ABD\207 \207" [widget slottype widget-get :clone-object-children object object-edit (repeat object) (repeat object-edit) repeat] 3 (#$ . 4329)]) #@29 Create the value of WIDGET. (defalias 'eieio-object-value-create #[(widget) "\306\307\"\2042 \310\307\306\311\"\203 \306\311\"\312N H\313!\2020 \306\314\"\203- \306\314\" \2020 \315\316!#\210\317\306\307\"\306\320\" H\312N\211 ;<H =;>H ?;@H A;BH C;DH E\306\321\"\203} \322\323\324\325\326\327\330 !&\nB\f\203\323 \331 H\312NFH>A\242 G\332\333!\210G\203\316 \332\334!\210G@\f=\203\261 \332\335\336\337\f!!\335#\210\202\305 \340\341\342 G@B\343\344\336\337G@!!&\210GA\211G\204\230 \332\345!\210)=\203\322E@\203\266\f\203\352 \fA@\235\203\266\346 =@\"\203\266\347E@\"\317 H\211 I<\203P\350I\235\211H\203P\351 HA@\"\317 J KI@\350=\2042I@JBJIA\211I\202K\203J\352K@DJBJKA\211K\2047J\237I*\322\353\354I\326\355\324\356\306\357\"\206b\360\361\"?@\203p?@\202\230\337\362 H=@\"\206=@! L\336\363\364L\"\203\224L\360\225\317O\202\226L!)P\307\365 =@\"\366C@\203\255C@\202\256\367\370\371&\nB*=A=CACEAE?A?AAA\202\323 \310\372\n\237#. \207" [widget class-symbol chil obj master-group object-class widget-get :value widget-put :objecttype eieio-class-definition "Custom-new" :objectcreatefcn error "No create method specified" nil :eieio-group :eieio-show-name widget-create-child-and-convert string :tag "Object " :sample-face bold object-name-string :custom-groups widget-insert "Groups:" " " "*" capitalize symbol-name widget-create push-button :thing :notify #[(widget &rest stuff) "\301\302\303\"@\302\303\"A\"\207" [widget eieio-customize-object widget-get :thing] 5] "\n\n" slot-boundp eieio-filter-slot-type :slotofchoices eieio-oref const object-slot :childtype eieio-custom-slot-tag-face make-string :indent 0 32 class-slot-initarg string-match "^:" slot-value :doc "Slot not Documented." :eieio-custom-visibility visible :children cv class-public-a slots class-public-custom-label flabel class-public-custom-group fgroup class-public-doc fdoc class-public-custom fcust class-options groups stuff type newtype choices s] 16 (#$ . 4722)]) #@26 Get the value of WIDGET. (defalias 'eieio-object-value-get #[(widget) "\306\307\"\n \fH\310N\211 H \306\311\" \306\312\"\205' \313@\314\"@ \306\312\"\2036 A\2028 \fH\310N\211 H H \203\237 \203\237 @\203\215 \204m \203m @\235\203\215 \315 @\"\203\215 \316 \317 @\313@\314\"@#\210)AAAA\202L \203\253 I\210 .\n\207" [widget obj eieio-cog master-group object-class cv widget-get :value eieio-class-definition :children :eieio-show-name widget-apply :value-inline slot-boundp t eieio-oset class-public-custom-group fgroup wids name chil class-public-a slots class-public-custom fcust eieio-custom-ignore-eieio-co object-name] 7 (#$ . 6768)]) (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias eieio-done-customizing eieio--defgeneric-init-form #1="When applying change to a widget, call this method.\nThis method is called by the default widget-edit commands.\nUser made commands should also call this method when applying changes.\nArgument OBJ is the object that has been customized." eieio--defmethod nil eieio-default-superclass #[(obj) "\300\207" [nil] 1 #1#]] 5) #@97 Customize OBJ in a custom buffer. Optional argument GROUP is the sub-group of slots to display. (defalias 'customize-object #[(obj &optional group) "\302 \"\207" [obj group eieio-customize-object] 3 (#$ . 7940)]) #@30 Keymap for EIEIO Custom mode (defvar eieio-custom-mode-map (byte-code "\302 \303 \"\210)\207" [map widget-keymap make-sparse-keymap set-keymap-parent] 3) (#$ . 8160)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [eieio-custom-mode-hook variable-documentation put purecopy "Hook run when entering EIEIO Custom mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp eieio-custom-mode-map definition-name eieio-custom-mode] 5) (defvar eieio-custom-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [eieio-custom-mode-map variable-documentation put purecopy "Keymap for `eieio-custom-mode'." boundp eieio-custom-mode-syntax-table definition-name eieio-custom-mode] 5) (defvar eieio-custom-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eieio-custom-mode-syntax-table variable-documentation put purecopy "Syntax table for `eieio-custom-mode'." eieio-custom-mode-abbrev-table definition-name eieio-custom-mode] 5) (defvar eieio-custom-mode-abbrev-table (progn (define-abbrev-table 'eieio-custom-mode-abbrev-table nil) eieio-custom-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eieio-custom-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `eieio-custom-mode'." eieio-custom-mode derived-mode-parent nil] 5) #@160 Major mode for customizing EIEIO objects. \{eieio-custom-mode-map} This mode runs the hook `eieio-custom-mode-hook', as the final step during initialization. (defalias 'eieio-custom-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 )\315\316!\207" [delay-mode-hooks major-mode mode-name eieio-custom-mode-map eieio-custom-mode-syntax-table eieio-custom-mode-abbrev-table make-local-variable t kill-all-local-variables eieio-custom-mode "EIEIO Custom" use-local-map set-syntax-table run-mode-hooks eieio-custom-mode-hook local-abbrev-table] 2 (#$ . 9734) nil]) (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\305\306\312$\210\300\313\302\313\314\"\"\210\304\313\305\306\315$\210\316\317\320\321\322\323\324\325\326\327\330\331& \207" [eieio--defalias eieio-customize-object eieio--defgeneric-init-form #1="Customize OBJ in a specialized custom buffer.\nTo override call the `eieio-custom-widget-insert' to just insert the\nobject widget.\nOptional argument GROUP specifies a subgroup of slots to edit as a symbol.\nThese groups are specified with the `:group' slot flag." eieio--defmethod nil eieio-default-superclass #[(obj &optional group) "\206 \306\307\310\311\312\n!\313\314 !\315\260!!\210\316\317 \210\320 \210\321 \210\322 \323\324\f@\"\210\323\324\fA\"\210)\325\n!\210\326\327!\210\326\330\312\n!\327#\210\331\305!\210\332\n\333 #\326\334!\210\325\n!\210\335 \210eb\210\336\337!\210\331\340!\210\n \331\341!\210\211!)\207" [group g obj buffer-read-only all eieio-wo default switch-to-buffer get-buffer-create "*CUSTOMIZE " object-name " " symbol-name "*" nil kill-all-local-variables eieio-custom-mode erase-buffer overlay-lists mapc delete-overlay eieio-custom-object-apply-reset widget-insert "\n\n" "Edit object " make-local-variable eieio-custom-widget-insert :eieio-group "\n" widget-setup widget-forward 3 eieio-co eieio-cog] 7 #1#] eieio-custom-object-apply-reset #2="Insert an Apply and Reset button into the object editor.\nArgument OBJ is the object being customized." #[(obj) "\300\301\302\303\304$\210\305\306!\210\300\301\302\307\310$\210\305\306!\210\300\301\302\311\312$\210\305\306!\210\300\301\302\313\314$\207" [widget-create push-button :notify #[(&rest ignore) "\302\303\"\210\304 !\210\305 \207" [eieio-wo eieio-co widget-apply :value-get eieio-done-customizing bury-buffer] 3] "Accept" widget-insert " " #[(&rest ignore) "\302\303!\210\304\305\"\210\306 !\210\302\307!\207" [eieio-wo eieio-co message "Applying Changes..." widget-apply :value-get eieio-done-customizing "Applying Changes...Done"] 3] "Apply" #[(&rest ignore) "\302\303!\210\304 \"\207" [eieio-co eieio-cog message "Resetting" eieio-customize-object] 3] "Reset" #[(&rest ignore) "\300 \207" [bury-buffer] 1] "Cancel"] 5 #2#] eieio-custom-widget-insert #3="Insert the widget used for editing object OBJ in the current buffer.\nArguments FLAGS are widget compatible flags.\nMust return the created widget." #[(obj &rest flags) "\302\303\304\305 %\207" [obj flags apply widget-create object-edit :value] 6 #3#] define-widget object object-edit "Instance of a CLOS class." :format "%{%t%}:\n%v" :value-to-internal eieio-object-value-to-abstract :value-to-external eieio-object-abstract-to-value :clone-object-children t] 12) #@65 For WIDGET, convert VALUE to an abstract /safe/ representation. (defalias 'eieio-object-value-to-abstract #[(widget value) "\301\302\303\217\203 \207?\205 \207" [value nil (byte-code "\211\302H\303=\205 \304\305\306\217)\207" [value tobj 0 object nil (byte-code " H\302N\303H\304=\207" [tobj object-class eieio-class-definition 0 defclass] 2) ((error))] 4) ((error))] 3 (#$ . 13050)]) #@67 For WIDGET, convert VALUE from an abstract /safe/ representation. (defalias 'eieio-object-abstract-to-value #[(widget value) "\207" [value] 1 (#$ . 13450)]) (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias eieio-customize-object-group eieio--defgeneric-init-form #1="Create a list of vectors for customizing sections of OBJ." eieio--defmethod nil eieio-default-superclass #[(obj) "\303\304\305 H\306N\nH>A\242\"\207" [obj object-class class-options mapcar #[(group) "\302\303\304!P\305 \306DE\307#\207" [group obj vector "Group " symbol-name customize-object quote t] 6] :custom-groups eieio-class-definition] 5 #1#]] 5) #@38 History for the custom group reader. (defvar eieio-read-custom-group-history nil (#$ . 14116)) (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\310\311!\207" [eieio--defalias eieio-read-customization-group eieio--defgeneric-init-form #1="Do a completing read on the name of a customization group in OBJ.\nReturn the symbol for the group, or nil" eieio--defmethod nil eieio-default-superclass #[(obj) "\304 H\305N\nH>A\242\211G\306U\203 @\202/ \307\310 \"\311\312\313\314\"\315P \316\317\316\320& \"A)\207" [obj object-class class-options g :custom-groups eieio-class-definition 1 mapcar #[(g) "\301!B\207" [g symbol-name] 2] assoc completing-read eieio-oref name " Custom Group: " nil t eieio-read-custom-group-history] 9 #1#] provide eieio-custom] 5)