;ELC   
;;; compiled by rms@psilocin.gnu.ai.mit.edu on Tue Jun 25 23:47:26 1996
;;; from file /home/fsf/rms/e19/lisp/custom.el
;;; emacs version 19.31.3.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`custom.el' was compiled for Emacs 19.29 or later"))


(defalias 'custom-xmas-add-text-properties #[(start end props &optional object) "А	\n\f$€Е	\nЖЗ\f%€Е	\nИЗ\f%‡" [add-text-properties start end props object put-text-property start-open t end-open] 6])
(defalias 'custom-xmas-put-text-property #[(start end prop value &optional object) "А	\n\f%€А	\nЖЗ%€А	\nИЗ%‡" [put-text-property start end prop value object start-open t end-open] 6])
(defalias 'custom-xmas-extent-start-open #[nil "АБВ``Td^$‡" [map-extents #[(extent arg) "А	ВГ#‡" [set-extent-property extent start-open t] 4] nil] 6])
(byte-code "АБ\n\"ѓ. ГДM€ЕЖM€ЗИM€ЙКЛ!… ЛM€МКН!ѓ( Н‚) ОM€‚B ГПM€ЕРM€ЗСM€ЙЛM€МНM€А‡" [string-match "XEmacs\\|Lucid" emacs-version custom-add-text-properties custom-xmas-add-text-properties custom-put-text-property custom-xmas-put-text-property custom-extent-start-open custom-xmas-extent-start-open custom-set-text-properties fboundp set-text-properties custom-buffer-substring-no-properties buffer-substring-no-properties custom-xmas-buffer-substring-no-properties add-text-properties put-text-property ignore] 3)
#@72 Return the text from BEG to END, without text properties, as a string.
(defalias 'custom-xmas-buffer-substring-no-properties #[(beg end) "	{ГД\nGЕ\n$€\n)‡" [beg end string custom-set-text-properties 0 nil] 5 (#$ . 1525)])
(byte-code "АБ!„\n БВM€АГ!„ ГДM€АЕ!„ ЕЖM€АЗ!„( ЗИM€АЙ!„2 ЙКM€АЛ!ѓ? МЛM€‚C МЙM€МН!„l АО!ѓU ПР!Н!€АС!ѓa СН!„l АТ!ѓl ТНУ\"€А‡" [fboundp add-to-list #[(list-var element) "	Jќ† 		JBL‡" [element list-var] 3 "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.\nIf you want to use `add-to-list' on a variable that is not defined\nuntil a certain package is loaded, you should put the call to `add-to-list'\ninto a hook function that will be run only after loading the package.\n`eval-after-load' provides one way to do this.  In some cases\nother hooks, such as major mode hooks, can do the job."] plist-get #[(plist prop) "А\nѓ  \n@=ѓ \nA@А‰‚ \n‰AAL€‚ 	)‡" [nil result plist prop] 3 "Extract a value from a property list.\nPLIST is a property list, which is a list of the form\n(PROP1 VALUE1 PROP2 VALUE2...).  This function returns the value\ncorresponding to the given PROP, or nil if PROP is not\none of the properties on the list."] plist-put #[(plist prop val) "„ 	\nD‡‰ѓ; @	=ѓ  A\n €Д‰‚ AA„3 A	\nDЎ€Д‰‚ AA‰„ )‡" [plist prop val current nil] 4 "Change value in PLIST of PROP to VAL.\nPLIST is a property list, which is a list of the form\n(PROP1 VALUE1 PROP2 VALUE2 ...).  PROP is a symbol and VAL is any object.\nIf PROP is already a property on the list, its value is set to VAL,\notherwise the new PROP VAL pair is added.  The new plist is returned;\nuse `(setq x (plist-put x prop val))' to be sure to use the new value.\nThe PLIST is modified by side effects."] match-string #[(num &optional string) "”… 	ѓ 	”•O‡”•{‡" [num string] 3 "Return string of text matched by last search.\nNUM specifies which parenthesized expression in the last regexp.\n Value is nil if NUMth pair didn't match, or there were less than NUM pairs.\nZero means the entire text matched by the whole regexp or whole string.\nSTRING should be given if the last search was by `string-match' on STRING."] facep #[(x) "АБ!ѓ \nГ\n!… \nGДU… \nЕHЖ=)„0 \n9…1 \nЗИ!…, ћ…1 Й‡" [fboundp internal-facep x vectorp 8 0 face boundp global-face-data t] 3 "Return t if X is a face name or an internal face vector."] find-face custom-facep underline make-face intern "make-face" face-differs-from-default-p set-face-underline-p t] 3)
(defalias 'custom-xmas-set-text-properties #[(start end props &optional buffer) "?…% 	ѓ  	…% В\f	@	A@%€	AA‰‚\n Е\fЖ#‡" [buffer props custom-put-text-property start end remove-text-properties nil] 7])
(byte-code "АБ!„\n БВM€А‡" [fboundp event-point #[(event) "‰A@)‰A@:ѓ 	A@@‚ 	A@)‡" [event position] 2 "Return the character position of the given mouse-motion, button-press,\nor button-release event.  If the event did not occur over a window, or did\nnot occur over text, then this returns nil.  Otherwise, it returns an index\ninto the buffer visible in the event's window."]] 2)
#@36 The symbol making text intangible.
(defconst intangible (byte-code "АБ!ѓ \nГV„ \nДVѓ 	ЕVѓ Ж‰‡З‰‡" [boundp emacs-minor-version emacs-major-version 19 18 28 intangible intangible-if-it-had-been-working] 2) (#$ . 4599))
#@63 The symbol making text properties non-sticky in the rear end.
(defconst rear-nonsticky (byte-code "АБ\n\"ѓ	 Г‡Д‡" [string-match "XEmacs" emacs-version end-open rear-nonsticky] 3) (#$ . 4830))
#@56 The symbol making text properties sticky in the front.
(defconst front-sticky (byte-code "АБ\n\"ѓ	 Г‡Д‡" [string-match "XEmacs" emacs-version front-closed front-sticky] 3) (#$ . 5028))
#@48 Symbol used for highlighting text under mouse.
(defconst mouse-face (byte-code "АБ\n\"ѓ	 Г‡Д‡" [string-match "XEmacs" emacs-version highlight mouse-face] 3) (#$ . 5219))
(byte-code "АБ\n\"ѓ ГД!ѓ% ѓ% ЖЗИЙК$€‚% ЛМН\"€ЛОП\"€А‡" [string-match "XEmacs" emacs-version featurep menubar current-menubar add-menu-item ("Help") "Customize..." customize t global-set-key [menu-bar help customize] ("Customize..." . customize) [menu-bar help-menu customize] ("Customize..." . customize)] 5)
#@54 My hacked up function to do a blocking popup menu...
(defalias 'custom-x-really-popup-menu #[(pos title menudesc) "АБ‰ѓ Ж@@@@CЗ#\nBA‰„\n \nBЙ\n!€КЛЌ+‡" [0 nil menu event echo-keystrokes menudesc vector t title popup-menu popup-done (byte-code "А	!В	!ѓ Г	!ў;ѓ ДЕГ	!\"€‚  В	!ѓ2 Г	!Ж=„  Г	!З=„  И „? ДЕЙ\"€‚  К	!„  Л €МН!€‚  " [next-command-event event misc-user-event-p event-object throw popup-done abort menu-no-selection-hook popup-menu-up-p nil button-release-event-p beep message "please make a choice from the menu."] 4)] 5 (#$ . 5706)])
(byte-code "АБ\n\"ѓ ГДM€ЕЖM€ЗИM€ЙКM€‚* ГЛM€ЕМM€ЗНM€ЙОM€А‡" [string-match "XEmacs" emacs-version custom-category-create #[(name) "БВ‰\"L€Г‡" [name make-extent nil "Create a text property category named NAME."] 4] custom-category-put #[(name property value) "А	J\n#‡" [set-extent-property name property value] 4 "In CATEGORY set PROPERTY to VALUE."] custom-category-get #[(name property) "А	J\n\"‡" [extent-property name property] 3 "In CATEGORY get PROPERTY."] custom-category-set #[(from to category) "А	\n\"ДJ\")‡" [make-extent from to extent set-extent-parent category] 3 "Make text between FROM and TWO have category CATEGORY."] #[(name) "‰L‡" [name] 2 "Create a text property category named NAME."] #[(name property value) "А	\n#‡" [put name property value] 4 "In CATEGORY set PROPERTY to VALUE."] #[(name property) "	N‡" [name property] 2 "In CATEGORY get PROPERTY."] #[(from to category) "А	\nГ$‡" [custom-put-text-property from to category] 5 "Make text between FROM and TWO have category CATEGORY."]] 3)
#@48 Function returning the external value of NAME.
(defvar custom-external (quote default-value) (#$ . 7292))
#@55 Function setting the external value of NAME to VALUE.
(defvar custom-external-set (quote set-default) (#$ . 7404))
#@46 Get the external value associated with NAME.
(defalias 'custom-external #[(name) "	!‡" [custom-external name] 2 (#$ . 7525)])
#@55 Set the external value associated with NAME to VALUE.
(defalias 'custom-external-set #[(name value) "	\n\"‡" [custom-external-set name value] 3 (#$ . 7658)])
#@59 Alist of custom names and their associated editing field.
(defvar custom-name-fields nil (#$ . 7823))
(make-variable-buffer-local (quote custom-name-fields))
#@28 Associate NAME with FIELD.
(defalias 'custom-name-enter #[(name field) "… БВ!€\nBB‰‡" [name custom-assert field custom-name-fields] 2 (#$ . 7987)])
#@41 The editing field associated with NAME.
(defalias 'custom-name-field #[(name) "	ћA‡" [name custom-name-fields] 2 (#$ . 8146)])
#@69 The value currently displayed for NAME in the customization buffer.
(defalias 'custom-name-value #[(name) "А	!Г\n!Е\n!€Ж\fЗ\"\fИ\f\n\"@\"*‡" [custom-name-field name field custom-field-custom custom custom-field-parse custom-property export custom-field-extract] 5 (#$ . 8280)])
#@55 Function that will save current customization buffer.
(defvar custom-save (quote custom-save) (#$ . 8566))
#@46 Name of file with customization information.
(defvar custom-file "~/.custom.el" (#$ . 8679))
#@68 The global customization information.  
A custom association list.
(defconst custom-data (quote ((tag . "Emacs") (doc . "The extensible self-documenting text editor.") (type . group) (data "\n" ((header) (compact . t) (type . group) (doc . "Press [Save] to save any changes permanently after you are done editing.  \nYou can load customization information from other files by editing the\n`File' field and pressing the [Load] button.  When you press [Save] the\ncustomization information of all files you have loaded, plus any\nchanges you might have made manually, will be stored in the file \nspecified by the `File' field.") (data ((tag . "Load") (type . button) (query . custom-load)) ((tag . "Save") (type . button) (query . custom-save)) ((name . custom-file) (default . "~/.custom.el") (doc . "Name of file with customization information.\n") (tag . "File") (type . file))))))) (#$ . 8778))
#@175 Declare variables for customization.  
PATH is a list of tags leading to the place in the customization
hierarchy the new entry should be added.  CUSTOM is the entry to add.
(defalias 'custom-declare #[(path custom) "А	!€В\f\"	Г!ќ† Г!	C¤)‡" [custom-initialize custom custom-travel-path custom-data path current] 3 (#$ . 9683)])
(put (quote custom-declare) (quote lisp-indent-hook) 1)
#@102 Alist of default properties for type symbols.
The format is `((SYMBOL (PROPERTY . VALUE)... )... )'.
(defconst custom-type-properties (quote ((repeat (type . default) (import . custom-repeat-import) (eval . custom-repeat-eval) (quote . custom-repeat-quote) (accept . custom-repeat-accept) (extract . custom-repeat-extract) (validate . custom-repeat-validate) (insert . custom-repeat-insert) (match . custom-repeat-match) (query . custom-repeat-query) (prefix . "") (del-tag . "[DEL]") (add-tag . "[INS]")) (pair (type . group) (accept . custom-pair-accept) (eval . custom-pair-eval) (import . custom-pair-import) (quote . custom-pair-quote) (valid lambda (c d) (consp d)) (extract . custom-pair-extract)) (list (type . group) (quote . custom-list-quote) (valid lambda (c d) (listp d)) (extract . custom-list-extract)) (group (type . default) (face-tag) (eval . custom-group-eval) (import . custom-group-import) (initialize . custom-group-initialize) (apply . custom-group-apply) (reset . custom-group-reset) (factory-reset . custom-group-factory-reset) (extract) (validate . custom-group-validate) (query . custom-toggle-hide) (accept . custom-group-accept) (insert . custom-group-insert) (find . custom-group-find)) (toggle (type . choice) (data ((type . const) (tag . "On ") (default . t)) ((type . const) (tag . "Off") (default)))) (triggle (type . choice) (data ((type . const) (tag . "On ") (default . t)) ((type . const) (tag . "Off") (default)) ((type . const) (tag . "Def") (default . custom:asis)))) (choice (type . default) (query . custom-choice-query) (accept . custom-choice-accept) (extract . custom-choice-extract) (validate . custom-choice-validate) (insert . custom-choice-insert) (none (tag . "Unknown") (default . __uninitialized__) (type . const))) (const (type . default) (extract lambda (c f) (list (custom-default c))) (validate lambda (c f) nil) (valid . custom-const-valid) (update . custom-const-update) (insert . custom-const-insert)) (face-doc (type . doc) (doc . "You can customize the look of Emacs by deciding which faces should be\nused when.  If you push one of the face buttons below, you will be\ngiven a choice between a number of standard faces.  The name of the\nselected face is shown right after the face button, and it is\ndisplayed its own face so you can see how it looks.  If you know of\nanother standard face not listed and want to use it, you can select\n`Other' and write the name in the editing field.\n\nIf none of the standard faces suits you, you can select `Customize' to\ncreate your own face.  This will make six fields appear under the face\nbutton.  The `Fg' and `Bg' fields are the foreground and background\ncolors for the face, respectively.  You should type the name of the\ncolor in the field.  You can use any X11 color name.  A list of X11\ncolor names may be available in the file `/usr/lib/X11/rgb.txt' on\nyour system.  The special color name `default' means that the face\nwill not change the color of the text.  The `Stipple' field is weird,\nso just ignore it.  The three remaining fields are toggles, which will\nmake the text `bold', `italic', or `underline' respectively.  For some\nfonts `bold' or `italic' will not make any visible change.")) (face (type . choice) (eval . custom-face-eval) (import . custom-face-import) (data ((tag . "None") (default) (type . const)) ((tag . "Default") (default . default) (face . custom-const-face) (type . const)) ((tag . "Bold") (default . bold) (face . custom-const-face) (type . const)) ((tag . "Bold-italic") (default . bold-italic) (face . custom-const-face) (type . const)) ((tag . "Italic") (default . italic) (face . custom-const-face) (type . const)) ((tag . "Underline") (default . underline) (face . custom-const-face) (type . const)) ((tag . "Highlight") (default . highlight) (face . custom-const-face) (type . const)) ((tag . "Modeline") (default . modeline) (face . custom-const-face) (type . const)) ((tag . "Region") (default . region) (face . custom-const-face) (type . const)) ((tag . "Secondary Selection") (default . secondary-selection) (face . custom-const-face) (type . const)) ((tag . "Customized") (compact . t) (face-tag . custom-face-hack) (eval . custom-face-eval) (data ((hidden . t) (tag . "") (doc . "Select the properties you want this face to have.") (default . custom-face-lookup) (type . const)) "\n" ((tag . "Fg") (hidden . t) (default . "default") (width . 20) (type . string)) ((tag . "Bg") (default . "default") (width . 20) (type . string)) ((tag . "Stipple") (default . "default") (width . 20) (type . string)) "\n" ((tag . "Bold") (default . custom:asis) (type . triggle)) "              " ((tag . "Italic") (default . custom:asis) (type . triggle)) "             " ((tag . "Underline") (hidden . t) (default . custom:asis) (type . triggle))) (default custom-face-lookup "default" "default" "default" nil nil nil) (type . list)) ((prompt . "Other") (face . custom-field-value) (default . __uninitialized__) (type . symbol)))) (file (type . string) (directory) (default-file) (query . custom-file-query)) (sexp (type . default) (width . 40) (default __uninitialized__ . "Uninitialized") (read . custom-sexp-read) (write . custom-sexp-write)) (symbol (type . sexp) (width . 40) (valid lambda (c d) (symbolp d))) (integer (type . sexp) (width . 10) (valid lambda (c d) (integerp d))) (string (type . default) (width . 40) (valid lambda (c d) (stringp d)) (read . custom-string-read) (write . custom-string-write)) (button (type . default) (accept . ignore) (extract) (validate . ignore) (insert . custom-button-insert)) (doc (type . default) (header) (reset . ignore) (extract) (validate . ignore) (insert . custom-documentation-insert)) (default (width . 20) (valid lambda (c v) t) (insert . custom-default-insert) (update . custom-default-update) (query . custom-default-query) (tag) (prompt) (doc) (header . t) (padding . 32) (quote . custom-default-quote) (eval lambda (c v) nil) (export . custom-default-export) (import lambda (c v) (list v)) (synchronize . ignore) (initialize . custom-default-initialize) (extract . custom-default-extract) (validate . custom-default-validate) (apply . custom-default-apply) (reset . custom-default-reset) (factory-reset . custom-default-factory-reset) (accept . custom-default-accept) (match . custom-default-match) (name) (compact) (hidden) (face . custom-default-face) (data) (calculate) (default . __uninitialized__)))) (#$ . 10079))
#@92 Local type properties.
Entries in this list take precedence over `custom-type-properties'.
(defconst custom-local-type-properties nil (#$ . 16515))
(make-variable-buffer-local (quote custom-local-type-properties))
#@52 Special value representing an uninitialized field.
(defconst custom-nil (quote __uninitialized__) (#$ . 16735))
#@46 Special value representing an invalid field.
(defconst custom-invalid (quote __invalid__) (#$ . 16853))
(byte-code "АА	BА‡" [custom:asis current-load-list] 2)
#@40 Extract from CUSTOM property PROPERTY.
(defalias 'custom-property #[(custom property) "	ћ\n„$ Г	!‰ћ† \fћA	ћЗБ!€)‚ \nA)‡" [property custom entry custom-type type custom-local-type-properties custom-type-properties custom-assert] 3 (#$ . 17020)])
#@73 Extract from CUSTOM property PROPERTY.  Start with CUSTOM's superclass.
(defalias 'custom-super #[(custom property) "А	„# В!‰ћ† \fћAћИГ!€)‚ 	A)‡" [nil entry custom-type custom type custom-local-type-properties custom-type-properties property custom-assert] 3 (#$ . 17282)])
#@94 Set CUSTOM PROPERTY to VALUE by side effect.
CUSTOM must have at least one property already.
(defalias 'custom-property-set #[(custom property value) "	ћ‰ѓ \nЎ‚ 	B	ABЎ)‡" [property custom entry value] 4 (#$ . 17575)])
#@29 Extract `type' from CUSTOM.
(defalias 'custom-type #[(custom) "А	ћA‡" [type custom] 2 (#$ . 17806)])
#@29 Extract `name' from CUSTOM.
(defalias 'custom-name #[(custom) "А	В\"‡" [custom-property custom name] 3 (#$ . 17913)])
#@28 Extract `tag' from CUSTOM.
(defalias 'custom-tag #[(custom) "А	В\"‡" [custom-property custom tag] 3 (#$ . 18037)])
#@33 Extract `face-tag' from CUSTOM.
(defalias 'custom-face-tag #[(custom) "А	В\"‡" [custom-property custom face-tag] 3 (#$ . 18158)])
#@91 Extract `prompt' from CUSTOM.  
If none exist, default to `tag' or, failing that, `type'.
(defalias 'custom-prompt #[(custom) "А	В\"† А	Г\"† ДЕЖ	!!!‡" [custom-property custom prompt tag capitalize symbol-name custom-type] 4 (#$ . 18294)])
#@32 Extract `default' from CUSTOM.
(defalias 'custom-default #[(custom) "А	В\"‰ѓ Д!‚ А	Е\")‡" [custom-property custom calculate value eval default] 4 (#$ . 18541)])
#@33 Extract the `data' from CUSTOM.
(defalias 'custom-data #[(custom) "А	В\"‡" [custom-property custom data] 3 (#$ . 18712)])
#@28 Extract `doc' from CUSTOM.
(defalias 'custom-documentation #[(custom) "А	В\"‡" [custom-property custom doc] 3 (#$ . 18840)])
#@30 Extract `width' from CUSTOM.
(defalias 'custom-width #[(custom) "А	В\"‡" [custom-property custom width] 3 (#$ . 18971)])
#@32 Extract `compact' from CUSTOM.
(defalias 'custom-compact #[(custom) "А	В\"‡" [custom-property custom compact] 3 (#$ . 19098)])
#@32 Extract `padding' from CUSTOM.
(defalias 'custom-padding #[(custom) "А	В\"‡" [custom-property custom padding] 3 (#$ . 19231)])
#@48 Non-nil if CUSTOM may validly be set to VALUE.
(defalias 'custom-valid #[(custom value) "<…	 	@=?… ВД\"\"‡" [value custom-invalid custom-property custom valid] 3 (#$ . 19364)])
#@214 Import CUSTOM VALUE from external variable.

This function change VALUE into a form that makes it easier to edit 
internally.  What the internal form is exactly depends on CUSTOM.  
The internal form is returned.
(defalias 'custom-import #[(custom value) "	=ѓ	 C‡ВД\"	\"‡" [custom-nil value custom-property custom import] 3 (#$ . 19554)])
#@57 Return non-nil if CUSTOM's VALUE needs to be evaluated.
(defalias 'custom-eval #[(custom value) "А	В\"	\"‡" [custom-property custom eval value] 3 (#$ . 19903)])
#@36 Quote CUSTOM's VALUE if necessary.
(defalias 'custom-quote #[(custom value) "А	В\"	\"‡" [custom-property custom quote value] 3 (#$ . 20071)])
#@35 Convert CUSTOM VALUE to a string.
(defalias 'custom-write #[(custom value) "	=ѓ В‡<ѓ @=ѓ A‡ДЖ\"\"‡" [value custom-nil "" custom-invalid custom-property custom write] 3 (#$ . 20220)])
#@48 Convert CUSTOM field content STRING into lisp.
(defalias 'custom-read #[(custom string) "АБВЏ‡" [nil (byte-code "А	В\"	\"‡" [custom-property custom read string] 3) ((error (cons custom-invalid string)))] 3 (#$ . 20420)])
#@621 Match CUSTOM with a list of VALUES.

Return a cons-cell where the car is the sublist of VALUES matching CUSTOM,
and the cdr is the remaining VALUES.

A CUSTOM is actually a regular expression over the alphabet of lisp
types.  Most CUSTOM types are just doing a literal match, e.g. the
`symbol' type matches any lisp symbol.  The exceptions are:

group:    which corresponds to a `(' and `)' group in a regular expression.
choice:   which corresponds to a group of `|' in a regular expression.
repeat:   which corresponds to a `*' in a regular expression.
optional: which corresponds to a `?', and isn't implemented yet.
(defalias 'custom-match #[(custom values) "	ВD>ѓ\f 	ВB‡Г\fЕ\"\f\"‡" [values custom-nil nil custom-property custom match] 3 (#$ . 20649)])
#@54 Initialize `doc' and `default' attributes of CUSTOM.
(defalias 'custom-initialize #[(custom) "А	В\"	!‡" [custom-property custom initialize] 3 (#$ . 21415)])
#@38 Find child in CUSTOM with `tag' TAG.
(defalias 'custom-find #[(custom tag) "А	В\"	\"‡" [custom-property custom find tag] 3 (#$ . 21578)])
#@50 Find decedent of CUSTOM by looking through PATH.
(defalias 'custom-travel-path #[(custom path) "„ 	‡ВГ	@\"A\"‡" [path custom custom-travel-path custom-find] 4 (#$ . 21723)])
#@34 Extract CUSTOM's value in FIELD.
(defalias 'custom-field-extract #[(custom field) ";?… БВ!Д\"\"‡" [custom custom-property custom-field-custom field extract] 3 (#$ . 21907)])
#@173 Validate CUSTOM's value in FIELD.
Return nil if valid, otherwise return a cons-cell where the car is the
position of the error, and the cdr is a text describing the error.
(defalias 'custom-field-validate #[(custom field) ";?… БВ\"\"‡" [custom custom-property validate field] 3 (#$ . 22093)])
(byte-code "АБ!„ ВБBДБ!€АЕ!„ ВЕBДЕ!‡" [boundp custom-field-last nil current-load-list make-variable-buffer-local custom-modified-list] 2)
#@323 Create a field structure of type CUSTOM containing VALUE.

A field structure is an array [ CUSTOM VALUE ORIGINAL START END ], where
CUSTOM defines the type of the field, 
VALUE is the current value of the field,
ORIGINAL is the original value when created, and
START and END are markers to the start and end of the field.
(defalias 'custom-field-create #[(custom value) "А	\nД‰%‡" [vector custom value custom-nil nil] 6 (#$ . 22544)])
#@41 Return the `custom' attribute of FIELD.
(defalias 'custom-field-custom #[(field) "БH‡" [field 0] 2 (#$ . 22986)])
#@40 Return the `value' attribute of FIELD.
(defalias 'custom-field-value #[(field) "БH‡" [field 1] 2 (#$ . 23107)])
#@43 Return the `original' attribute of FIELD.
(defalias 'custom-field-original #[(field) "БH‡" [field 2] 2 (#$ . 23226)])
#@40 Return the `start' attribute of FIELD.
(defalias 'custom-field-start #[(field) "БH‡" [field 3] 2 (#$ . 23351)])
#@38 Return the `end' attribute of FIELD.
(defalias 'custom-field-end #[(field) "БH‡" [field 4] 2 (#$ . 23470)])
#@46 Set the `value' attribute of FIELD to VALUE.
(defalias 'custom-field-value-set #[(field value) "Б\nI‡" [field 1 value] 3 (#$ . 23585)])
#@52 Set the `original' attribute of FIELD to ORIGINAL.
(defalias 'custom-field-original-set #[(field original) "Б\nI‡" [field 2 original] 3 (#$ . 23728)])
#@64 Set the `start'and `end' attributes of FIELD to START and END.
(defalias 'custom-field-move #[(field start end) "БH† БВ IД“€ЕH† ЕВ IД“‡" [field 3 make-marker start nil 4 end] 3 (#$ . 23886)])
#@42 Query user for content of current field.
(defalias 'custom-field-query #[(field) "АБ\n!Г\"\n!‡" [custom-property custom-field-custom field query] 3 (#$ . 24093)])
#@131 Store a new value into field FIELD, taking it from VALUE.
If optional ORIGINAL is non-nil, consider VALUE for the original value.
(defalias 'custom-field-accept #[(field value &optional original) "АВГ\f!Е\"\f#)‡" [t inhibit-point-motion-hooks custom-property custom-field-custom field accept value original] 4 (#$ . 24263)])
#@39 The face used for highlighting FIELD.
(defalias 'custom-field-face #[(field) "А	!‰;?… Г\nД\"	!Е\f!… \f))‡" [custom-field-custom field custom custom-property face custom-facep] 4 (#$ . 24599)])
#@77 Update the screen appearance of FIELD to correspond with the field's value.
(defalias 'custom-field-update #[(field) "А	!‰;?… Г\nД\"	!)‡" [custom-field-custom field custom custom-property update] 4 (#$ . 24802)])
#@50 Non-nil if CUSTOM's VALUE needs to be evaluated.
(defalias 'custom-repeat-eval #[(custom value) "	=?… В!ДЗИ\"*‡" [value custom-nil custom-data custom nil found child mapcar #[(v) "А	\n\"…\n Г‰‡" [custom-eval child v t found] 3]] 3 (#$ . 25023)])
#@35 A list of CUSTOM's VALUEs quoted.
(defalias 'custom-repeat-quote #[(custom value) "А	!ГДЕЖ\"\")‡" [custom-data custom child apply append mapcar #[(v) "А	\n\"‡" [custom-quote child v] 3] value] 5 (#$ . 25283)])
#@55 Modify CUSTOM's VALUE to match internal expectations.
(defalias 'custom-repeat-import #[(custom value) "А	!ГДЕЖ\"\")‡" [custom-data custom child apply append mapcar #[(v) "А	\n\"‡" [custom-import child v] 3] value] 5 (#$ . 25502)])
#@59 Store a new value into field FIELD, taking it from VALUE.
(defalias 'custom-repeat-accept #[(field value &optional original) "АБ\n!!Б\n!Г\n!Д‰	\nѓ! Л\n\f\"€\f:ѓe \f@\fA\f	ѓB 	@	A	‚Z b€Н\n!ОД#П\n\"€Р\n#€‚! 	:…ѕ 	@	A	Г!Д„µ УФ\"ХТ!€ЦФ\"Ч!ѓ® GШVѓ® ШH=„~ Д‰ѓѓ Щ!€*‚e -‡" [copy-sequence custom-field-value field custom-field-start nil new current start all values original custom-field-original-set value custom-repeat-insert-entry custom-insert-before custom-field-value-set custom-field-accept data pos previous-single-property-change custom-data custom-assert get-text-property arrayp 1 custom-repeat-delete] 6 (#$ . 25743)])
#@67 Insert field for CUSTOM at nesting LEVEL in customization buffer.
(defalias 'custom-repeat-insert #[(custom level) "А	В\"Д	Е\"Ж ИВВ$	КЛ!€`\fКД	Н\"!€ОП	#€\fВ“€)Р`#€С	!€,‡" [custom-field-create custom nil field custom-property add-tag make-marker start vector data custom-text-insert "\n" pos prefix custom-tag-insert custom-repeat-add custom-field-move custom-documentation-insert] 5 (#$ . 26443)])
#@44 Insert entry at point in the REPEAT field.
(defalias 'custom-repeat-insert-entry #[(repeat) "ААГГЖ!ЙК\"\nЙЛ\"М М ПГ$ГТ €УФ!€ХЦ!€`Г“€ЧШ!€ЦЩЪ!Г\"‰I€ЧШ!€`Г“€b€ЧЙЫ\"!€Ь\nЭ#€ЧШ!€ЬЮ#€Цu€.‡" [t inhibit-point-motion-hooks inhibit-read-only nil before-change-functions after-change-functions custom-field-custom repeat custom custom-property add-tag del-tag make-marker start end vector data field custom-extent-start-open insert-before-markers "\n" backward-char 1 custom-text-insert " " custom-insert custom-data prefix custom-tag-insert custom-repeat-add custom-repeat-delete] 5 (#$ . 26865)])
#@17 Add list entry.
(defalias 'custom-repeat-add #[(data) "БHВHГHДb€Й!КЛМ!#\",‡" [data 0 1 2 nil new at field parent custom-repeat-insert-entry custom-field-value-set custom-insert-before custom-field-value] 6 (#$ . 27512)])
#@20 Delete list entry.
(defalias 'custom-repeat-delete #[(data) "А‰Б‰\nГH\nДH	\n\nЛH\nМHT|€Н\nДH!€ОПР!\"\".‡" [t nil data 0 1 field parent after-change-functions before-change-functions inhibit-read-only inhibit-point-motion-hooks 2 3 custom-field-untouch custom-field-value-set delq custom-field-value] 7 (#$ . 27761)])
#@27 Match CUSTOM with VALUES.
(defalias 'custom-repeat-match #[(custom values) "А	!Г\n\f\"Ж@=„' @BAГ\n\f\"‰‚ џ\f+B‡" [custom-data custom child custom-match values match nil matches custom-nil] 4 (#$ . 28099)])
#@36 Extract list of children's values.
(defalias 'custom-repeat-extract #[(custom field) "А	!В!Д‰=„, ѓ, ЙК@\"\"A‰„ +‡" [custom-field-value field custom-data custom nil result data values custom-nil append custom-field-extract] 6 (#$ . 28329)])
#@20 Validate children.
(defalias 'custom-repeat-validate #[(custom field) "А	!В!Д‰=ѓ Й	!КBѓ3 „3 Л@\"A‰„ +‡" [custom-field-value field custom-data custom nil result data values custom-nil custom-field-start "Uninitialized list" custom-field-validate] 4 (#$ . 28597)])
#@59 Store a new value into field FIELD, taking it from VALUE.
(defalias 'custom-pair-accept #[(field value &optional original) "А	\n@\nAD#‡" [custom-group-accept field value original] 4 (#$ . 28890)])
#@50 Non-nil if CUSTOM's VALUE needs to be evaluated.
(defalias 'custom-pair-eval #[(custom value) "А	\n@\nAD\"‡" [custom-group-eval custom value] 4 (#$ . 29094)])
#@55 Modify CUSTOM's VALUE to match internal expectations.
(defalias 'custom-pair-import #[(custom value) "А	\n@\nAD\"@ДЕ!€@A@)BC‡" [custom-group-import custom value result custom-assert (eq (length result) 2)] 4 (#$ . 29259)])
#@36 Quote CUSTOM's VALUE if necessary.
(defalias 'custom-pair-quote #[(custom value) "А	\n\"ѓ Г	\n@\nAD\"@Е\f@\fA@E)C‡Ж	\n\"‡" [custom-eval custom value custom-group-quote v cons custom-default-quote] 4 (#$ . 29491)])
#@36 Extract cons of children's values.
(defalias 'custom-pair-extract #[(custom field) "А	!В!ДИЙ!€ѓ/ КЛ@@\"\"AA‰„ ИМ!€@A@+BC‡" [custom-field-value field custom-data custom nil result data values custom-assert (eq (length values) (length data)) append custom-field-extract (null data)] 6 (#$ . 29713)])
#@36 Quote CUSTOM's VALUE if necessary.
(defalias 'custom-list-quote #[(custom value) "А	\n\"ѓ Г	\n\"@Е\f)BC‡Ж	\n\"‡" [custom-eval custom value custom-group-quote v list custom-default-quote] 3 (#$ . 30042)])
#@36 Extract list of children's values.
(defalias 'custom-list-extract #[(custom field) "А	!В!ДИЙ!€ѓ/ КЛ@@\"\"AA‰„ ИМ!€+C‡" [custom-field-value field custom-data custom nil result data values custom-assert (eq (length values) (length data)) append custom-field-extract (null data)] 6 (#$ . 30254)])
#@20 Validate children.
(defalias 'custom-group-validate #[(custom field) "А	!В!Д‰=ѓ Й	!КB‚  ЛМ!€ѓ@ „@ Н@@\"AA‰„% +‡" [custom-field-value field custom-data custom nil result data values custom-nil custom-field-start "Uninitialized list" custom-assert (eq (length values) (length data)) custom-field-validate] 4 (#$ . 30578)])
#@50 Non-nil if CUSTOM's VALUE needs to be evaluated.
(defalias 'custom-group-eval #[(custom value) "АВГД!\"€	)‡" [nil found mapcar #[(c) ";† Б\n\"Д@\"ѓ ЕA‰)‡" [c custom-match value match custom-eval t found] 3] custom-data custom] 4 (#$ . 30932)])
#@43 A list of CUSTOM's VALUE members, quoted.
(defalias 'custom-group-quote #[(custom value) "АБВГД!\"\"C‡" [apply append mapcar #[(c) ";?… Б\n\"Д@\"A)‡" [c custom-match value match custom-quote] 3] custom-data custom] 6 (#$ . 31195)])
#@55 Modify CUSTOM's VALUE to match internal expectations.
(defalias 'custom-group-import #[(custom value) "АБВГД!\"\"C‡" [apply append mapcar #[(c) ";?… Б\n\"Д@\"A)‡" [c custom-match value match custom-import] 3] custom-data custom] 6 (#$ . 31442)])
#@51 Initialize `doc' and `default' entries in CUSTOM.
(defalias 'custom-group-initialize #[(custom) "А	!ѓ\n В	!‡ГДЕ	!\"‡" [custom-name custom custom-default-initialize mapcar custom-initialize custom-data] 4 (#$ . 31703)])
#@39 Reset `value' in FIELD to `original'.
(defalias 'custom-group-apply #[(field) "А	!В	!Е\f!ѓ Ж	!‚ ЗИ\"*‡" [custom-field-custom field custom-field-value values custom custom-name custom-default-apply mapcar custom-field-apply] 3 (#$ . 31928)])
#@39 Reset `value' in FIELD to `original'.
(defalias 'custom-group-reset #[(field) "А	!В	!Е\f!ѓ Ж	!‚ ЗИ\"*‡" [custom-field-custom field custom-field-value values custom custom-name custom-default-reset mapcar custom-field-reset] 3 (#$ . 32180)])
#@38 Reset `value' in FIELD to `default'.
(defalias 'custom-group-factory-reset #[(field) "А	!В	!Е\f!ѓ Ж	!‚ ЗИ\"*‡" [custom-field-custom field custom-field-value values custom custom-name custom-default-factory-reset mapcar custom-field-factory-reset] 3 (#$ . 32432)])
#@38 Find child in CUSTOM with `tag' TAG.
(defalias 'custom-group-find #[(custom tag) "А	!В?…& ЕД!€Ж\f@!љѓ  \f@‰‚ \fA‚ *‡" [custom-data custom nil result data custom-assert custom-tag tag] 3 (#$ . 32707)])
#@59 Store a new value into field FIELD, taking it from VALUE.
(defalias 'custom-group-accept #[(field value &optional original) "А	!Г	!Е	!З\f!Й\nѓ, Л‰М\f!G\\Н	\"$€ѓ7 Р	\"€\n…e \n@\n\nA\nѓ7 Г\n!С\f\"‰AУ\n@#€*‚7 -‡" [custom-field-value field values custom-field-custom custom custom-field-start from custom-face-tag face-tag nil current custom-put-text-property custom-tag face value original custom-field-original-set custom-match match custom-field-accept] 8 (#$ . 32923)])
#@67 Insert field for CUSTOM at nesting LEVEL in customization buffer.
(defalias 'custom-group-insert #[(custom level) "А	В\"ВВ`З	!Й	!\nЛ	!‰\fѓ' Н\n!€‚2 \nѓ2 О\n\"€„; П	!€„D НР!€С	!ѓЌ У@…Z T\"\fB@;†k Х@Е\"A‰ѓI Нѓ~ Ц‚€ ѓ‡ Ч‚€ Р!€‚I )ѓ— П	!€Ш\fџ\"€Щ`#€.‡" [custom-field-create custom nil field fields hidden from custom-compact compact custom-tag tag custom-face-tag face-tag custom-text-insert custom-tag-insert custom-documentation-insert "\n" custom-data data custom-insert level custom-property "" " " custom-field-value-set custom-field-move] 5 (#$ . 33434)])
#@67 Insert field for CUSTOM at nesting LEVEL in customization buffer.
(defalias 'custom-choice-insert #[(custom level) "А	В\"`ЕЖ!€З\f`#€И	!€Й!€*‡" [custom-field-create custom nil field from custom-text-insert "lars er en nisse" custom-field-move custom-documentation-insert custom-field-reset] 4 (#$ . 34046)])
#@59 Store a new value into field FIELD, taking it from VALUE.
(defalias 'custom-choice-accept #[(field value &optional original) "А	!В	!Г	!ДЕ‰‰	\n\fѓ0 О	\"Р	\"€‚H Т	!љѓC О	\"‚H УП	\"€ФХ	!!€\n|€b€`ЦЧ!€ШЩ!€Ъ``TЫ#€ЬЭ\f!	\"€ЮЯ!€а\f!Е‰!\"‰#ѓ­ \"„­ д#@\"„ћ #A‰#‚ѓ е#@Е\"\"Е‰#„† \"„М `!еж\fз\"Е\"\"и!`)Дк+F#€„Щ Р\"Т	!\"€м\"#€н	\"\"€о	\n#.\n‡" [custom-field-custom field custom-field-start custom-field-end t nil from after-change-functions before-change-functions inhibit-read-only end start custom original delq custom-modified-list custom-field-original-set value custom-field-original add-to-list custom-field-untouch custom-field-value insert-before-markers " " backward-char 1 custom-category-set custom-hidden-properties custom-tag-insert custom-tag custom-text-insert ": " custom-data begin found data custom-valid custom-insert custom-property none custom-add-text-properties rear-nonsticky face custom-field-uninitialized-face custom-field-accept custom-field-value-set custom-field-move] 8 (#$ . 34364)])
#@24 Extract child's value.
(defalias 'custom-choice-extract #[(custom field) "А	!ГД\n!\n\")‡" [custom-field-value field value custom-field-extract custom-field-custom] 3 (#$ . 35439)])
#@25 Validate child's value.
(defalias 'custom-choice-validate #[(custom field) "А	!В	!‰=„ В\f!ЖЗ\"=ѓ! И	!ЙB‚' КВ\f!\f\"*‡" [custom-field-value field custom-field-custom custom value custom-nil custom-property none custom-field-start "Make a choice" custom-field-validate] 5 (#$ . 35627)])
#@17 Choose a child.
(defalias 'custom-choice-query #[(field) "А	!АГ	!!Е\f!Е\n!И\n!	КК\f	GН=ѓA О	П	@\f=ѓ9 	A@‚< 	@!\"‚П 	ѓ_ 	@	A	Е!B\fB\f‚A РС!ѓ… РТ!ѓ… С!ѓ… ФХЦ\f!#@\f\"A‚Б <ѓ› ЧШЦ\f!BD\"‚Б ЩЪЫR\fКЬ$‰ѓµ Шѓ№ Ф\f\"A)‰…О О	П!\").‡" [custom-field-custom field custom custom-field-value old custom-prompt default tag custom-data data nil current alist 2 custom-field-accept custom-default fboundp button-press-event-p popup-menu last-input-event assoc custom-x-really-popup-menu reverse x-popup-menu "" completing-read " (default " "): " t choice answer] 7 (#$ . 35923)])
#@24 Prompt for a file name
(defalias 'custom-file-query #[(field) "А	!Г	!Е\f\n\"З\fИ\"?… З\fЙ\"\nЛ\f!\f\nѓ4 \fН\nОR‚8 \fПPС	Е\f\n\"ѓZ ТУ\n!ѓP Ф‚R \nХ\n%‚b Т\n#\".‡" [custom-field-value field value custom-field-custom custom custom-valid valid custom-property directory default-file default custom-tag tag " (" "): " ": " prompt custom-field-accept read-file-name file-name-absolute-p "" nil] 8 (#$ . 36554)])
#@57 Return non-nil if CUSTOM's VALUE needs to be evaluated.
(defalias 'custom-face-eval #[(custom value) "9?‡" [value] 1 (#$ . 36993)])
#@55 Modify CUSTOM's VALUE to match internal expectations.
(defalias 'custom-face-import #[(custom value) "А	!ѓ ВГ	!!† В	!ЕЖ\f\"ѓ= ЗИЙ\f\"ИК\f\"ИЛ\f\"МИН\f\"!МИО\f\"!МИП\f\"!Ї‚> 	)C‡" [facep value symbol-name face-name name string-match "custom-face-\\(.*\\)-\\(.*\\)-\\(.*\\)-\\(.*\\)-\\(.*\\)-\\(.*\\)" custom-face-lookup match-string 1 2 3 intern 4 5 6] 10 (#$ . 37132)])
#@52 Lookup or create a face with specified attributes.
(defalias 'custom-face-lookup #[(&optional fg bg stipple bold italic underline) "АБВ† Д† Д† Д	&!\nЛ\n!ѓ+ МН!„ў ОП\n\"€ѓ@ Д„@ РСТЏ€ѓO Д„O РУФЏ€ѓo Д„o Х=„o МЦ!ѓo Ц\n\"€ѓЂ Х=„Ђ РЧШЏ€ѓ‘ Х=„‘ РЩЪЏ€	ѓў 	Х=„ў РЫЬЏ€\n)‡" [intern format "custom-face-%s-%s-%s-%S-%S-%S" fg "default" bg stipple bold italic underline name custom-facep fboundp make-face copy-face default nil (set-face-foreground name fg) ((error)) (set-face-background name bg) ((error)) custom:asis set-face-stipple (make-face-bold name) ((error)) (make-face-italic name) ((error)) (set-face-underline-p name t) ((error))] 9 (#$ . 37512)])
#@67 Face that should be used for highlighting FIELD containing VALUE.
(defalias 'custom-face-hack #[(field value) "А	!Г\nД\"\n\"З@A\"Й!…  +‡" [custom-field-custom field custom custom-property export value form apply face custom-facep] 3 (#$ . 38209)])
#@67 Insert field for CUSTOM at nesting LEVEL in customization buffer.
(defalias 'custom-const-insert #[(custom level) "А	\n\"Д!`ЗИ	!!€Й`Е\nЛF#€М	!€Н`#€+‡" [custom-field-create custom custom-nil field custom-field-face face from custom-text-insert custom-tag custom-add-text-properties rear-nonsticky t custom-documentation-insert custom-field-move] 7 (#$ . 38477)])
#@23 Update face of FIELD.
(defalias 'custom-const-update #[(field) "А	!В	!Е\f‰Ж!G\\ЗИ	!$*‡" [custom-field-start field custom-field-custom custom from custom-put-text-property custom-tag face custom-field-face] 6 (#$ . 38858)])
#@53 Non-nil if CUSTOM can validly have the value VALUE.
(defalias 'custom-const-valid #[(custom value) "А	!\nљ‡" [custom-default custom value] 2 (#$ . 39090)])
#@24 Face used for a FIELD.
(defalias 'custom-const-face #[(field) "АБ\n!!‡" [custom-default custom-field-custom field] 3 (#$ . 39252)])
#@29 Read from CUSTOM an STRING.
(defalias 'custom-sexp-read #[(custom string) "А ВЋЉГД!q€Е €c€eb€Зp!ИЙКЛ\f!!!НP!„+ ОП!€+‡" [match-data match-data ((store-match-data match-data)) get-buffer-create " *Custom Scratch*" erase-buffer string read looking-at regexp-quote char-to-string custom-padding custom "*\\'" error "Junk at end of expression"] 6 (#$ . 39390)])
(autoload (quote pp-to-string) "pp")
#@30 Write CUSTOM SEXP as string.
(defalias 'custom-sexp-write #[(custom sexp) "А	!‰GГ\f!Xѓ \n‚! Е	!ЖЗ\n\"€И\nЙ‰”OP)‡" [prin1-to-string sexp string custom-width custom pp-to-string string-match "[ 	\n]*\\'" "\n" 0] 5 (#$ . 39794)])
#@54 Read string by ignoring trailing padding characters.
(defalias 'custom-string-read #[(custom string) "GБ\n!‰ЕVѓ \fSH=ѓ \fS‰‚ Е\fO*‡" [string custom-padding custom padding last 0] 4 (#$ . 40030)])
#@19 Write raw string.
(defalias 'custom-string-write #[(custom string) "‡" [string] 1 (#$ . 40242)])
#@67 Insert field for CUSTOM at nesting LEVEL in customization buffer.
(defalias 'custom-button-insert #[(custom level) "АБВ!ДQЕЖ\"\"€З!€И‡" [custom-tag-insert "[" custom-tag custom "]" custom-property query custom-documentation-insert nil] 5 (#$ . 40346)])
(defalias 'custom-default-export #[(custom value) "А	\n\"ѓ ГД	\n\"@!‡\n‡" [custom-eval custom value eval custom-quote] 4])
#@36 Quote CUSTOM's VALUE if necessary.
(defalias 'custom-default-quote #[(custom value) "А	\n\"„, \n9ѓ \nѓ \nГ=ѓ& \n<ѓ, \nѓ, \n@Д>„, Е\nD‚- \nC‡" [custom-eval custom value t (quote function lambda) quote] 3 (#$ . 40732)])
#@51 Initialize `doc' and `default' entries in CUSTOM.
(defalias 'custom-default-initialize #[(custom) "А	!‰…[ Г	!Д	!Е\nЖЗ#	\n	ѓ- „9 Л\nЖ	#€‚9 ѓ9 М	Й#€\n=ѓP О\n!…Z М	К\nJ#‚Z О\n!†Z \n\nL+)‡" [custom-name custom name custom-default custom-documentation documentation-property variable-documentation t vdoc doc default put custom-property-set custom-nil boundp] 7 (#$ . 40958)])
#@67 Insert field for CUSTOM at nesting LEVEL in customization buffer.
(defalias 'custom-default-insert #[(custom level) "А	\n\"Г	!\fѓ Ж\f\"€ЗИ!€Й!€К	!€*‡" [custom-field-create custom custom-nil custom-tag tag field custom-tag-insert custom-text-insert ": " custom-field-insert custom-documentation-insert] 3 (#$ . 41353)])
#@59 Store a new value into field FIELD, taking it from VALUE.
(defalias 'custom-default-accept #[(field value &optional original) "ѓ	 Б\n\"€Д\n\"€Е\n!‡" [original custom-field-original-set field value custom-field-value-set custom-field-update] 3 (#$ . 41684)])
#@50 Apply any changes in FIELD since the last apply.
(defalias 'custom-default-apply #[(field) "А	!Г\n!‰„ ЕЖ!€З\fИ\f!\"€Й	!*‡" [custom-field-custom field custom custom-name name error "This field cannot be applied alone" custom-external-set custom-name-value custom-field-reset] 5 (#$ . 41951)])
#@47 Reset content of editing FIELD to `original'.
(defalias 'custom-default-reset #[(field) "А	В	!Г#‡" [custom-field-accept field custom-field-original t] 4 (#$ . 42252)])
#@46 Reset content of editing FIELD to `default'.
(defalias 'custom-default-factory-reset #[(field) "А	!Г\nД\n!\"@‰=† З	И#*‡" [custom-field-custom field custom custom-import custom-default default custom-nil custom-field-accept nil] 5 (#$ . 42426)])
#@20 Prompt for a FIELD
(defalias 'custom-default-query #[(field) "А	!Г	!Е\n\f\"З\n!ИP	К	Л\nМ\n\f\"ѓ+ Н	ОB\"‚/ Н	!\"\",‡" [custom-field-custom field custom custom-field-value value custom-write initial custom-prompt ": " prompt custom-field-accept custom-read custom-valid read-string 1] 8 (#$ . 42683)])
#@27 Match CUSTOM with VALUES.
(defalias 'custom-default-match #[(custom values) "‡" [values] 1 (#$ . 42998)])
#@36 Extract CUSTOM's content in FIELD.
(defalias 'custom-default-extract #[(custom field) "А	!C‡" [custom-field-value field] 2 (#$ . 43111)])
#@17 Validate FIELD.
(defalias 'custom-default-validate #[(custom field) "А	!В	!‰=ѓ ЖB‚6 \f:ѓ' \f@=ѓ' ИB‚6 Й\n\f\"ѓ3 Л‚6 МB*‡" [custom-field-value field custom-field-start start value custom-nil "Uninitialized field" custom-invalid "Unparsable field content" custom-valid custom nil "Wrong type of field content"] 4 (#$ . 43255)])
#@24 Face used for a FIELD.
(defalias 'custom-default-face #[(field) "А	!‰=ѓ \f‚+ ЕЖ	!\n\"„ ‚+ И	!\nљ„) 	‚+ \n)‡" [custom-field-value field value custom-nil custom-field-uninitialized-face custom-valid custom-field-custom custom-field-invalid-face custom-field-original custom-field-modified-face custom-field-face] 4 (#$ . 43597)])
#@30 Update the content of FIELD.
(defalias 'custom-default-update #[(field) "АБ‰В!Д!`	\nЛ!М!љѓ) Н\"‚6 >„6 Bb€ПР!€S|€b€С!€b€ТУ!€b€X…i X…i Ф!.‡" [t nil custom-field-start field custom-field-end pos end start after-change-functions before-change-functions inhibit-point-motion-hooks custom-field-value custom-field-original delq custom-modified-list insert-before-markers " " custom-field-insert delete-char 1 custom-field-enter] 6 (#$ . 43939)])
#@107 Customize GNU Emacs.
Create a *Customize* buffer with editable customization information
about GNU Emacs.
(defalias 'customize #[nil "АБ!€В ‡" [custom-buffer-create "*Customize*" custom-reset-all] 2 (#$ . 44432) nil])
#@410 Create a customization buffer named NAME.
If the optional argument CUSTOM is non-nil, use that as the custom declaration.
If the optional argument TYPES is non-nil, use that as the local types.
If the optional argument SET is non-nil, use that to set external data.
If the optional argument GET is non-nil, use that to get external data.
If the optional argument SAVE is non-nil, use that for saving changes.
(defalias 'custom-buffer-create #[(name &optional custom types set get save) "А	!€Вp!€Г €\fѓ ЗИ!€	ѓ' ЗК!€	\nѓ4 ЗМ!€\fѓA ЗО!€ПР‰Ф €Хc€eb€ЦЧ!€ШХ!€ЩЪ!€ЩЫ!€ЩЬ!€ЩЭ!€ЩЮ!€ЩЯ!€Ща!€Щб!€Шв!€ЦХ!€гд\"€eb+‡" [switch-to-buffer name buffer-disable-undo custom-mode types custom-local-type-properties custom make-local-variable custom-data set custom-external-set get custom-external save custom-save t nil after-change-functions before-change-functions inhibit-point-motion-hooks erase-buffer "\n" custom-text-insert "This is a customization buffer.\n" custom-help-insert custom-help-button custom-forward-field custom-backward-field custom-enter-value custom-field-factory-reset custom-field-reset custom-field-apply custom-save-and-exit custom-toggle-documentation "\nClick mouse-2 on any button to activate it.\n" custom-insert 0] 3 (#$ . 44657)])
#@68 Insert custom declaration CUSTOM in current buffer at level LEVEL.
(defalias 'custom-insert #[(custom level) ";ѓ Б!€В‡ѓ ДЕ\"„ Вѓ, ЖVѓ, БЗИЙ\"КQ!€ДЛ\"\"\fНО!\f\"€\f)‡" [custom custom-text-insert nil level custom-property header 0 "\n" make-string 42 " " insert field custom-name-enter custom-name] 5 (#$ . 45938)])
#@32 Insert TEXT in current buffer.
(defalias 'custom-text-insert #[(text) "c‡" [text] 1 (#$ . 46276)])
#@41 Insert TAG for FIELD in current buffer.
(defalias 'custom-tag-insert #[(tag field &optional data) "`	c€В`Г#€Д`Е$€…  И`ЙD#)‡" [from tag custom-category-set custom-button-properties custom-put-text-property custom-tag field data custom-add-text-properties custom-data] 5 (#$ . 46382)])
#@53 Insert documentation from CUSTOM in current buffer.
(defalias 'custom-documentation-insert #[(custom &rest ignore) "А	!‰…\f ГД\n\")‡" [custom-documentation custom doc custom-help-insert "\n"] 4 (#$ . 46682)])
#@36 Insert ARGS as documentation text.
(defalias 'custom-help-insert #[(&rest args) "`БВ\"€Д`Е#)‡" [from apply insert args custom-category-set custom-documentation-properties] 4 (#$ . 46898)])
#@34 Describe how to execute COMMAND.
(defalias 'custom-help-button #[(command) "`БВГ\fЕЖ#!З±€И`Й\n\fНЖО\fПЖРЖЇ\f#€С`Т#€)УФХЦ\f!!Ч#‡" [from "`" key-description where-is-internal command nil t "'" custom-set-text-properties face custom-button-face mouse-face custom-mouse-face custom-jump custom-tag start-open end-open custom-category-set custom-documentation-properties custom-help-insert ": " custom-first-line documentation "\n"] 15 (#$ . 47096)])
#@25 Keymap for Custom Mode.
(defvar custom-mode-map nil (#$ . 47556))
(byte-code "„` Б ВГД\"ѓ Ж‚ ЗИ#€ВЙК#€ВЛМ#€ВНО#€ВПР#€ВСТ#€ВУФ#€ВХЦ#€ВЧШ#€ВЩЪ#€ВЫЬ#€ВЭЮ#€ВЯа#€Б‡" [custom-mode-map make-sparse-keymap define-key string-match "XEmacs" emacs-version [button2] [mouse-2] custom-push-button "	" custom-forward-field "‰" custom-backward-field "" custom-enter-value "" custom-kill-line "" custom-field-reset "’" custom-reset-all "" custom-field-factory-reset "љ" custom-factory-reset-all "" custom-field-apply "Ѓ" custom-apply-all "" custom-save-and-exit "" custom-toggle-documentation] 5)
#@58 Major mode for doing customizations.

\{custom-mode-map}
(defalias 'custom-mode #[nil "А €БГЕ!€ЗИ!€ЙЗК!€Л\nМН!„% ОПР\"‡НП!€ОПСТУ$‡" [kill-all-local-variables custom-mode major-mode "Custom" mode-name use-local-map custom-mode-map make-local-variable before-change-functions (custom-before-change) after-change-functions (custom-after-change) fboundp make-local-hook add-hook post-command-hook #[nil "Б=… В ‡" [major-mode custom-mode custom-post-command] 2] custom-post-command nil t] 5 (#$ . 48175)])
#@90 Move point to the next field or button.
With optional ARG, move across that many fields.
(defalias 'custom-forward-field #[(arg) "БVѓ? В`Г\"ѓ Д`Г\"‚ `ДГ\"†! ДeГ\"‰ѓ, b€‚0 ЖЗ!€)В`И\"„  S‰‚ БW…„ В`SГ\"ѓT Й`Г\"‚U `\nЙ\nГ\"†c ЙdГ\"‰\nѓp \nb€‚t ЖЗ!€)В`SИ\"„? T‰‚@ ‡" [arg 0 get-text-property custom-tag next-single-property-change next error "No customization fields in this buffer." custom-jump previous-single-property-change previous] 4 (#$ . 48691) "p"])
#@94 Move point to the previous field or button.
With optional ARG, move across that many fields.
(defalias 'custom-backward-field #[(arg) "А	[!‡" [custom-forward-field arg] 2 (#$ . 49168) "p"])
#@116 Toggle display of documentation text.
If the optional argument is non-nil, show text iff the argument is positive.
(defalias 'custom-toggle-documentation #[(&optional arg) "„\f БВГ\"?† Д!ЕXЗВГ#€ЗВ#€)Й ‡" [arg custom-category-get custom-documentation-properties invisible prefix-numeric-value 0 hide custom-category-put intangible redraw-display] 4 (#$ . 49365) "P"])
#@61 Enter value for current customization field or push button.
(defalias 'custom-enter-value #[(field data) "ѓ 	!‡	В=ѓ ГД!‡	9ѓ! Е	!ѓ! Ж	!‡	ѓ) З	!‡ИЙ!‡" [data field custom-enter-value error "Don't be silly" fboundp call-interactively custom-field-query message "Nothing to enter here"] 2 (#$ . 49749) (list (get-text-property (point) (quote custom-tag)) (get-text-property (point) (quote custom-data)))])
#@58 Kill to end of field or end of line, whichever is first.
(defalias 'custom-kill-line #[nil "А`Б\"ЉВГ!)Д`Б\"‰ѓ$ Vѓ$ И`\"‚' ЙК!+‡" [get-text-property custom-field search-forward "\n" next-single-property-change next newline field kill-region call-interactively kill-line] 6 (#$ . 50160) nil])
#@38 Activate button below mouse pointer.
(defalias 'custom-push-button #[(event) "А	!Г\nД\"Г\nЖ\"Г\nИ\"‰	ѓ! 	!‚U 9ѓ5 К!ѓ5 Л!‚U ѓD ЛМО \"!‚U ѓR П	\"‚U РС!,‡" [event-point event pos get-text-property custom-field field custom-tag tag custom-data data fboundp call-interactively lookup-key global-map this-command-keys custom-enter-value error "Nothing to click on here."] 5 (#$ . 50466) "@e"])
#@54 Undo any changes since the last apply in all fields.
(defalias 'custom-reset-all #[nil "Б‰\f… \f@‰A\fAЕ\n!€‚ +‡" [custom-name-fields nil field current all custom-field-reset] 4 (#$ . 50882) (byte-code "… БВ!?… ГД!‡" [custom-modified-list y-or-n-p "Discard all changes? " error "Reset aborted"] 2)])
#@49 Undo any changes in FIELD since the last apply.
(defalias 'custom-field-reset #[(field) "А	!…; В	!Д!Љѓ Ж	ЗИ!\"@\"€ЙК	!\"„- ЛМ!‚: НО\"	!€НП\"	!+‡" [arrayp field custom-field-custom custom custom-name name custom-field-original-set custom-import custom-external custom-valid custom-field-original error "This field cannot be reset alone" custom-property reset synchronize] 6 (#$ . 51199) (list (or (get-text-property (point) (quote custom-field)) (get-text-property (point) (quote custom-tag))))])
#@42 Reset all field to their default values.
(defalias 'custom-factory-reset-all #[nil "Б… @AAД\n!€‚ *‡" [custom-name-fields nil field all custom-field-factory-reset] 2 (#$ . 51711) (byte-code "… БВ!?… ГД!‡" [custom-modified-list y-or-n-p "Discard all changes? " error "Reset aborted"] 2)])
#@35 Reset FIELD to its default value.
(defalias 'custom-field-factory-reset #[(field) "А	!… ЉВГ	!Д\"	!)‡" [arrayp field custom-property custom-field-custom factory-reset] 3 (#$ . 52017) (list (or (get-text-property (point) (quote custom-field)) (get-text-property (point) (quote custom-tag))))])
#@55 Apply any changes since the last reset in all fields.
(defalias 'custom-apply-all #[nil "А	!€\nГѓ. @AAЖЗ\f!\f\"‰ѓ* @b€ИA!€)‚ *\nГ…E @AAЙ\f!€‚3 *‡" [custom-field-parse custom-field-last custom-name-fields nil field all custom-field-validate custom-field-custom error custom-field-apply] 4 (#$ . 52316) (byte-code "?… БВ!‡" [custom-modified-list error "No changes to apply."] 2)])
#@50 Apply any changes in FIELD since the last apply.
(defalias 'custom-field-apply #[(field) "А	!€В!…% Д!Ж\"‰ѓ ЗA!€ИЙ\"!*‡" [custom-field-parse custom-field-last arrayp field custom-field-custom custom custom-field-validate error custom-property apply] 4 (#$ . 52724) (list (or (get-text-property (point) (quote custom-field)) (get-text-property (point) (quote custom-tag))))])
#@21 Hide or show entry.
(defalias 'custom-toggle-hide #[(&rest ignore) "АБ!‡" [error "This button is not yet implemented"] 2 (#$ . 53116) nil])
#@37 Save and exit customization buffer.
(defalias 'custom-save-and-exit #[nil "Љ €)Бp!‡" [custom-save kill-buffer] 2 (#$ . 53262) "@"])
#@33 Save customization information.
(defalias 'custom-save #[nil "А €	Г\f!q€eb€ЉЕЖЗЏ‰@Й=„  КЛ\f\"€\nѓx \n@A\fН\f!П\f!СТ!\"@\n@@\nAХЦ!€љѓb ЧA\"Ў€‚t ШAЩ\"@#Ў€-‚  Ъ €Ы\fЬ±€Aѓ° Э@p\"€AЮc€Я@p\"€A‰ѓ† аc€‚† бc€в €гp!+‡" [custom-apply-all custom-name-fields new find-file-noselect custom-file nil (byte-code "Аp!‡" [read] 2) ((end-of-file (byte-code "АБВ\"‡" [append (setq custom-dummy (quote custom-dummy)) nil] 3))) old setq error "Invalid customization file: %s" field custom-field-custom custom custom-field-original value custom-import custom-default default name custom-assert (eq name (custom-name custom)) custom-plist-delq plist-put custom-quote erase-buffer ";; " " --- Automatically generated customization information.\n;; \n;; Feel free to edit by hand, but the entire content should consist of\n;; a single setq.  Any other lisp expressions will confuse the\n;; automatic configuration engine.\n\n(setq " prin1 " " pp "\n      " ")\n" save-buffer kill-buffer] 8 (#$ . 53401) nil])
#@33 Save customization information.
(defalias 'custom-load #[nil "АБВ!!€Г ‡" [load-file custom-name-value custom-file custom-reset-all] 3 (#$ . 54448) (byte-code "… БВ!Cљ?… ГД!?… ЕЖ!‡" [custom-modified-list custom-name-field custom-file y-or-n-p "Discard all changes? " error "Load aborted"] 2)])
(defalias 'custom-field-untouch #[(field) "А	\n\"Г	!…. Д	!ЖЗ	!!?†- Г!ѓ$ И!‚- <…- ЙИ\")‡" [delq field custom-modified-list arrayp custom-field-value value custom-data custom-field-custom custom-field-untouch mapcar] 3])
(defalias 'custom-field-insert #[(field) "`А	!В	!Ж\f\"c€ЗИ\f!Й\f!`ZZ\"€К	`#€Л`М	Н	ОП	!РСТСЇ\n#+‡" [custom-field-custom field custom-field-value value custom from custom-write insert-char custom-padding custom-width custom-field-move custom-set-text-properties custom-field custom-tag face custom-field-face start-open t end-open] 13])
(defalias 'custom-field-read #[(field) "АБ\n!ГД\n!Е\n!\"\"‡" [custom-read custom-field-custom field custom-buffer-substring-no-properties custom-field-start custom-field-end] 6])
(defalias 'custom-field-leave #[(field) "А‰ГД!Ж!ЗИ!$*‡" [nil after-change-functions before-change-functions custom-put-text-property custom-field-start field custom-field-end face custom-field-face] 6])
(defalias 'custom-field-enter #[(field) "А	!Г	!Е	!З!Й\nЙ\fН=„H \f\nWѓ< Sf=ѓ< S‚# `WѓG b€)П\n\fР$.‡" [custom-field-start field start custom-field-end end custom-field-custom custom custom-padding padding nil before-change-functions after-change-functions this-command self-insert-command pos custom-put-text-property face custom-field-active-face] 5])
(defalias 'custom-field-resize #[(field) "А	!Г	!Е	!`И\n!	К\n!\fZ‰\fWѓR b€НО!ѓ@ ОП\fZ	\"!€‚L РП\fZ	\"!€b‚” \fV…” \f\\Wѓq Xѓq ‚u \f\\b€`Wѓђ h	Uѓђ ТУ!€‚{ b).‡" [custom-field-custom field custom custom-field-start begin custom-field-end end pos custom-padding padding custom-width width size fboundp insert-before-markers-and-inherit make-string insert-before-markers start backward-delete-char 1] 5])
(byte-code "АБ!„ ВБBДБ!‡" [boundp custom-field-changed nil current-load-list make-variable-buffer-local] 2)
(defalias 'custom-field-parse #[(field) "	>… В	\"ГД!\"€Е!‡" [field custom-field-changed delq custom-field-value-set custom-field-read custom-field-update] 4])
(defalias 'custom-post-command #[nil "АБ!€В`!‰\f=ѓ >ѓ1 Ж!€‚1 З\f!€\fѓ' И\f!€ѓ/ Й!€К†8 !)‡" [custom-assert (eq major-mode (quote custom-mode)) custom-field-property field custom-field-last custom-field-changed custom-field-resize custom-field-parse custom-field-leave custom-field-enter set-buffer-modified-p custom-modified-list] 3])
(byte-code "АБ!„ ВБBДБ!‡" [boundp custom-field-was nil current-load-list make-variable-buffer-local] 2)
(defalias 'custom-before-change #[(begin end) "Б=„\n ВГ!‡Д!Д!‰ѓ „$ ЙК!‚7 =„2 ЙЛ!‚7 ‰\f*‡" [major-mode custom-mode message "Aargh! Why is custom-before-change called here?" custom-field-property begin end to from error "You can only modify the fields" "Changes must be limited to a single field." custom-field-was] 4])
(defalias 'custom-after-change #[(begin end length) "Б=„\n ВГ!‡\fЖЗ!€И	\nЛ$€М	!=ѓ> Н!\nVѓ6 \nП“€РС\")‚U ЖТ!€Љ	b€УФХ!Ц\"\"€Ч!))‡" [major-mode custom-mode message "Aargh! Why is custom-after-change called here?" custom-field-was field custom-assert (prog1 field (setq custom-field-was nil)) custom-put-text-property begin end custom-field custom-field-property custom-field-end field-end nil add-to-list custom-field-changed (eq begin end) custom-field-value-set custom-read custom-field-custom "" custom-field-insert] 5])
(defalias 'custom-field-property #[(pos) "А	В\"† 	e=?… А	SВ\"‡" [get-text-property pos custom-field] 3])
#@53 Assert that EXPR evaluates to non-nil at this point
(defalias 'custom-assert #[(expr) "А	!†\n ВГ	\"‡" [eval expr error "Assertion failed: %S"] 3 (#$ . 58254)])
#@53 Return the part of STRING before the first newline.
(defalias 'custom-first-line #[(string) "А	G‰\nWѓ 	HД=„ T‰‚ \n=ѓ$ 	‚( 	АO*‡" [0 string len pos 10] 4 (#$ . 58420)])
#@42 In LIST insert before OLD a NEW element.
(defalias 'custom-insert-before #[(list old new) "„ 	C‡\n„ 	C¤‡\n@=ѓ 	B‡\nA@=„/ AГД!€‚ 	ABЎ€)‡" [list new old custom-assert (cdr list)] 3 (#$ . 58604)])
#@29 Remove padding from STRING.
(defalias 'custom-strip-padding #[(string padding) "АБ\n!!ГPЕ\f\"ѓ\" З‰”OЗ•ИOP‚ )‡" [regexp-quote char-to-string padding "+" regexp string-match string 0 nil] 4 (#$ . 58820)])
#@74 Return non-nil if PROP is a property of PLIST.  Comparison done with EQ.
(defalias 'custom-plist-memq #[(prop plist) "А\nѓ \n@=ѓ \nА‰‚ \nAA‰„ 	)‡" [nil result plist prop] 3 (#$ . 59042)])
#@48 Delete property PROP from property list PLIST.
(defalias 'custom-plist-delq #[(prop plist) "@	=ѓ AA‰‚ ‰AA\nѓ6 \n@	=ѓ, \nAAA\nЎ€‚ \n\nAA‰„ *‡" [plist prop next list] 3 (#$ . 59245)])
(byte-code "АБВ\"€ГД!€ЕДЗ#€ГИ!€ЕИЙ\n#€ЕИ\f#€ЕИЗ#€ГН!€ЕНОПР\"?#€ЕНЗ#€У!ѓL Х!€ЦЧ!‡" [custom-declare nil ((tag . "Meta Customization") (doc . "Customization of the customization support.") (type . group) (data ((type . face-doc)) ((tag . "Button Face") (default . bold) (doc . "Face used for tags in customization buffers.") (name . custom-button-face) (synchronize lambda (f) (custom-category-put (quote custom-button-properties) (quote face) custom-button-face)) (type . face)) ((tag . "Mouse Face") (default . highlight) (doc . "Face used when mouse is above a button in customization buffers.") (name . custom-mouse-face) (synchronize lambda (f) (custom-category-put (quote custom-button-properties) mouse-face custom-mouse-face)) (type . face)) ((tag . "Field Face") (default . italic) (doc . "Face used for customization fields.") (name . custom-field-face) (type . face)) ((tag . "Uninitialized Face") (default . modeline) (doc . "Face used for uninitialized customization fields.") (name . custom-field-uninitialized-face) (type . face)) ((tag . "Invalid Face") (default . highlight) (doc . "Face used for customization fields containing invalid data.") (name . custom-field-invalid-face) (type . face)) ((tag . "Modified Face") (default . bold-italic) (doc . "Face used for modified customization fields.") (name . custom-field-modified-face) (type . face)) ((tag . "Active Face") (default . underline) (doc . "Face used for customization fields while they are being edited.") (name . custom-field-active-face) (type . face)))) custom-category-create custom-documentation-properties custom-category-put rear-nonsticky t custom-button-properties face custom-button-face mouse-face custom-mouse-face custom-hidden-properties invisible string-match "XEmacs" emacs-version intangible file-readable-p custom-file load-file provide custom] 6)