From xemacs-m  Wed Mar  5 18:52:56 1997
Received: from corona.pixar.com (corona.pixar.com [138.72.20.84])
	by xemacs.org (8.8.5/8.8.5) with SMTP id SAA15600
	for <xemacs-beta@xemacs.org>; Wed, 5 Mar 1997 18:52:38 -0600 (CST)
Received: by corona.pixar.com (Smail3.1.29.1 #2)
	id m0w2ROS-00016WC; Wed, 5 Mar 97 16:50 PST
Sender: retnuh@pixar.com (Hunter Kelly)
Sender: retnuh@corona
To: xemacs-beta@xemacs.org
Subject: crippling custom bug.
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
From: Hunter Kelly <retnuh@corona.pixar.com>
Date: 05 Mar 1997 16:50:48 -0800
Message-ID: <yvtrahtrggn.fsf@corona.pixar.com>
Lines: 29
X-Mailer: Gnus v5.4.17/XEmacs 19.15

I removed all the font crap from my .xemacs-options, to start with
fresh, brand new fonts.

Went to the help menu, and selected custome->faces and got the
spiffy customize face buffer.

Finally figured it out after a few minutes of clicking around.

First, custom gets confused with XEmacs when dealing with
ligh vs dark backgrounds.

My main complaint, though, is that after a couple of hours playing
with faces, I get this when I click the save button:

 nil(nil)
  apply(nil nil nil)
  widget-apply(nil :value-get)
  widget-value(nil)
  custom-face-save((custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic ... :buttons ... :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1") :args (nil)) :buttons ((item :to #<marker at 2233 in *Customization*> :from #<marker at 2207 in *Customization*> :indent 0 :parent ... :doc "Face used for group tags." :format "%d" :value nil :args nil) (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 2150 in *Customization*> :from #<marker at 2141 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face custom-group-tag-face-1 :format "(%{%t%})\n") (custom-level :to #<marker at 2115 in *Customization*> :from #<marker at 2114 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1"))
  apply(custom-face-save (custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic ... :buttons ... :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1") :args (nil)) :buttons ((item :to #<marker at 2233 in *Customization*> :from #<marker at 2207 in *Customization*> :indent 0 :parent ... :doc "Face used for group tags." :format "%d" :value nil :args nil) (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 2150 in *Customization*> :from #<marker at 2141 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face custom-group-tag-face-1 :format "(%{%t%})\n") (custom-level :to #<marker at 2115 in *Customization*> :from #<marker at 2114 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1") nil)
  widget-apply((custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic ... :buttons ... :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1") :args (nil)) :buttons ((item :to #<marker at 2233 in *Customization*> :from #<marker at 2207 in *Customization*> :indent 0 :parent ... :doc "Face used for group tags." :format "%d" :value nil :args nil) (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 2150 in *Customization*> :from #<marker at 2141 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face custom-group-tag-face-1 :format "(%{%t%})\n") (custom-level :to #<marker at 2115 in *Customization*> :from #<marker at 2114 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1") :custom-save)
  #<compiled-function (from "cus-edit.elc") (child) "...(13)" [widget-get child :custom-state (modified set) widget-apply :custom-save] 3>((custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic ... :buttons ... :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1") :args (nil)) :buttons ((item :to #<marker at 2233 in *Customization*> :from #<marker at 2207 in *Customization*> :indent 0 :parent ... :doc "Face used for group tags." :format "%d" :value nil :args nil) (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 2150 in *Customization*> :from #<marker at 2141 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face custom-group-tag-face-1 :format "(%{%t%})\n") (custom-level :to #<marker at 2115 in *Customization*> :from #<marker at 2114 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1"))
  mapcar(#<compiled-function (from "cus-edit.elc") (child) "...(13)" [widget-get child :custom-state (modified set) widget-apply :custom-save] 3> ((custom-face :to #<marker at 193 in *Customization*> :from #<marker at 101 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 176 in *Customization*> :from #<marker at 125 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value bold-italic :tag "Bold Italic") (custom-face :children (...) :custom-state saved :to #<marker at 778 in *Customization*> :from #<marker at 194 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 251 in *Customization*> :from #<marker at 214 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value default :tag "Default") (custom-face :to #<marker at 873 in *Customization*> :from #<marker at 779 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 855 in *Customization*> :from #<marker at 804 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value right-margin :tag "Right Margin") (custom-face :children (...) :custom-state saved :to #<marker at 1498 in *Customization*> :from #<marker at 874 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 952 in *Customization*> :from #<marker at 915 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value font-lock-function-name-face :tag "Font Lock Function Name Face") (custom-face :children (...) :custom-state saved :to #<marker at 2112 in *Customization*> :from #<marker at 1499 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 1568 in *Customization*> :from #<marker at 1531 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value font-lock-type-face :tag "Font Lock Type Face") (custom-face :children nil :custom-state modified :to #<marker in no buffer> :from #<marker in no buffer> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2207 in *Customization*> :from #<marker at 2150 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-group-tag-face-1 :tag "Custom Group Tag Face 1") (custom-face :to #<marker at 2325 in *Customization*> :from #<marker at 2243 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2324 in *Customization*> :from #<marker at 2273 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ...) :value custom-face-empty :tag "Custom Face Empty") (custom-face :to #<marker at 2406 in *Customization*> :from #<marker at 2326 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2405 in *Customization*> :from #<marker at 2354 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ...) :value paren-blink-off :tag "Paren Blink Off") (custom-face :to #<marker at 2512 in *Customization*> :from #<marker at 2407 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2486 in *Customization*> :from #<marker at 2435 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value gui-button-face :tag "Gui Button Face") (custom-face :children (...) :custom-state saved :to #<marker at 3140 in *Customization*> :from #<marker at 2513 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2588 in *Customization*> :from #<marker at 2551 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value font-lock-doc-string-face :tag "Font Lock Doc String Face") (custom-face :to #<marker at 3270 in *Customization*> :from #<marker at 3141 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 3224 in *Customization*> :from #<marker at 3173 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-invalid-face :tag "Custom Invalid Face") (custom-face :to #<marker at 3398 in *Customization*> :from #<marker at 3271 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 3350 in *Customization*> :from #<marker at 3299 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-set-face :tag "Custom Set Face") (custom-face :to #<marker at 3525 in *Customization*> :from #<marker at 3399 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 3470 in *Customization*> :from #<marker at 3419 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value pointer :tag "Pointer") (custom-face :children (...) :custom-state saved :to #<marker at 4141 in *Customization*> :from #<marker at 3526 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 3588 in *Customization*> :from #<marker at 3551 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value zmacs-region :tag "Zmacs Region") (custom-face :children (...) :custom-state saved :to #<marker at 4728 in *Customization*> :from #<marker at 4142 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 4211 in *Customization*> :from #<marker at 4174 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ...) :value secondary-selection :tag "Secondary Selection") (custom-face :to #<marker at 4875 in *Customization*> :from #<marker at 4729 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 4821 in *Customization*> :from #<marker at 4770 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value modeline-mousable-minor-mode :tag "Modeline Mousable Minor Mode") (custom-face :to #<marker at 4954 in *Customization*> :from #<marker at 4876 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 4944 in *Customization*> :from #<marker at 4893 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value blue :tag "Blue") (custom-face :to #<marker at 5033 in *Customization*> :from #<marker at 4955 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 5023 in *Customization*> :from #<marker at 4972 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value bold :tag "Bold") (custom-face :to #<marker at 5143 in *Customization*> :from #<marker at 5034 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 5118 in *Customization*> :from #<marker at 5067 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-face-tag-face :tag "Custom Face Tag Face") (custom-face :to #<marker at 5230 in *Customization*> :from #<marker at 5144 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 5216 in *Customization*> :from #<marker at 5165 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value modeline :tag "Modeline") (custom-face :children (...) :custom-state saved :to #<marker at 5828 in *Customization*> :from #<marker at 5231 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 5288 in *Customization*> :from #<marker at 5251 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value isearch :tag "Isearch") (custom-face :to #<marker at 5925 in *Customization*> :from #<marker at 5829 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 5904 in *Customization*> :from #<marker at 5853 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value text-cursor :tag "Text Cursor") (custom-face :children (...) :custom-state saved :to #<marker at 6540 in *Customization*> :from #<marker at 5926 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 5998 in *Customization*> :from #<marker at 5961 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value font-lock-keyword-face :tag "Font Lock Keyword Face") (custom-face :to #<marker at 6620 in *Customization*> :from #<marker at 6541 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 6619 in *Customization*> :from #<marker at 6568 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ...) :value paren-mismatch :tag "Paren Mismatch") (custom-face :to #<marker at 6742 in *Customization*> :from #<marker at 6621 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 6706 in *Customization*> :from #<marker at 6655 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-group-tag-face :tag "Custom Group Tag Face") (custom-face :to #<marker at 6855 in *Customization*> :from #<marker at 6743 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 6825 in *Customization*> :from #<marker at 6774 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value widget-button-face :tag "Widget Button Face") (custom-face :children (...) :custom-state saved :to #<marker at 7474 in *Customization*> :from #<marker at 6856 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 6930 in *Customization*> :from #<marker at 6893 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value font-lock-reference-face :tag "Font Lock Reference Face") (custom-face :children (...) :custom-state modified :to #<marker at 7956 in *Customization*> :from #<marker at 7475 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 7562 in *Customization*> :from #<marker at 7505 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value widget-field-face :tag "Widget Field Face") (custom-face :children (...) :custom-state saved :to #<marker at 8581 in *Customization*> :from #<marker at 7957 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 8035 in *Customization*> :from #<marker at 7998 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value font-lock-variable-name-face :tag "Font Lock Variable Name Face") (custom-face :to #<marker at 8731 in *Customization*> :from #<marker at 8582 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 8663 in *Customization*> :from #<marker at 8612 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-rogue-face :tag "Custom Rogue Face") (custom-face :to #<marker at 8867 in *Customization*> :from #<marker at 8732 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 8815 in *Customization*> :from #<marker at 8764 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-changed-face :tag "Custom Changed Face") (custom-face :to #<marker at 8999 in *Customization*> :from #<marker at 8868 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 8959 in *Customization*> :from #<marker at 8908 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-variable-sample-face :tag "Custom Variable Sample Face") (custom-face :to #<marker at 9133 in *Customization*> :from #<marker at 9000 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 9087 in *Customization*> :from #<marker at 9036 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value list-mode-item-selected :tag "List Mode Item Selected") (custom-face :to #<marker at 9263 in *Customization*> :from #<marker at 9134 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 9216 in *Customization*> :from #<marker at 9165 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value modeline-buffer-id :tag "Modeline Buffer Id") (custom-face :to #<marker at 9340 in *Customization*> :from #<marker at 9264 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 9331 in *Customization*> :from #<marker at 9280 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value red :tag "Red") (custom-face :to #<marker at 9423 in *Customization*> :from #<marker at 9341 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 9411 in *Customization*> :from #<marker at 9360 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value yellow :tag "Yellow") (custom-face :to #<marker at 9506 in *Customization*> :from #<marker at 9424 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 9494 in *Customization*> :from #<marker at 9443 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value italic :tag "Italic") (custom-face :children (...) :custom-state saved :to #<marker at 10092 in *Customization*> :from #<marker at 9507 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 9566 in *Customization*> :from #<marker at 9529 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value highlight :tag "Highlight") (custom-face :to #<marker at 10222 in *Customization*> :from #<marker at 10093 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 10184 in *Customization*> :from #<marker at 10133 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-variable-button-face :tag "Custom Variable Button Face") (custom-face :to #<marker at 10315 in *Customization*> :from #<marker at 10223 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 10298 in *Customization*> :from #<marker at 10247 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value left-margin :tag "Left Margin") (custom-face :children (...) :custom-state saved :to #<marker at 10889 in *Customization*> :from #<marker at 10316 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 10377 in *Customization*> :from #<marker at 10340 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ...) :value paren-match :tag "Paren Match") (custom-face :children (...) :custom-state saved :to #<marker at 11501 in *Customization*> :from #<marker at 10890 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 10962 in *Customization*> :from #<marker at 10925 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value font-lock-comment-face :tag "Font Lock Comment Face") (custom-face :children (...) :custom-state saved :to #<marker at 12111 in *Customization*> :from #<marker at 11502 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 11573 in *Customization*> :from #<marker at 11536 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value font-lock-string-face :tag "Font Lock String Face") (custom-face :to #<marker at 12235 in *Customization*> :from #<marker at 12112 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 12201 in *Customization*> :from #<marker at 12150 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value widget-documentation-face :tag "Widget Documentation Face") (custom-face :to #<marker at 12325 in *Customization*> :from #<marker at 12236 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 12309 in *Customization*> :from #<marker at 12258 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value underline :tag "Underline") (custom-face :to #<marker at 12463 in *Customization*> :from #<marker at 12326 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 12410 in *Customization*> :from #<marker at 12359 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-modified-face :tag "Custom Modified Face") (custom-face :to #<marker at 12595 in *Customization*> :from #<marker at 12464 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 12545 in *Customization*> :from #<marker at 12494 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value custom-saved-face :tag "Custom Saved Face") (custom-face :children (...) :custom-state saved :to #<marker at 13025 in *Customization*> :from #<marker at 12596 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 12663 in *Customization*> :from #<marker at 12626 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ...) :value primary-selection :tag "Primary Selection") (custom-face :to #<marker at 13151 in *Customization*> :from #<marker at 13026 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 13107 in *Customization*> :from #<marker at 13056 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value modeline-mousable :tag "Modeline Mousable") (custom-face :to #<marker at 13232 in *Customization*> :from #<marker at 13152 in *Customization*> :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 13221 in *Customization*> :from #<marker at 13170 in *Customization*> :children ... :indent 0 :parent ... :args ...) :buttons (... ... ... ...) :value green :tag "Green") ...))
  custom-save()
  #<compiled-function (from "cus-edit.elc") (widget &optional event) "...(3)" [custom-save] 1>((push-button :to #<marker at 13865 in *Customization*> :from #<marker at 13864 in *Customization*> :action #<compiled-function (from "cus-edit.elc") (widget &optional event) "...(3)" [custom-save] 1> :help-echo "Push me to make the modifications default." :tag "Save") #<buttondown-event button1>)
  apply(#<compiled-function (from "cus-edit.elc") (widget &optional event) "...(3)" [custom-save] 1> (push-button :to #<marker at 13865 in *Customization*> :from #<marker at 13864 in *Customization*> :action #<compiled-function (from "cus-edit.elc") (widget &optional event) "...(3)" [custom-save] 1> :help-echo "Push me to make the modifications default." :tag "Save") #<buttondown-event button1>)
  widget-apply((push-button :to #<marker at 13865 in *Customization*> :from #<marker at 13864 in *Customization*> :action #<compiled-function (from "cus-edit.elc") (widget &optional event) "...(3)" [custom-save] 1> :help-echo "Push me to make the modifications default." :tag "Save") :action #<buttondown-event button1>)
  widget-button1-click(#<buttondown-event button1>)
  call-interactively(widget-button1-click)

