[Bug-AUCTeX] preview-1.255; Customize preview appearance

[FHaeuslschmid]

Hello!

>Remember to cover the basics.  Including a minimal LaTeX example
>file exhibiting the problem might help.

I tried to customize the behavior of `preview-appearance' by calling `M-x
customize RETURN preview-appearance RETURN', however AUCTeX failed. The
following backtrace is output:

Debugger entered--Lisp error: (malformed-property-list (:format "" :type) 
(:type))
  plist-get((:format "" :type) :convert-widget)
  widget-convert((const :format "" :type))
  mapcar(widget-convert ((const :format "" :type) (choice :tag "Image type" 
(const xpm) (const xbm) (symbol :tag "Other")) (set :inline t :tag "Minimum 
font size" (list :inline t :tag "" ... ...)) (const :format "" :file) (string 
:tag "Filename") (set :inline t :tag "Ascent ratio" (list :inline t :tag "" ... 
...))))
  widget-types-convert-widget((list :tag "Image spec" :args ((const :format "" 
:type) (choice :tag "Image type" ... ... ...) (set :inline t :tag "Minimum font 
size" ...) (const :format "" :file) (string :tag "Filename") (set :inline t 
:tag "Ascent ratio" ...))))
  widget-convert((list :tag "Image spec" (const :format "" :type) (choice :tag 
"Image type" (const xpm) (const xbm) (symbol :tag "Other")) (set :inline t :tag 
"Minimum font size" (list :inline t :tag "" ... ...)) (const :format "" :file) 
(string :tag "Filename") (set :inline t :tag "Ascent ratio" (list :inline t 
:tag "" ... ...))))
  mapcar(widget-convert ((list :tag "Image spec" (const :format "" :type) 
(choice :tag "Image type" ... ... ...) (set :inline t :tag "Minimum font size" 
...) (const :format "" :file) (string :tag "Filename") (set :inline t :tag 
"Ascent ratio" ...))))
  widget-types-convert-widget((repeat :args ((list :tag "Image spec" ... ... 
... ... ... ...))))
  widget-convert((repeat (list :tag "Image spec" (const :format "" :type) 
(choice :tag "Image type" ... ... ...) (set :inline t :tag "Minimum font size" 
...) (const :format "" :file) (string :tag "Filename") (set :inline t :tag 
"Ascent ratio" ...))))
  custom-variable-value-create((custom-variable :custom-form edit :indent 0 
:parent (custom-group :custom-magic (custom-magic :to #<marker at 374 in 
*Customize Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in 
*Customize Group: Preview Appearance* 0x1468d04> :children ... :parent #1 
:indent 0 :args ...) :sample-extent #<extent (250, 268) 0x1e92ec4 in buffer 
*Customize Group: Preview Appearance*> :buttons (... ...) :value 
preview-appearance :tag "Preview Appearance" :custom-state unknown 
:documentation-shown t) :value preview-nonready-icon-specs :custom-level 2 
:custom-prefixes ("preview-") :tag "Nonready Icon Specs" :group (custom-group 
:custom-magic (custom-magic :to #<marker at 374 in *Customize Group: Preview 
Appearance* 0x1468cec> :from #<marker at 322 in *Customize Group: Preview 
Appearance* 0x1468d04> :children ... :parent #1 :indent 0 :args ...) 
:sample-extent #<extent (250, 268) 0x1e92ec4 in buffer *Customize Group: 
Preview Appearance*> :buttons (... ...) :value preview-appearance :tag "Preview 
Appearance" :custom-state unknown :documentation-shown t)))
  widget-apply((custom-variable :custom-form edit :indent 0 :parent 
(custom-group :custom-magic (custom-magic :to #<marker at 374 in *Customize 
Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in *Customize 
Group: Preview Appearance* 0x1468d04> :children ... :parent #1 :indent 0 :args 
...) :sample-extent #<extent (250, 268) 0x1e92ec4 in buffer *Customize Group: 
Preview Appearance*> :buttons (... ...) :value preview-appearance :tag "Preview 
Appearance" :custom-state unknown :documentation-shown t) :value 
preview-nonready-icon-specs :custom-level 2 :custom-prefixes ("preview-") :tag 
"Nonready Icon Specs" :group (custom-group :custom-magic (custom-magic :to 
#<marker at 374 in *Customize Group: Preview Appearance* 0x1468cec> :from 
#<marker at 322 in *Customize Group: Preview Appearance* 0x1468d04> :children 
... :parent #1 :indent 0 :args ...) :sample-extent #<extent (250, 268) 
0x1e92ec4 in buffer *Customize Group: Preview Appearance*> :buttons (... ...) 
:value preview-appearance :tag "Preview Appearance" :custom-state unknown 
:documentation-shown t)) :value-create)
  widget-default-create((custom-variable :custom-form edit :indent 0 :parent 
(custom-group :custom-magic (custom-magic :to #<marker at 374 in *Customize 
Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in *Customize 
Group: Preview Appearance* 0x1468d04> :children ... :parent #1 :indent 0 :args 
...) :sample-extent #<extent (250, 268) 0x1e92ec4 in buffer *Customize Group: 
Preview Appearance*> :buttons (... ...) :value preview-appearance :tag "Preview 
Appearance" :custom-state unknown :documentation-shown t) :value 
preview-nonready-icon-specs :custom-level 2 :custom-prefixes ("preview-") :tag 
"Nonready Icon Specs" :group (custom-group :custom-magic (custom-magic :to 
#<marker at 374 in *Customize Group: Preview Appearance* 0x1468cec> :from 
#<marker at 322 in *Customize Group: Preview Appearance* 0x1468d04> :children 
... :parent #1 :indent 0 :args ...) :sample-extent #<extent (250, 268) 
0x1e92ec4 in buffer *Customize Group: Preview Appearance*> :buttons (... ...) 
:value preview-appearance :tag "Preview Appearance" :custom-state unknown 
:documentation-shown t)))
  widget-apply((custom-variable :custom-form edit :indent 0 :parent 
(custom-group :custom-magic (custom-magic :to #<marker at 374 in *Customize 
Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in *Customize 
Group: Preview Appearance* 0x1468d04> :children ... :parent #1 :indent 0 :args 
...) :sample-extent #<extent (250, 268) 0x1e92ec4 in buffer *Customize Group: 
Preview Appearance*> :buttons (... ...) :value preview-appearance :tag "Preview 
Appearance" :custom-state unknown :documentation-shown t) :value 
preview-nonready-icon-specs :custom-level 2 :custom-prefixes ("preview-") :tag 
"Nonready Icon Specs" :group (custom-group :custom-magic (custom-magic :to 
#<marker at 374 in *Customize Group: Preview Appearance* 0x1468cec> :from 
#<marker at 322 in *Customize Group: Preview Appearance* 0x1468d04> :children 
... :parent #1 :indent 0 :args ...) :sample-extent #<extent (250, 268) 
0x1e92ec4 in buffer *Customize Group: Preview Appearance*> :buttons (... ...) 
:value preview-appearance :tag "Preview Appearance" :custom-state unknown 
:documentation-shown t)) :create)
  widget-create-child-and-convert((custom-group :custom-magic (custom-magic :to 
#<marker at 374 in *Customize Group: Preview Appearance* 0x1468cec> :from 
#<marker at 322 in *Customize Group: Preview Appearance* 0x1468d04> :children 
(...) :parent #0 :indent 0 :args (nil)) :sample-extent #<extent (250, 268) 
0x1e92ec4 in buffer *Customize Group: Preview Appearance*> :buttons 
((documentation-string :to #<marker at 400 in *Customize Group: Preview 
Appearance* 0x2192614> :from #<marker at 374 in *Customize Group: Preview 
Appearance* 0x219262c> :buttons nil :doc-extent #<extent (374, 399) widget-doc 
0x217fc34 in buffer *Customize Group: Preview Appearance*> :parent #0 :indent 0 
:value "Preview image appearance." :args nil) (custom-magic :to #<marker at 374 
in *Customize Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in 
*Customize Group: Preview Appearance* 0x1468d04> :children ... :parent #0 
:indent 0 :args ...)) :value preview-appearance :tag "Preview Appearance" 
:custom-state unknown :documentation-shown t) custom-variable :group 
(custom-group :custom-magic (custom-magic :to #<marker at 374 in *Customize 
Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in *Customize 
Group: Preview Appearance* 0x1468d04> :children (...) :parent #0 :indent 0 
:args (nil)) :sample-extent #<extent (250, 268) 0x1e92ec4 in buffer *Customize 
Group: Preview Appearance*> :buttons ((documentation-string :to #<marker at 400 
in *Customize Group: Preview Appearance* 0x2192614> :from #<marker at 374 in 
*Customize Group: Preview Appearance* 0x219262c> :buttons nil :doc-extent 
#<extent (374, 399) widget-doc 0x217fc34 in buffer *Customize Group: Preview 
Appearance*> :parent #0 :indent 0 :value "Preview image appearance." :args nil) 
(custom-magic :to #<marker at 374 in *Customize Group: Preview Appearance* 
0x1468cec> :from #<marker at 322 in *Customize Group: Preview Appearance* 
0x1468d04> :children ... :parent #0 :indent 0 :args ...)) :value 
preview-appearance :tag "Preview Appearance" :custom-state unknown 
:documentation-shown t) :tag "Nonready Icon Specs" :custom-prefixes 
("preview-") :custom-level 2 :value preview-nonready-icon-specs)
  #<compiled-function (entry) "...(59)" [custom-prefix-list length 
custom-skip-messages widget entry count widget-insert "\n" 0 display-message 
progress format "Creating group members... %2d%%" 100.0 
widget-create-child-and-convert :group :tag custom-unlispify-tag-name 
:custom-prefixes :custom-level :value ?\n level] 
13>((preview-nonready-icon-specs custom-variable))
  mapcar(#<compiled-function (entry) "...(59)" [custom-prefix-list length 
custom-skip-messages widget entry count widget-insert "\n" 0 display-message 
progress format "Creating group members... %2d%%" 100.0 
widget-create-child-and-convert :group :tag custom-unlispify-tag-name 
:custom-prefixes :custom-level :value ?\n level] 13> ((preview-use-balloon-help 
custom-variable) (preview-query-replace-reveal custom-variable) 
(preview-nonready-icon-specs custom-variable) (preview-error-icon-specs 
custom-variable) (preview-icon-specs custom-variable) 
(preview-preserve-indentation custom-variable) (preview-scale-function 
custom-variable) (preview-default-document-pt custom-variable) 
(preview-document-pt-list custom-variable) (preview-face custom-face) 
(preview-reference-face custom-face) (preview-auto-reveal custom-variable) 
(preview-equality-transforms custom-variable)))
  custom-group-value-create((custom-group :custom-magic (custom-magic :to 
#<marker at 374 in *Customize Group: Preview Appearance* 0x1468cec> :from 
#<marker at 322 in *Customize Group: Preview Appearance* 0x1468d04> :children 
(...) :parent #0 :indent 0 :args (nil)) :sample-extent #<extent (250, 268) 
0x1e92ec4 in buffer *Customize Group: Preview Appearance*> :buttons 
((documentation-string :to #<marker at 400 in *Customize Group: Preview 
Appearance* 0x2192614> :from #<marker at 374 in *Customize Group: Preview 
Appearance* 0x219262c> :buttons nil :doc-extent #<extent (374, 399) widget-doc 
0x217fc34 in buffer *Customize Group: Preview Appearance*> :parent #0 :indent 0 
:value "Preview image appearance." :args nil) (custom-magic :to #<marker at 374 
in *Customize Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in 
*Customize Group: Preview Appearance* 0x1468d04> :children ... :parent #0 
:indent 0 :args ...)) :value preview-appearance :tag "Preview Appearance" 
:custom-state unknown :documentation-shown t))
  widget-apply((custom-group :custom-magic (custom-magic :to #<marker at 374 in 
*Customize Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in 
*Customize Group: Preview Appearance* 0x1468d04> :children (...) :parent #0 
:indent 0 :args (nil)) :sample-extent #<extent (250, 268) 0x1e92ec4 in buffer 
*Customize Group: Preview Appearance*> :buttons ((documentation-string :to 
#<marker at 400 in *Customize Group: Preview Appearance* 0x2192614> :from 
#<marker at 374 in *Customize Group: Preview Appearance* 0x219262c> :buttons 
nil :doc-extent #<extent (374, 399) widget-doc 0x217fc34 in buffer *Customize 
Group: Preview Appearance*> :parent #0 :indent 0 :value "Preview image 
appearance." :args nil) (custom-magic :to #<marker at 374 in *Customize Group: 
Preview Appearance* 0x1468cec> :from #<marker at 322 in *Customize Group: 
Preview Appearance* 0x1468d04> :children ... :parent #0 :indent 0 :args ...)) 
:value preview-appearance :tag "Preview Appearance" :custom-state unknown 
:documentation-shown t) :value-create)
  widget-default-create((custom-group :custom-magic (custom-magic :to #<marker 
at 374 in *Customize Group: Preview Appearance* 0x1468cec> :from #<marker at 
322 in *Customize Group: Preview Appearance* 0x1468d04> :children (...) :parent 
#0 :indent 0 :args (nil)) :sample-extent #<extent (250, 268) 0x1e92ec4 in 
buffer *Customize Group: Preview Appearance*> :buttons ((documentation-string 
:to #<marker at 400 in *Customize Group: Preview Appearance* 0x2192614> :from 
#<marker at 374 in *Customize Group: Preview Appearance* 0x219262c> :buttons 
nil :doc-extent #<extent (374, 399) widget-doc 0x217fc34 in buffer *Customize 
Group: Preview Appearance*> :parent #0 :indent 0 :value "Preview image 
appearance." :args nil) (custom-magic :to #<marker at 374 in *Customize Group: 
Preview Appearance* 0x1468cec> :from #<marker at 322 in *Customize Group: 
Preview Appearance* 0x1468d04> :children ... :parent #0 :indent 0 :args ...)) 
:value preview-appearance :tag "Preview Appearance" :custom-state unknown 
:documentation-shown t))
  widget-apply((custom-group :custom-magic (custom-magic :to #<marker at 374 in 
*Customize Group: Preview Appearance* 0x1468cec> :from #<marker at 322 in 
*Customize Group: Preview Appearance* 0x1468d04> :children (...) :parent #0 
:indent 0 :args (nil)) :sample-extent #<extent (250, 268) 0x1e92ec4 in buffer 
*Customize Group: Preview Appearance*> :buttons ((documentation-string :to 
#<marker at 400 in *Customize Group: Preview Appearance* 0x2192614> :from 
#<marker at 374 in *Customize Group: Preview Appearance* 0x219262c> :buttons 
nil :doc-extent #<extent (374, 399) widget-doc 0x217fc34 in buffer *Customize 
Group: Preview Appearance*> :parent #0 :indent 0 :value "Preview image 
appearance." :args nil) (custom-magic :to #<marker at 374 in *Customize Group: 
Preview Appearance* 0x1468cec> :from #<marker at 322 in *Customize Group: 
Preview Appearance* 0x1468d04> :children ... :parent #0 :indent 0 :args ...)) 
:value preview-appearance :tag "Preview Appearance" :custom-state unknown 
:documentation-shown t) :create)
  widget-create(custom-group :documentation-shown t :custom-state unknown :tag 
"Preview Appearance" :value preview-appearance)
  #<compiled-function (entry) "...(19)" [entry widget-create 
:documentation-shown t :custom-state unknown :tag custom-unlispify-tag-name 
:value] 10>((preview-appearance custom-group))
  mapcar(#<compiled-function (entry) "...(19)" [entry widget-create 
:documentation-shown t :custom-state unknown :tag custom-unlispify-tag-name 
:value] 10> ((preview-appearance custom-group)))
  custom-buffer-create-internal(((preview-appearance custom-group)) " for group 
Preview Appearance")
  custom-buffer-create(((preview-appearance custom-group)) "*Customize Group: 
Preview Appearance*" " for group Preview Appearance")
  #<compiled-function (group) "...(48)" [name group "" emacs intern format 
"*Customize Group: %s*" custom-unlispify-tag-name get-buffer switch-to-buffer 
custom-buffer-create custom-group " for group "] 6 
("d:\\Src\\Build\\XEmacs\\XEmacs-21.4.17\\lisp\\cus-edit.elc" . 17156) 
(custom-group-prompt "Customize group: (default emacs) ")>("preview-appearance")
  call-interactively(customize)
  command-execute(customize t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


Emacs  : XEmacs 21.4 (patch 17) "Jumbo Shrimp" [Lucid] (i586-pc-win32) of Fri 
Apr 22 2005 on PAN
Package: preview-1.255

current state:
==============

Output from running `gswin32c -h':
AFPL Ghostscript 8.50 (2004-12-10)
Copyright (C) 2004 artofcode LLC, Benicia, CA.  All rights reserved.
Usage: gs [switches] [file1.ps file2.ps ...]
Most frequently used switches: (you can use # in place of =)
 -dNOPAUSE           no pause after page   | -q       `quiet', fewer messages
 -g<width>x<height>  page size in pixels   | -r<res>  pixels/inch resolution
 -sDEVICE=<devname>  select device         | -dBATCH  exit after last file
 -sOutputFile=<file> select output file: - for stdout, |command for pipe,
                                         embed %d or %ld for page #
Input formats: PostScript PostScriptLevel1 PostScriptLevel2 PostScriptLevel3 PDF
Default output device: display
Available devices:
   bbox bit bitcmyk bitrgb bj10e bj200 bjc600 bjc800 bmp16 bmp16m bmp256
   bmp32b bmpgray bmpmono bmpsep1 bmpsep8 cdeskjet cdj550 cdjcolor cdjmono
   declj250 deskjet devicen display djet500 djet500c eps9high eps9mid epson
   epsonc epswrite ibmpro ijs jetp3852 jpeg jpeggray laserjet lbp8 lj250
   ljet2p ljet3 ljet3d ljet4 ljet4d ljetplus m8510 mswindll mswinpr2 necp6
   nullpage pbm pbmraw pcx16 pcx24b pcx256 pcxcmyk pcxgray pcxmono pdfwrite
   pgm pgmraw pgnm pgnmraw pj pjxl pjxl300 pkmraw png16 png16m png256
   pngalpha pnggray pngmono pnm pnmraw ppm ppmraw psdcmyk psdrgb psmono
   pswrite pxlcolor pxlmono r4081 spotcmyk st800 stcolor t4693d2 t4693d4
   t4693d8 tek4696 tiff12nc tiff24nc tiff32nc tiffcrle tiffg3 tiffg32d
   tiffg4 tiffgray tifflzw tiffpack tiffsep uniprint
Search path:
   . ; D:\Programme\gs\gs8.50\lib ; D:\Programme\gs\fonts ;
   D:\Programme\gs\gs8.50\Resource ; c:/gs/gs8.50/lib ;
   c:/gs/gs8.50/Resource ; c:/gs/fonts
For more information, see c:/gs/gs8.50/doc/Use.htm.
Report bugs to address@hidden, using the form in Bug-form.htm.

(setq
 AUC-TeX-version "2005-05-13"
 LaTeX-command-style '(("" "%(PDF)%(latex) %S%(PDFout)"))
 preview-image-type 'png
 preview-image-creators '((dvipng (open preview-gs-open 
preview-dvipng-process-setup) (place preview-gs-place) (close 
preview-dvipng-close))
                          (png (open preview-gs-open) (place preview-gs-place) 
(close preview-gs-close))
                          (jpeg (open preview-gs-open) (place preview-gs-place) 
(close preview-gs-close))
                          (pnm (open preview-gs-open) (place preview-gs-place) 
(close preview-gs-close))
                          (tiff (open preview-gs-open) (place preview-gs-place) 
(close preview-gs-close)))
 preview-dvipng-image-type 'png
 preview-dvipng-command "dvipng -picky -noghostscript %d -o 
\"%m/prev%%03d.png\""
 preview-pdf2dsc-command "pdf2dsc %s.pdf %m/preview.dsc"
 preview-gs-command "gswin32c"
 preview-gs-options '("-q" "-dSAFER" "-dNOPAUSE" "-DNOPLATFONTS" "-dPrinted" 
"-dTextAlphaBits=4" "-dGraphicsAlphaBits=4")
 preview-gs-image-type-alist '((png png "-sDEVICE=png16m") (dvipng png 
"-sDEVICE=png16m") (jpeg jpeg "-sDEVICE=jpeg") (pnm pbm "-sDEVICE=pnmraw")
                               (tiff tiff "-sDEVICE=tiff12nc"))
 preview-fast-conversion t
 preview-prefer-TeX-bb nil
 preview-dvips-command "dvips -Pwww -i -E %d -o %m/preview.000"
 preview-fast-dvips-command "dvips -Pwww %d -o %m/preview.ps"
 preview-scale-function 'preview-scale-from-face
 preview-LaTeX-command '("%l \"\\nonstopmode\\nofiles\\PassOptionsToPackage{" 
("," . preview-required-option-list)
                         
"}{preview}\\AtBeginDocument{\\ifx\\ifPreview\\undefined" 
preview-default-preamble "\\fi}\\input{%t}\"")
 preview-required-option-list '("active" "tightpage" "auctex")
 preview-default-option-list '("displaymath" "floats" "graphics" "textmath" 
"sections" "footnotes")
 preview-default-preamble '("\\RequirePackage[" ("," . 
preview-default-option-list) "]{preview}[2004/11/05]")
 preview-LaTeX-command-replacements nil
 preview-dump-replacements '(preview-LaTeX-command-replacements
                             ("\\`\\([^ ]+\\)\\(\\( -\\([^ 
\"]\\|\"[^\"]*\"\\)*\\)*\\)\\(.*\\)\\'" "\\1 -ini \"&\\1\" " 
preview-format-name ".ini \\5"))
 preview-undump-replacements '(("\\`\\([^ ]+\\)\\(\\( -\\([^ 
\"]\\|\"[^\"]*\"\\)*\\)*\\).*\\input{\\([^}]*\\)}.*\\'" "\\1 \"&" 
preview-format-name "\" \\5")
                               )
 preview-auto-cache-preamble 'ask
 )