From xemacs-m  Fri Apr 11 17:47:58 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA13030
	for <xemacs-beta@xemacs.org>; Fri, 11 Apr 1997 17:47:55 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id QAA14771;
	Fri, 11 Apr 1997 16:00:49 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: 20.1-b12: problem with customize-face
References: <9704110053.AA21754@deckard.primuscorp.com> 	<rjybapyl1e.fsf@zuse.dina.kvl.dk> 	<9704111759.AA23412@deckard.primuscorp.com> 	<rjafn5xwqt.fsf@zuse.dina.kvl.dk> <199704112220.PAA06593@roy>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Damon Lipparelli's message of Fri, 11 Apr 1997 15:20:33 -0700
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 11 Apr 1997 16:00:47 -0700
Message-ID: <m2afn5tba8.fsf@altair.xemacs.org>
Lines: 48
X-Mailer: Gnus v5.4.43/XEmacs 20.1(beta15)

Damon Lipparelli <lipp@primus.com> writes:

>>>>>> Per Abrahamsen <abraham@dina.kvl.dk> writes:
>> I can't reproduce it.

> Now that I've upgraded to XEmacs 20.1-b14, neither can I.

Sigh.  I can, thanks to a recipe from Karl Hegbloom.  The key is
executing in tty mode.

xemacs -q -no-site-file -nw
M-x customize-face all RET


This is a customization buffer. 
Push RET or click mouse-2 on the word _help_ for more information. 
 
<* All: (sample) 
State: unknown, you should not see this. 
[?]  
> 
 ...
format specifier %d doesn't match argument type 

Signaling: (error "format specifier %d doesn't match argument type")
  format("%d" "12pt")
  custom-face-font-size(all #<tty-frame "emacs" 0x8b1>)
  custom-face-attributes-get(all #<tty-frame "emacs" 0x8b1>)
  custom-face-value-create((custom-face :custom-magic (custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :custom-magic ... :buttons ... :value all :tag "All" :custom-state unknown) :args (nil)) :buttons ((custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 118 in *Customization*> :from #<marker at 109 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face all :format "(%{%t%})\n") (custom-level :to #<marker at 103 in *Customization*> :from #<marker at 102 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value all :tag "All" :custom-state unknown))
  apply(custom-face-value-create (custom-face :custom-magic (custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :custom-magic ... :buttons ... :value all :tag "All" :custom-state unknown) :args (nil)) :buttons ((custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 118 in *Customization*> :from #<marker at 109 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face all :format "(%{%t%})\n") (custom-level :to #<marker at 103 in *Customization*> :from #<marker at 102 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value all :tag "All" :custom-state unknown) nil)
  widget-apply((custom-face :custom-magic (custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :custom-magic ... :buttons ... :value all :tag "All" :custom-state unknown) :args (nil)) :buttons ((custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 118 in *Customization*> :from #<marker at 109 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face all :format "(%{%t%})\n") (custom-level :to #<marker at 103 in *Customization*> :from #<marker at 102 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value all :tag "All" :custom-state unknown) :value-create)
  widget-default-create((custom-face :custom-magic (custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :custom-magic ... :buttons ... :value all :tag "All" :custom-state unknown) :args (nil)) :buttons ((custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 118 in *Customization*> :from #<marker at 109 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face all :format "(%{%t%})\n") (custom-level :to #<marker at 103 in *Customization*> :from #<marker at 102 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value all :tag "All" :custom-state unknown))
  apply(widget-default-create (custom-face :custom-magic (custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :custom-magic ... :buttons ... :value all :tag "All" :custom-state unknown) :args (nil)) :buttons ((custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 118 in *Customization*> :from #<marker at 109 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face all :format "(%{%t%})\n") (custom-level :to #<marker at 103 in *Customization*> :from #<marker at 102 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value all :tag "All" :custom-state unknown) nil)
  widget-apply((custom-face :custom-magic (custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children (... ...) :indent 0 :parent (custom-face :custom-magic ... :buttons ... :value all :tag "All" :custom-state unknown) :args (nil)) :buttons ((custom-magic :to #<marker at 163 in *Customization*> :from #<marker at 118 in *Customization*> :children ... :indent 0 :parent ... :args ...) (item :to #<marker at 118 in *Customization*> :from #<marker at 109 in *Customization*> :indent 0 :parent ... :tag "sample" :sample-face all :format "(%{%t%})\n") (custom-level :to #<marker at 103 in *Customization*> :from #<marker at 102 in *Customization*> :indent 0 :parent ... :value "*" :args nil)) :value all :tag "All" :custom-state unknown) :create)
  widget-create(custom-face :custom-state unknown :tag "All" :value all)
  #<compiled-function (from "cus-edit.elc") (entry) "...(24)" [widget-create entry :custom-state unknown :tag custom-unlispify-tag-name :value] 8>((all custom-face))
  mapcar(#<compiled-function (from "cus-edit.elc") (entry) "...(24)" [widget-create entry :custom-state unknown :tag custom-unlispify-tag-name :value] 8> ((all custom-face)))
  custom-buffer-create-internal(((all custom-face)))
  custom-buffer-create(((all custom-face)))
  #<compiled-function (from "cus-edit.elc") (&optional symbol) "...(99)" [symbol 0 nil found message "Looking for faces..." mapcar #<compiled-function (from "cus-edit.elc") ... "...(11)" ... 2> intern sort symbol-name face-list string< custom-buffer-create error "Should be a symbol %S" custom-face] 8 ("/usr/src/xemacs-20.0/lisp/custom/cus-edit.elc" . 10542) (list (completing-read "Customize face: (default all) " obarray ...))>("all")
  call-interactively(customize-face)
  command-execute(customize-face t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

