emacs-pretest-bug
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Bug in customize-face


From: Jesper Harder
Subject: Bug in customize-face
Date: Mon, 29 Dec 2003 17:10:38 +0100
User-agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux)

`M-x customize-face RET bold RET' gives me this backtrace:

Debugger entered--Lisp error: (void-function nil)
  nil((group :inline t :sibling-args nil :args ((const :format "" :value 
:family) (string :tag "Font Family" :help-echo "Font family or fontset alias 
name." :value "")) :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete :parent 
(custom-face-edit :args (... ... ... ... ... ... ... ... ... ... ... ... ... 
...) :value (:weight bold) :parent (group :args ... :value ... :parent ... 
:indent 0) :indent 12) :indent 16 :children ((const :format "" :value :family 
:parent #0 :indent 16 :from #<marker (moves after insertion) at 595 in 
*Customize Face: Bold*> :to #<marker at 581 in *Customize Face: Bold*>) (string 
:tag "Font Family" :help-echo "Font family or fontset alias name." :value "" 
:parent #0 :indent 16 :sample-overlay #<overlay from 581 to 592 in *Customize 
Face: Bold*> :field-overlay ... :from #<marker (moves after insertion) at 581 
in *Customize Face: Bold*> :to #<marker at 595 in *Customize Face: Bold*>)) 
:from #<marker (moves after insertion) at 581 in *Customize Face: Bold*> :to 
#<marker at 595 in *Customize Face: Bold*>))
  widget-apply((group :inline t :sibling-args nil :args ((const :format "" 
:value :family) (string :tag "Font Family" :help-echo "Font family or fontset 
alias name." :value "")) :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete :parent 
(custom-face-edit :args (... ... ... ... ... ... ... ... ... ... ... ... ... 
...) :value (:weight bold) :parent (group :args ... :value ... :parent ... 
:indent 0) :indent 12) :indent 16 :children ((const :format "" :value :family 
:parent #0 :indent 16 :from #<marker (moves after insertion) at 595 in 
*Customize Face: Bold*> :to #<marker at 581 in *Customize Face: Bold*>) (string 
:tag "Font Family" :help-echo "Font family or fontset alias name." :value "" 
:parent #0 :indent 16 :sample-overlay #<overlay from 581 to 592 in *Customize 
Face: Bold*> :field-overlay ... :from #<marker (moves after insertion) at 581 
in *Customize Face: Bold*> :to #<marker at 595 in *Customize Face: Bold*>)) 
:from #<marker (moves after insertion) at 581 in *Customize Face: Bold*> :to 
#<marker at 595 in *Customize Face: Bold*>) :value-delete)
  widget-default-delete((group :inline t :sibling-args nil :args ((const 
:format "" :value :family) (string :tag "Font Family" :help-echo "Font family 
or fontset alias name." :value "")) :deactivate custom-face-edit-deactivate 
:activate custom-face-edit-activate :delete custom-face-edit-delete :parent 
(custom-face-edit :args (... ... ... ... ... ... ... ... ... ... ... ... ... 
...) :value (:weight bold) :parent (group :args ... :value ... :parent ... 
:indent 0) :indent 12) :indent 16 :children ((const :format "" :value :family 
:parent #0 :indent 16 :from #<marker (moves after insertion) at 595 in 
*Customize Face: Bold*> :to #<marker at 581 in *Customize Face: Bold*>) (string 
:tag "Font Family" :help-echo "Font family or fontset alias name." :value "" 
:parent #0 :indent 16 :sample-overlay #<overlay from 581 to 592 in *Customize 
Face: Bold*> :field-overlay ... :from #<marker (moves after insertion) at 581 
in *Customize Face: Bold*> :to #<marker at 595 in *Customize Face: Bold*>)) 
:from #<marker (moves after insertion) at 581 in *Customize Face: Bold*> :to 
#<marker at 595 in *Customize Face: Bold*>))
  custom-face-edit-deactivate((group :inline t :sibling-args nil :args ((const 
:format "" :value :family) (string :tag "Font Family" :help-echo "Font family 
or fontset alias name." :value "")) :deactivate custom-face-edit-deactivate 
:activate custom-face-edit-activate :delete custom-face-edit-delete :parent 
(custom-face-edit :args (... ... ... ... ... ... ... ... ... ... ... ... ... 
...) :value (:weight bold) :parent (group :args ... :value ... :parent ... 
:indent 0) :indent 12) :indent 16 :children ((const :format "" :value :family 
:parent #0 :indent 16 :from #<marker (moves after insertion) at 595 in 
*Customize Face: Bold*> :to #<marker at 581 in *Customize Face: Bold*>) (string 
:tag "Font Family" :help-echo "Font family or fontset alias name." :value "" 
:parent #0 :indent 16 :sample-overlay #<overlay from 581 to 592 in *Customize 
Face: Bold*> :field-overlay ... :from #<marker (moves after insertion) at 581 
in *Customize Face: Bold*> :to #<marker at 595 in *Customize Face: Bold*>)) 
:from #<marker (moves after insertion) at 581 in *Customize Face: Bold*> :to 
#<marker at 595 in *Customize Face: Bold*>))
  widget-apply((group :inline t :sibling-args nil :args ((const :format "" 
:value :family) (string :tag "Font Family" :help-echo "Font family or fontset 
alias name." :value "")) :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete :parent 
(custom-face-edit :args (... ... ... ... ... ... ... ... ... ... ... ... ... 
...) :value (:weight bold) :parent (group :args ... :value ... :parent ... 
:indent 0) :indent 12) :indent 16 :children ((const :format "" :value :family 
:parent #0 :indent 16 :from #<marker (moves after insertion) at 595 in 
*Customize Face: Bold*> :to #<marker at 581 in *Customize Face: Bold*>) (string 
:tag "Font Family" :help-echo "Font family or fontset alias name." :value "" 
:parent #0 :indent 16 :sample-overlay #<overlay from 581 to 592 in *Customize 
Face: Bold*> :field-overlay ... :from #<marker (moves after insertion) at 581 
in *Customize Face: Bold*> :to #<marker at 595 in *Customize Face: Bold*>)) 
:from #<marker (moves after insertion) at 581 in *Customize Face: Bold*> :to 
#<marker at 595 in *Customize Face: Bold*>) :deactivate)
  widget-checklist-add-item((custom-face-edit :args ((group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete)) :value (:weight 
bold) :parent (group :args (... ...) :value (t ...) :parent 
(custom-face-selected :args ... :value ... :parent ... :indent 0) :indent 0) 
:indent 12) (group :inline t :sibling-args nil :args ((const :format "" :value 
:family) (string :tag "Font Family" :help-echo "Font family or fontset alias 
name." :value "")) :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) nil)
  widget-checklist-value-create((custom-face-edit :args ((group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete)) :value (:weight 
bold) :parent (group :args (... ...) :value (t ...) :parent 
(custom-face-selected :args ... :value ... :parent ... :indent 0) :indent 0) 
:indent 12))
  widget-apply((custom-face-edit :args ((group :inline t :sibling-args nil 
:args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete)) :value (:weight 
bold) :parent (group :args (... ...) :value (t ...) :parent 
(custom-face-selected :args ... :value ... :parent ... :indent 0) :indent 0) 
:indent 12) :value-create)
  widget-default-create((custom-face-edit :args ((group :inline t :sibling-args 
nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete)) :value (:weight 
bold) :parent (group :args (... ...) :value (t ...) :parent 
(custom-face-selected :args ... :value ... :parent ... :indent 0) :indent 0) 
:indent 12))
  widget-apply((custom-face-edit :args ((group :inline t :sibling-args nil 
:args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete)) :value (:weight 
bold) :parent (group :args (... ...) :value (t ...) :parent 
(custom-face-selected :args ... :value ... :parent ... :indent 0) :indent 0) 
:indent 12) :create)
  widget-create-child-value((group :args ((sexp :format "" :value "nil") 
(custom-face-edit :args ...)) :value (t (:weight bold)) :parent 
(custom-face-selected :args (... ... ...) :value (...) :parent (custom-face 
:documentation-shown t :custom-state unknown :tag "Bold" :value bold 
:sample-overlay #<overlay from 447 to 451 in *Customize Face: Bold*> 
:custom-magic ... :buttons ... :comment-widget ... :custom-form selected) 
:indent 0) :indent 0) (custom-face-edit :args ((group :inline t :sibling-args 
nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete) (group :inline t 
:sibling-args nil :args ... :deactivate custom-face-edit-deactivate :activate 
custom-face-edit-activate :delete custom-face-edit-delete))) (:weight bold))
  widget-group-value-create((group :args ((sexp :format "" :value "nil") 
(custom-face-edit :args ...)) :value (t (:weight bold)) :parent 
(custom-face-selected :args (... ... ...) :value (...) :parent (custom-face 
:documentation-shown t :custom-state unknown :tag "Bold" :value bold 
:sample-overlay #<overlay from 447 to 451 in *Customize Face: Bold*> 
:custom-magic ... :buttons ... :comment-widget ... :custom-form selected) 
:indent 0) :indent 0))
  widget-apply((group :args ((sexp :format "" :value "nil") (custom-face-edit 
:args ...)) :value (t (:weight bold)) :parent (custom-face-selected :args (... 
... ...) :value (...) :parent (custom-face :documentation-shown t :custom-state 
unknown :tag "Bold" :value bold :sample-overlay #<overlay from 447 to 451 in 
*Customize Face: Bold*> :custom-magic ... :buttons ... :comment-widget ... 
:custom-form selected) :indent 0) :indent 0) :value-create)
  widget-default-create((group :args ((sexp :format "" :value "nil") 
(custom-face-edit :args ...)) :value (t (:weight bold)) :parent 
(custom-face-selected :args (... ... ...) :value (...) :parent (custom-face 
:documentation-shown t :custom-state unknown :tag "Bold" :value bold 
:sample-overlay #<overlay from 447 to 451 in *Customize Face: Bold*> 
:custom-magic ... :buttons ... :comment-widget ... :custom-form selected) 
:indent 0) :indent 0))
  widget-apply((group :args ((sexp :format "" :value "nil") (custom-face-edit 
:args ...)) :value (t (:weight bold)) :parent (custom-face-selected :args (... 
... ...) :value (...) :parent (custom-face :documentation-shown t :custom-state 
unknown :tag "Bold" :value bold :sample-overlay #<overlay from 447 to 451 in 
*Customize Face: Bold*> :custom-magic ... :buttons ... :comment-widget ... 
:custom-form selected) :indent 0) :indent 0) :create)
  widget-create-child-value((custom-face-selected :args ((repeat :format "" 
:inline t :args ...) (group :args ...) (repeat :format "" :inline t :args ...)) 
:value ((t ...)) :parent (custom-face :documentation-shown t :custom-state 
unknown :tag "Bold" :value bold :sample-overlay #<overlay from 447 to 451 in 
*Customize Face: Bold*> :custom-magic (custom-magic :args ... :parent #1 
:indent 0 :children ... :from #<marker (moves after insertion) at 477 in 
*Customize Face: Bold*> :to #<marker at 521 in *Customize Face: Bold*>) 
:buttons (... ... ... ... ...) :comment-widget (custom-comment :parent #1 
:value "" :indent 0 :from #<marker at 538 in *Customize Face: Bold*> :to 
#<marker at 538 in *Customize Face: Bold*>) :custom-form selected) :indent 0) 
(group :args ((sexp :format "" :value "nil") (custom-face-edit :args ...))) (t 
(:weight bold)))
  widget-group-value-create((custom-face-selected :args ((repeat :format "" 
:inline t :args ...) (group :args ...) (repeat :format "" :inline t :args ...)) 
:value ((t ...)) :parent (custom-face :documentation-shown t :custom-state 
unknown :tag "Bold" :value bold :sample-overlay #<overlay from 447 to 451 in 
*Customize Face: Bold*> :custom-magic (custom-magic :args ... :parent #1 
:indent 0 :children ... :from #<marker (moves after insertion) at 477 in 
*Customize Face: Bold*> :to #<marker at 521 in *Customize Face: Bold*>) 
:buttons (... ... ... ... ...) :comment-widget (custom-comment :parent #1 
:value "" :indent 0 :from #<marker at 538 in *Customize Face: Bold*> :to 
#<marker at 538 in *Customize Face: Bold*>) :custom-form selected) :indent 0))
  widget-apply((custom-face-selected :args ((repeat :format "" :inline t :args 
...) (group :args ...) (repeat :format "" :inline t :args ...)) :value ((t 
...)) :parent (custom-face :documentation-shown t :custom-state unknown :tag 
"Bold" :value bold :sample-overlay #<overlay from 447 to 451 in *Customize 
Face: Bold*> :custom-magic (custom-magic :args ... :parent #1 :indent 0 
:children ... :from #<marker (moves after insertion) at 477 in *Customize Face: 
Bold*> :to #<marker at 521 in *Customize Face: Bold*>) :buttons (... ... ... 
... ...) :comment-widget (custom-comment :parent #1 :value "" :indent 0 :from 
#<marker at 538 in *Customize Face: Bold*> :to #<marker at 538 in *Customize 
Face: Bold*>) :custom-form selected) :indent 0) :value-create)
  widget-default-create((custom-face-selected :args ((repeat :format "" :inline 
t :args ...) (group :args ...) (repeat :format "" :inline t :args ...)) :value 
((t ...)) :parent (custom-face :documentation-shown t :custom-state unknown 
:tag "Bold" :value bold :sample-overlay #<overlay from 447 to 451 in *Customize 
Face: Bold*> :custom-magic (custom-magic :args ... :parent #1 :indent 0 
:children ... :from #<marker (moves after insertion) at 477 in *Customize Face: 
Bold*> :to #<marker at 521 in *Customize Face: Bold*>) :buttons (... ... ... 
... ...) :comment-widget (custom-comment :parent #1 :value "" :indent 0 :from 
#<marker at 538 in *Customize Face: Bold*> :to #<marker at 538 in *Customize 
Face: Bold*>) :custom-form selected) :indent 0))
  widget-apply((custom-face-selected :args ((repeat :format "" :inline t :args 
...) (group :args ...) (repeat :format "" :inline t :args ...)) :value ((t 
...)) :parent (custom-face :documentation-shown t :custom-state unknown :tag 
"Bold" :value bold :sample-overlay #<overlay from 447 to 451 in *Customize 
Face: Bold*> :custom-magic (custom-magic :args ... :parent #1 :indent 0 
:children ... :from #<marker (moves after insertion) at 477 in *Customize Face: 
Bold*> :to #<marker at 521 in *Customize Face: Bold*>) :buttons (... ... ... 
... ...) :comment-widget (custom-comment :parent #1 :value "" :indent 0 :from 
#<marker at 538 in *Customize Face: Bold*> :to #<marker at 538 in *Customize 
Face: Bold*>) :custom-form selected) :indent 0) :create)
  widget-create-child-and-convert((custom-face :documentation-shown t 
:custom-state unknown :tag "Bold" :value bold :sample-overlay #<overlay from 
447 to 451 in *Customize Face: Bold*> :custom-magic (custom-magic :args (nil) 
:parent #0 :indent 0 :children (...) :from #<marker (moves after insertion) at 
477 in *Customize Face: Bold*> :to #<marker at 521 in *Customize Face: Bold*>) 
:buttons ((custom-group-link :args nil :value basic-faces :tag "Basic Faces" 
:parent #0 :indent 0 :button-overlay #<overlay from 553 to 564 in *Customize 
Face: Bold*> :from #<marker (moves after insertion) at 553 in *Customize Face: 
Bold*> :to #<marker at 564 in *Customize Face: Bold*>) (documentation-string 
:args nil :value "Basic bold face." :indent 0 :parent #0 :doc-overlay #<overlay 
from 521 to 537 in *Customize Face: Bold*> :buttons nil :from #<marker (moves 
after insertion) at 521 in *Customize Face: Bold*> :to #<marker at 538 in 
*Customize Face: Bold*>) (custom-magic :args ... :parent #0 :indent 0 :children 
... :from #<marker (moves after insertion) at 477 in *Customize Face: Bold*> 
:to #<marker at 521 in *Customize Face: Bold*>) (visibility :args nil :value t 
:help-echo "Hide or show this face." :on "Hide Face" :off "Show Face" :action 
custom-toggle-parent :parent #0 :indent 0 :button-overlay #<overlay from 467 to 
476 in *Customize Face: Bold*> :from #<marker (moves after insertion) at 467 in 
*Customize Face: Bold*> :to #<marker at 476 in *Customize Face: Bold*>) (item 
:format "(%{%t%})" :sample-face bold :tag "sample" :parent #0 :indent 0 
:sample-overlay #<overlay from 459 to 465 in *Customize Face: Bold*> :from 
#<marker (moves after insertion) at 458 in *Customize Face: Bold*> :to #<marker 
at 466 in *Customize Face: Bold*>)) :comment-widget (custom-comment :parent #0 
:value "" :indent 0 :from #<marker at 538 in *Customize Face: Bold*> :to 
#<marker at 538 in *Customize Face: Bold*>) :custom-form selected) 
custom-face-selected :value ((t (:weight bold))))
  custom-face-value-create((custom-face :documentation-shown t :custom-state 
unknown :tag "Bold" :value bold :sample-overlay #<overlay from 447 to 451 in 
*Customize Face: Bold*> :custom-magic (custom-magic :args (nil) :parent #0 
:indent 0 :children (...) :from #<marker (moves after insertion) at 477 in 
*Customize Face: Bold*> :to #<marker at 521 in *Customize Face: Bold*>) 
:buttons ((custom-group-link :args nil :value basic-faces :tag "Basic Faces" 
:parent #0 :indent 0 :button-overlay #<overlay from 553 to 564 in *Customize 
Face: Bold*> :from #<marker (moves after insertion) at 553 in *Customize Face: 
Bold*> :to #<marker at 564 in *Customize Face: Bold*>) (documentation-string 
:args nil :value "Basic bold face." :indent 0 :parent #0 :doc-overlay #<overlay 
from 521 to 537 in *Customize Face: Bold*> :buttons nil :from #<marker (moves 
after insertion) at 521 in *Customize Face: Bold*> :to #<marker at 538 in 
*Customize Face: Bold*>) (custom-magic :args ... :parent #0 :indent 0 :children 
... :from #<marker (moves after insertion) at 477 in *Customize Face: Bold*> 
:to #<marker at 521 in *Customize Face: Bold*>) (visibility :args nil :value t 
:help-echo "Hide or show this face." :on "Hide Face" :off "Show Face" :action 
custom-toggle-parent :parent #0 :indent 0 :button-overlay #<overlay from 467 to 
476 in *Customize Face: Bold*> :from #<marker (moves after insertion) at 467 in 
*Customize Face: Bold*> :to #<marker at 476 in *Customize Face: Bold*>) (item 
:format "(%{%t%})" :sample-face bold :tag "sample" :parent #0 :indent 0 
:sample-overlay #<overlay from 459 to 465 in *Customize Face: Bold*> :from 
#<marker (moves after insertion) at 458 in *Customize Face: Bold*> :to #<marker 
at 466 in *Customize Face: Bold*>)) :comment-widget (custom-comment :parent #0 
:value "" :indent 0 :from #<marker at 538 in *Customize Face: Bold*> :to 
#<marker at 538 in *Customize Face: Bold*>) :custom-form selected))
  widget-apply((custom-face :documentation-shown t :custom-state unknown :tag 
"Bold" :value bold :sample-overlay #<overlay from 447 to 451 in *Customize 
Face: Bold*> :custom-magic (custom-magic :args (nil) :parent #0 :indent 0 
:children (...) :from #<marker (moves after insertion) at 477 in *Customize 
Face: Bold*> :to #<marker at 521 in *Customize Face: Bold*>) :buttons 
((custom-group-link :args nil :value basic-faces :tag "Basic Faces" :parent #0 
:indent 0 :button-overlay #<overlay from 553 to 564 in *Customize Face: Bold*> 
:from #<marker (moves after insertion) at 553 in *Customize Face: Bold*> :to 
#<marker at 564 in *Customize Face: Bold*>) (documentation-string :args nil 
:value "Basic bold face." :indent 0 :parent #0 :doc-overlay #<overlay from 521 
to 537 in *Customize Face: Bold*> :buttons nil :from #<marker (moves after 
insertion) at 521 in *Customize Face: Bold*> :to #<marker at 538 in *Customize 
Face: Bold*>) (custom-magic :args ... :parent #0 :indent 0 :children ... :from 
#<marker (moves after insertion) at 477 in *Customize Face: Bold*> :to #<marker 
at 521 in *Customize Face: Bold*>) (visibility :args nil :value t :help-echo 
"Hide or show this face." :on "Hide Face" :off "Show Face" :action 
custom-toggle-parent :parent #0 :indent 0 :button-overlay #<overlay from 467 to 
476 in *Customize Face: Bold*> :from #<marker (moves after insertion) at 467 in 
*Customize Face: Bold*> :to #<marker at 476 in *Customize Face: Bold*>) (item 
:format "(%{%t%})" :sample-face bold :tag "sample" :parent #0 :indent 0 
:sample-overlay #<overlay from 459 to 465 in *Customize Face: Bold*> :from 
#<marker (moves after insertion) at 458 in *Customize Face: Bold*> :to #<marker 
at 466 in *Customize Face: Bold*>)) :comment-widget (custom-comment :parent #0 
:value "" :indent 0 :from #<marker at 538 in *Customize Face: Bold*> :to 
#<marker at 538 in *Customize Face: Bold*>) :custom-form selected) 
:value-create)
  widget-default-create((custom-face :documentation-shown t :custom-state 
unknown :tag "Bold" :value bold :sample-overlay #<overlay from 447 to 451 in 
*Customize Face: Bold*> :custom-magic (custom-magic :args (nil) :parent #0 
:indent 0 :children (...) :from #<marker (moves after insertion) at 477 in 
*Customize Face: Bold*> :to #<marker at 521 in *Customize Face: Bold*>) 
:buttons ((custom-group-link :args nil :value basic-faces :tag "Basic Faces" 
:parent #0 :indent 0 :button-overlay #<overlay from 553 to 564 in *Customize 
Face: Bold*> :from #<marker (moves after insertion) at 553 in *Customize Face: 
Bold*> :to #<marker at 564 in *Customize Face: Bold*>) (documentation-string 
:args nil :value "Basic bold face." :indent 0 :parent #0 :doc-overlay #<overlay 
from 521 to 537 in *Customize Face: Bold*> :buttons nil :from #<marker (moves 
after insertion) at 521 in *Customize Face: Bold*> :to #<marker at 538 in 
*Customize Face: Bold*>) (custom-magic :args ... :parent #0 :indent 0 :children 
... :from #<marker (moves after insertion) at 477 in *Customize Face: Bold*> 
:to #<marker at 521 in *Customize Face: Bold*>) (visibility :args nil :value t 
:help-echo "Hide or show this face." :on "Hide Face" :off "Show Face" :action 
custom-toggle-parent :parent #0 :indent 0 :button-overlay #<overlay from 467 to 
476 in *Customize Face: Bold*> :from #<marker (moves after insertion) at 467 in 
*Customize Face: Bold*> :to #<marker at 476 in *Customize Face: Bold*>) (item 
:format "(%{%t%})" :sample-face bold :tag "sample" :parent #0 :indent 0 
:sample-overlay #<overlay from 459 to 465 in *Customize Face: Bold*> :from 
#<marker (moves after insertion) at 458 in *Customize Face: Bold*> :to #<marker 
at 466 in *Customize Face: Bold*>)) :comment-widget (custom-comment :parent #0 
:value "" :indent 0 :from #<marker at 538 in *Customize Face: Bold*> :to 
#<marker at 538 in *Customize Face: Bold*>) :custom-form selected))
  widget-apply((custom-face :documentation-shown t :custom-state unknown :tag 
"Bold" :value bold :sample-overlay #<overlay from 447 to 451 in *Customize 
Face: Bold*> :custom-magic (custom-magic :args (nil) :parent #0 :indent 0 
:children (...) :from #<marker (moves after insertion) at 477 in *Customize 
Face: Bold*> :to #<marker at 521 in *Customize Face: Bold*>) :buttons 
((custom-group-link :args nil :value basic-faces :tag "Basic Faces" :parent #0 
:indent 0 :button-overlay #<overlay from 553 to 564 in *Customize Face: Bold*> 
:from #<marker (moves after insertion) at 553 in *Customize Face: Bold*> :to 
#<marker at 564 in *Customize Face: Bold*>) (documentation-string :args nil 
:value "Basic bold face." :indent 0 :parent #0 :doc-overlay #<overlay from 521 
to 537 in *Customize Face: Bold*> :buttons nil :from #<marker (moves after 
insertion) at 521 in *Customize Face: Bold*> :to #<marker at 538 in *Customize 
Face: Bold*>) (custom-magic :args ... :parent #0 :indent 0 :children ... :from 
#<marker (moves after insertion) at 477 in *Customize Face: Bold*> :to #<marker 
at 521 in *Customize Face: Bold*>) (visibility :args nil :value t :help-echo 
"Hide or show this face." :on "Hide Face" :off "Show Face" :action 
custom-toggle-parent :parent #0 :indent 0 :button-overlay #<overlay from 467 to 
476 in *Customize Face: Bold*> :from #<marker (moves after insertion) at 467 in 
*Customize Face: Bold*> :to #<marker at 476 in *Customize Face: Bold*>) (item 
:format "(%{%t%})" :sample-face bold :tag "sample" :parent #0 :indent 0 
:sample-overlay #<overlay from 459 to 465 in *Customize Face: Bold*> :from 
#<marker (moves after insertion) at 458 in *Customize Face: Bold*> :to #<marker 
at 466 in *Customize Face: Bold*>)) :comment-widget (custom-comment :parent #0 
:value "" :indent 0 :from #<marker at 538 in *Customize Face: Bold*> :to 
#<marker at 538 in *Customize Face: Bold*>) :custom-form selected) :create)
  widget-create(custom-face :documentation-shown t :custom-state unknown :tag 
"Bold" :value bold)
  (lambda (entry) (widget-create (nth 1 entry) :documentation-shown t 
:custom-state (quote unknown) :tag (custom-unlispify-tag-name ...) :value (nth 
0 entry)))((bold custom-face))
  mapcar((lambda (entry) (widget-create (nth 1 entry) :documentation-shown t 
:custom-state (quote unknown) :tag (custom-unlispify-tag-name ...) :value (nth 
0 entry))) ((bold custom-face)))
  (if (= (length options) 1) (mapcar (lambda ... ...) options) (let (... ...) 
(mapcar ... options)))
  (setq custom-options (if (= ... 1) (mapcar ... options) (let ... ...)))
  custom-buffer-create-internal(((bold custom-face)) nil)
  custom-buffer-create(((bold custom-face)) "*Customize Face: Bold*")
  customize-face((bold))
* call-interactively(customize-face)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)





In GNU Emacs 21.3.50.9 (i686-pc-linux-gnu, GTK+ Version 2.0.2)
 of 2003-12-29 on defun.localdomain
configured using `configure '--with-gtk''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.iso88591
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t





reply via email to

[Prev in Thread] Current Thread [Next in Thread]