;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:01 2024
;;; 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 (#$ . 1902))
#@72 Buffer local variable in object customize buffers for the current obj.
(defvar eieio-co nil (#$ . 2016))
#@74 Buffer local variable in object customize buffers for the current group.
(defvar eieio-cog nil (#$ . 2127))
#@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 (#$ . 2242))
(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 (#$ . 2772)])
#@26 Get the value of WIDGET.
(defalias 'eieio-slot-value-get #[(widget) "\301\302\303\"@!\207" [widget widget-value widget-get :children] 4 (#$ . 3044)])
#@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 (#$ . 3201)])
#@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 (#$ . 3607)])
(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 (#$ . 4212)])
#@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 (#$ . 4333)])
#@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?;@HA;BHC;DHE\306\321\"\203}\322\323\324\325\326\327\330!&\nB\f\203\323\331
H\312NFH>A\242G\332\333!\210G\203\316\332\334!\210G@\f=\203\261\332\335\336\337\f!!\335#\210\202\305\340\341\342G@B\343\344\336\337G@!!&\210GA\211G\204\230\332\345!\210)=\203\322
E@\203\266
\f\203\352\fA@\235\203\266
\346=@\"\203\266
\347E@\"\317H\211I<\203P
\350I\235\211H\203P
\351HA@\"\317JKI@\350=\2042
I@JBJIA\211I\202
K\203J
\352K@DJBJKA\211K\2047
J\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\224
L\360\225\317O\202\226
L!)P\307\365=@\"\366C@\203\255
C@\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 (#$ . 4726)])
#@26 Get the value of WIDGET.
(defalias 'eieio-object-value-get #[(widget) "\306\307\"\n	\fH\310N\211H\306\311\"\306\312\"\205'\313@\314\"@\306\312\"\2036A\2028	\fH\310N\211H
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 (#$ . 6772)])
(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 (#$ . 7944)])
#@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) (#$ . 8164))
(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 (#$ . 9738) 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 (#$ . 13054)])
#@67 For WIDGET, convert VALUE from an abstract /safe/ representation.
(defalias 'eieio-object-abstract-to-value #[(widget value) "\207" [value] 1 (#$ . 13454)])
(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 (#$ . 14120))
(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)