[Bug: 21.5-b26] Options->Font Menu raises an error

Wed May 10 09:08:54 EDT 2006

Jerry James writes:
 > > (6) (event/warning) Error during menu callback: (wrong-type-argument (devicep #<x-frame "XEmacs" 0x2a77a>))
 > 
 > It looks like this happens because x-font-menu-font-data-xft expects its
 > DOMAIN parameter to be a device, but x-font-menu-font-data passes
 > (selected-frame) if font-menu-this-frame-only-p is non-nil.  If you
 > evaluate this version of the function, does the problem go away?
 > 
 > (defun x-font-menu-font-data (face dcache)
 > [...]

thank you Jerry, i put your redefinition in the init file, and then i
did the mouse gimnastic that i described previously... sorry to say
that the problem does not go away

here are the details

(PS: has anyone a function to insert an uuencoded/base64'd version of
     a buffer?)

(1) (event/warning) Error during menu callback: (wrong-type-argument (devicep #<x-frame "XEmacs" 0x2a78b>))

Backtrace follows:

  # bind (inhibit-quit)
  fc-font-match(#<x-frame "XEmacs" 0x2a78b> #<INTERNAL OBJECT (XEmacs bug?) (fc-pattern) 0x8b29c08>)
  # bind (entry truename domain name dcache face)
  x-font-menu-font-data-xft(default [(["Balker" (nil) (0) nil] ["Bitstream Charter" ("Bold" nil) (0) nil] ["Bitstream Vera Sans" ("Bold" nil) (0) nil] ["Bitstream Vera Sans Mono" ("Bold" nil) (0) nil] ["Bitstream Vera Serif" ("Bold" nil) (0) nil] ["Century Schoolbook L" ("Bold" "Medium" nil) (0) nil] ["Charter" ("Bold" "Medium" nil) (0) nil] ["Clean" (nil) (0) nil] ["ClearlyU" (nil) (0) nil] ["ClearlyU PUA" (nil) (0) nil] ["Computer Modern" ("Bold" "Medium") (0) nil] ["Computer Modern Bright" ("Bold" "Demibold" "Medium" nil) (0) nil] ["Computer Modern Concrete" ("Medium") (0) nil] ["Courier" ("Bold" "Medium" nil) (0) nil] ["Courier 10 Pitch" ("Bold" nil) (0) nil] ["Delphine" (nil) (0) nil] ["Dingbats" (nil) (0) nil] ["Domestic Manners" (nil) (0) nil] ["Dustismo" ("Bold" nil) (0) nil] ["Dustismo Roman" ("Bold" nil) (0) nil] ["El Abogado Loco" (nil) (0) nil] ["Fixed" ("Bold" "Medium" nil) (0) nil] ["FreeMono" ("Bold" nil) (0) nil] ["FreeSans" ("Bold" nil) (0) nil] ["FreeSerif" ("Bold" nil) (0) nil] ["Helvetica" ("Bold" "Medium" nil) (0) nil] ["Hershey-Gothic-English" (nil) (0) nil] ["Hershey-Gothic-German" (nil) (0) nil] ["Hershey-Gothic-Italian" (nil) (0) nil] ["Hershey-Plain-Duplex" (nil) (0) nil] ["Hershey-Plain-Duplex-Italic" (nil) (0) nil] ["Hershey-Plain-Triplex" (nil) (0) nil] ["Hershey-Plain-Triplex-Italic" (nil) (0) nil] ["Hershey-Script-Complex" (nil) (0) nil] ["Hershey-Script-Simplex" (nil) (0) nil] ["It wasn't me" (nil) (0) nil] ["Junkyard" (nil) (0) nil] ["LMRoman10" ("Bold" "Demibold" nil) (0) nil] ["LMSans10" ("Bold" "Demibold" nil) (0) nil] ["LMTypewriter10" ("Bold" nil nil) (0) nil] ["LMTypewriterVarWd10" ("Bold" nil nil) (0) nil] ["Lucida" ("Bold" "Medium") (0) nil] ["LucidaBright" ("Medium" nil) (0) nil] ["LucidaTypewriter" ("Bold" "Medium") (0) nil] ["Marked Fool" (nil) (0) nil] ["New Century Schoolbook" ("Bold" "Medium" nil) (0) nil] ["Newspaper" (nil) (0) nil] ["Nimbus Mono L" ("Bold" nil) (0) nil] ["Nimbus Roman No9 L" ("Bold" nil) (0) nil] ["Nimbus Sans L" ("Bold" nil) (0) nil] ["Pe!
 nguin At
t
ack" (nil) (0) nil] ["Steve" (nil) (0) nil] ["Swift" (nil) (0) nil] ["Terminal" ("Bold" nil) (0) nil] ["Times" ("Bold" "Medium" nil) (0) nil] ["URW Bookman L" ("Bold" "Medium" nil) (0) nil] ["URW Chancery L" ("Medium") (0) nil] ["URW Gothic L" ("Demibold" nil) (0) nil] ["URW Palladio L" ("Bold" "Medium" nil) (0) nil] ["Utopia" ("Bold" nil) (0) nil] ["Wargames" (nil) (0) nil] ["Winks" (nil) (0) nil] ["cmex10" ("Medium") (0) nil] ["cmmi10" ("Medium") (0) nil] ["cmr10" ("Medium") (0) nil] ["cmsy10" ("Medium") (0) nil] ["flatline" (nil) (0) nil] ["msam10" ("Medium") (0) nil] ["msbm10" ("Medium") (0) nil] ["progenisis" (nil) (0) nil] ["wasy10" (nil) (0) nil]) (["Balker" (font-menu-set-font "Balker" nil nil) :style radio :active nil :selected nil] ["Bitstream Charter" (font-menu-set-font "Bitstream Charter" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans" (font-menu-set-font "Bitstream Vera Sans" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans Mono" (font-menu-set-font "Bitstream Vera Sans Mono" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Serif" (font-menu-set-font "Bitstream Vera Serif" nil nil) :style radio :active nil :selected nil] ["Century Schoolbook L" (font-menu-set-font "Century Schoolbook L" nil nil) :style radio :active nil :selected nil] ["Charter" (font-menu-set-font "Charter" nil nil) :style radio :active nil :selected nil] ["Clean" (font-menu-set-font "Clean" nil nil) :style radio :active nil :selected nil] ["ClearlyU" (font-menu-set-font "ClearlyU" nil nil) :style radio :active nil :selected nil] ["ClearlyU PUA" (font-menu-set-font "ClearlyU PUA" nil nil) :style radio :active nil :selected nil] ["Computer Modern" (font-menu-set-font "Computer Modern" nil nil) :style radio :active nil :selected nil] ["Computer Modern Bright" (font-menu-set-font "Computer Modern Bright" nil nil) :style radio :active nil :selected nil] ["Computer Modern Concrete" (font-menu-set-font "Computer Modern Concrete" nil nil) :style radio :active nil :sel!
 ected ni
l
] ["Courier" (font-menu-set-font "Courier" nil nil) :style radio :active nil :selected nil] ["Courier 10 Pitch" (font-menu-set-font "Courier 10 Pitch" nil nil) :style radio :active nil :selected nil] ["Delphine" (font-menu-set-font "Delphine" nil nil) :style radio :active nil :selected nil] ["Dingbats" (font-menu-set-font "Dingbats" nil nil) :style radio :active nil :selected nil] ["Domestic Manners" (font-menu-set-font "Domestic Manners" nil nil) :style radio :active nil :selected nil] ["Dustismo" (font-menu-set-font "Dustismo" nil nil) :style radio :active nil :selected nil] ["Dustismo Roman" (font-menu-set-font "Dustismo Roman" nil nil) :style radio :active nil :selected nil] ["El Abogado Loco" (font-menu-set-font "El Abogado Loco" nil nil) :style radio :active nil :selected nil] ["Fixed" (font-menu-set-font "Fixed" nil nil) :style radio :active nil :selected nil] ["FreeMono" (font-menu-set-font "FreeMono" nil nil) :style radio :active nil :selected nil] ["FreeSans" (font-menu-set-font "FreeSans" nil nil) :style radio :active nil :selected nil] ["FreeSerif" (font-menu-set-font "FreeSerif" nil nil) :style radio :active nil :selected nil] ["Helvetica" (font-menu-set-font "Helvetica" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-English" (font-menu-set-font "Hershey-Gothic-English" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-German" (font-menu-set-font "Hershey-Gothic-German" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-Italian" (font-menu-set-font "Hershey-Gothic-Italian" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex" (font-menu-set-font "Hershey-Plain-Duplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex-Italic" (font-menu-set-font "Hershey-Plain-Duplex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex" (font-menu-set-font "Hershey-Plain-Triplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex-Italic" (font-menu-set-font "Hershey-Plai!
 n-Triple
x
-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Complex" (font-menu-set-font "Hershey-Script-Complex" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Simplex" (font-menu-set-font "Hershey-Script-Simplex" nil nil) :style radio :active nil :selected nil] ["It wasn't me" (font-menu-set-font "It wasn't me" nil nil) :style radio :active nil :selected nil] ["Junkyard" (font-menu-set-font "Junkyard" nil nil) :style radio :active nil :selected nil] ["LMRoman10" (font-menu-set-font "LMRoman10" nil nil) :style radio :active nil :selected nil] ["LMSans10" (font-menu-set-font "LMSans10" nil nil) :style radio :active nil :selected nil] ["LMTypewriter10" (font-menu-set-font "LMTypewriter10" nil nil) :style radio :active nil :selected nil] ["LMTypewriterVarWd10" (font-menu-set-font "LMTypewriterVarWd10" nil nil) :style radio :active nil :selected nil] ["Lucida" (font-menu-set-font "Lucida" nil nil) :style radio :active nil :selected nil] ["LucidaBright" (font-menu-set-font "LucidaBright" nil nil) :style radio :active nil :selected nil] ["LucidaTypewriter" (font-menu-set-font "LucidaTypewriter" nil nil) :style radio :active nil :selected nil] ["Marked Fool" (font-menu-set-font "Marked Fool" nil nil) :style radio :active nil :selected nil] ["New Century Schoolbook" (font-menu-set-font "New Century Schoolbook" nil nil) :style radio :active nil :selected nil] ["Newspaper" (font-menu-set-font "Newspaper" nil nil) :style radio :active nil :selected nil] ["Nimbus Mono L" (font-menu-set-font "Nimbus Mono L" nil nil) :style radio :active nil :selected nil] ["Nimbus Roman No9 L" (font-menu-set-font "Nimbus Roman No9 L" nil nil) :style radio :active nil :selected nil] ["Nimbus Sans L" (font-menu-set-font "Nimbus Sans L" nil nil) :style radio :active nil :selected nil] ["Penguin Attack" (font-menu-set-font "Penguin Attack" nil nil) :style radio :active nil :selected nil] ["Steve" (font-menu-set-font "Steve" nil nil) :style radio :active nil :selected nil] ["Swift" (font-menu-set-font "S!
 wift" ni
l
 nil) :style radio :active nil :selected nil] ["Terminal" (font-menu-set-font "Terminal" nil nil) :style radio :active nil :selected nil] ["Times" (font-menu-set-font "Times" nil nil) :style radio :active nil :selected nil] ["URW Bookman L" (font-menu-set-font "URW Bookman L" nil nil) :style radio :active nil :selected nil] ["URW Chancery L" (font-menu-set-font "URW Chancery L" nil nil) :style radio :active nil :selected nil] ["URW Gothic L" (font-menu-set-font "URW Gothic L" nil nil) :style radio :active nil :selected nil] ["URW Palladio L" (font-menu-set-font "URW Palladio L" nil nil) :style radio :active nil :selected nil] ["Utopia" (font-menu-set-font "Utopia" nil nil) :style radio :active nil :selected nil] ["Wargames" (font-menu-set-font "Wargames" nil nil) :style radio :active nil :selected nil] ["Winks" (font-menu-set-font "Winks" nil nil) :style radio :active nil :selected nil] ["cmex10" (font-menu-set-font "cmex10" nil nil) :style radio :active nil :selected nil] ["cmmi10" (font-menu-set-font "cmmi10" nil nil) :style radio :active nil :selected nil] ["cmr10" (font-menu-set-font "cmr10" nil nil) :style radio :active nil :selected nil] ["cmsy10" (font-menu-set-font "cmsy10" nil nil) :style radio :active nil :selected nil] ["flatline" (font-menu-set-font "flatline" nil nil) :style radio :active nil :selected nil] ["msam10" (font-menu-set-font "msam10" nil nil) :style radio :active nil :selected nil] ["msbm10" (font-menu-set-font "msbm10" nil nil) :style radio :active nil :selected nil] ["progenisis" (font-menu-set-font "progenisis" nil nil) :style radio :active nil :selected nil] ["wasy10" (font-menu-set-font "wasy10" nil nil) :style radio :active nil :selected nil]) (["6" (font-menu-set-font nil nil 6) :style radio :active nil :selected nil] ["8" (font-menu-set-font nil nil 8) :style radio :active nil :selected nil] ["10" (font-menu-set-font nil nil 10) :style radio :active nil :selected nil] ["11" (font-menu-set-font nil nil 11) :style radio :active nil :selected nil] ["12" (font-menu-set-font n!
 il nil 1
2
):style radio :active nil :selected nil] ["13" (font-menu-set-font nil nil 13) :style radio :active nil :selected nil] ["14" (font-menu-set-font nil nil 14) :style radio :active nil :selected nil] ["15" (font-menu-set-font nil nil 15) :style radio :active nil :selected nil] ["16" (font-menu-set-font nil nil 16) :style radio :active nil :selected nil] ["17" (font-menu-set-font nil nil 17) :style radio :active nil :selected nil] ["18" (font-menu-set-font nil nil 18) :style radio :active nil :selected nil] ["20" (font-menu-set-font nil nil 20) :style radio :active nil :selected nil] ["22" (font-menu-set-font nil nil 22) :style radio :active nil :selected nil] ["24" (font-menu-set-font nil nil 24) :style radio :active nil :selected nil] ["30" (font-menu-set-font nil nil 30) :style radio :active nil :selected nil] ["36" (font-menu-set-font nil nil 36) :style radio :active nil :selected nil]) (["Light" (font-menu-set-font nil "Light" nil) :style radio :active nil :selected nil] ["Medium" (font-menu-set-font nil "Medium" nil) :style radio :active nil :selected nil] ["Demibold" (font-menu-set-font nil "Demibold" nil) :style radio :active nil :selected nil] ["Bold" (font-menu-set-font nil "Bold" nil) :style radio :active nil :selected nil] ["Black" (font-menu-set-font nil "Black" nil) :style radio :active nil :selected nil])] "mono:size=10" #<x-frame "XEmacs" 0x2a78b>)
  # bind (name domain case-fold-search dcache face)
  x-font-menu-font-data(default [(["Balker" (nil) (0) nil] ["Bitstream Charter" ("Bold" nil) (0) nil] ["Bitstream Vera Sans" ("Bold" nil) (0) nil] ["Bitstream Vera Sans Mono" ("Bold" nil) (0) nil] ["Bitstream Vera Serif" ("Bold" nil) (0) nil] ["Century Schoolbook L" ("Bold" "Medium" nil) (0) nil] ["Charter" ("Bold" "Medium" nil) (0) nil] ["Clean" (nil) (0) nil] ["ClearlyU" (nil) (0) nil] ["ClearlyU PUA" (nil) (0) nil] ["Computer Modern" ("Bold" "Medium") (0) nil] ["Computer Modern Bright" ("Bold" "Demibold" "Medium" nil) (0) nil] ["Computer Modern Concrete" ("Medium") (0) nil] ["Courier" ("Bold" "Medium" nil) (0) nil] ["Courier 10 Pitch" ("Bold" nil) (0) nil] ["Delphine" (nil) (0) nil] ["Dingbats" (nil) (0) nil] ["Domestic Manners" (nil) (0) nil] ["Dustismo" ("Bold" nil) (0) nil] ["Dustismo Roman" ("Bold" nil) (0) nil] ["El Abogado Loco" (nil) (0) nil] ["Fixed" ("Bold" "Medium" nil) (0) nil] ["FreeMono" ("Bold" nil) (0) nil] ["FreeSans" ("Bold" nil) (0) nil] ["FreeSerif" ("Bold" nil) (0) nil] ["Helvetica" ("Bold" "Medium" nil) (0) nil] ["Hershey-Gothic-English" (nil) (0) nil] ["Hershey-Gothic-German" (nil) (0) nil] ["Hershey-Gothic-Italian" (nil) (0) nil] ["Hershey-Plain-Duplex" (nil) (0) nil] ["Hershey-Plain-Duplex-Italic" (nil) (0) nil] ["Hershey-Plain-Triplex" (nil) (0) nil] ["Hershey-Plain-Triplex-Italic" (nil) (0) nil] ["Hershey-Script-Complex" (nil) (0) nil] ["Hershey-Script-Simplex" (nil) (0) nil] ["It wasn't me" (nil) (0) nil] ["Junkyard" (nil) (0) nil] ["LMRoman10" ("Bold" "Demibold" nil) (0) nil] ["LMSans10" ("Bold" "Demibold" nil) (0) nil] ["LMTypewriter10" ("Bold" nil nil) (0) nil] ["LMTypewriterVarWd10" ("Bold" nil nil) (0) nil] ["Lucida" ("Bold" "Medium") (0) nil] ["LucidaBright" ("Medium" nil) (0) nil] ["LucidaTypewriter" ("Bold" "Medium") (0) nil] ["Marked Fool" (nil) (0) nil] ["New Century Schoolbook" ("Bold" "Medium" nil) (0) nil] ["Newspaper" (nil) (0) nil] ["Nimbus Mono L" ("Bold" nil) (0) nil] ["Nimbus Roman No9 L" ("Bold" nil) (0) nil] ["Nimbus Sans L" ("Bold" nil) (0) nil] ["Pengui!
 n Attack
"
 (nil) (0) nil] ["Steve" (nil) (0) nil] ["Swift" (nil) (0) nil] ["Terminal" ("Bold" nil) (0) nil] ["Times" ("Bold" "Medium" nil) (0) nil] ["URW Bookman L" ("Bold" "Medium" nil) (0) nil] ["URW Chancery L" ("Medium") (0) nil] ["URW Gothic L" ("Demibold" nil) (0) nil] ["URW Palladio L" ("Bold" "Medium" nil) (0) nil] ["Utopia" ("Bold" nil) (0) nil] ["Wargames" (nil) (0) nil] ["Winks" (nil) (0) nil] ["cmex10" ("Medium") (0) nil] ["cmmi10" ("Medium") (0) nil] ["cmr10" ("Medium") (0) nil] ["cmsy10" ("Medium") (0) nil] ["flatline" (nil) (0) nil] ["msam10" ("Medium") (0) nil] ["msbm10" ("Medium") (0) nil] ["progenisis" (nil) (0) nil] ["wasy10" (nil) (0) nil]) (["Balker" (font-menu-set-font "Balker" nil nil) :style radio :active nil :selected nil] ["Bitstream Charter" (font-menu-set-font "Bitstream Charter" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans" (font-menu-set-font "Bitstream Vera Sans" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans Mono" (font-menu-set-font "Bitstream Vera Sans Mono" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Serif" (font-menu-set-font "Bitstream Vera Serif" nil nil) :style radio :active nil :selected nil] ["Century Schoolbook L" (font-menu-set-font "Century Schoolbook L" nil nil) :style radio :active nil :selected nil] ["Charter" (font-menu-set-font "Charter" nil nil) :style radio :active nil :selected nil] ["Clean" (font-menu-set-font "Clean" nil nil) :style radio :active nil :selected nil] ["ClearlyU" (font-menu-set-font "ClearlyU" nil nil) :style radio :active nil :selected nil] ["ClearlyU PUA" (font-menu-set-font "ClearlyU PUA" nil nil) :style radio :active nil :selected nil] ["Computer Modern" (font-menu-set-font "Computer Modern" nil nil) :style radio :active nil :selected nil] ["Computer Modern Bright" (font-menu-set-font "Computer Modern Bright" nil nil) :style radio :active nil :selected nil] ["Computer Modern Concrete" (font-menu-set-font "Computer Modern Concrete" nil nil) :style radio :active nil :selecte!
 d nil] [
"
Courier" (font-menu-set-font "Courier" nil nil) :style radio :active nil :selected nil] ["Courier 10 Pitch" (font-menu-set-font "Courier 10 Pitch" nil nil) :style radio :active nil :selected nil] ["Delphine" (font-menu-set-font "Delphine" nil nil) :style radio :active nil :selected nil] ["Dingbats" (font-menu-set-font "Dingbats" nil nil) :style radio :active nil :selected nil] ["Domestic Manners" (font-menu-set-font "Domestic Manners" nil nil) :style radio :active nil :selected nil] ["Dustismo" (font-menu-set-font "Dustismo" nil nil) :style radio :active nil :selected nil] ["Dustismo Roman" (font-menu-set-font "Dustismo Roman" nil nil) :style radio :active nil :selected nil] ["El Abogado Loco" (font-menu-set-font "El Abogado Loco" nil nil) :style radio :active nil :selected nil] ["Fixed" (font-menu-set-font "Fixed" nil nil) :style radio :active nil :selected nil] ["FreeMono" (font-menu-set-font "FreeMono" nil nil) :style radio :active nil :selected nil] ["FreeSans" (font-menu-set-font "FreeSans" nil nil) :style radio :active nil :selected nil] ["FreeSerif" (font-menu-set-font "FreeSerif" nil nil) :style radio :active nil :selected nil] ["Helvetica" (font-menu-set-font "Helvetica" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-English" (font-menu-set-font "Hershey-Gothic-English" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-German" (font-menu-set-font "Hershey-Gothic-German" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-Italian" (font-menu-set-font "Hershey-Gothic-Italian" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex" (font-menu-set-font "Hershey-Plain-Duplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex-Italic" (font-menu-set-font "Hershey-Plain-Duplex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex" (font-menu-set-font "Hershey-Plain-Triplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex-Italic" (font-menu-set-font "Hershey-Plain-Tr!
 iplex-It
a
lic" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Complex" (font-menu-set-font "Hershey-Script-Complex" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Simplex" (font-menu-set-font "Hershey-Script-Simplex" nil nil) :style radio :active nil :selected nil] ["It wasn't me" (font-menu-set-font "It wasn't me" nil nil) :style radio :active nil :selected nil] ["Junkyard" (font-menu-set-font "Junkyard" nil nil) :style radio :active nil :selected nil] ["LMRoman10" (font-menu-set-font "LMRoman10" nil nil) :style radio :active nil :selected nil] ["LMSans10" (font-menu-set-font "LMSans10" nil nil) :style radio :active nil :selected nil] ["LMTypewriter10" (font-menu-set-font "LMTypewriter10" nil nil) :style radio :active nil :selected nil] ["LMTypewriterVarWd10" (font-menu-set-font "LMTypewriterVarWd10" nil nil) :style radio :active nil :selected nil] ["Lucida" (font-menu-set-font "Lucida" nil nil) :style radio :active nil :selected nil] ["LucidaBright" (font-menu-set-font "LucidaBright" nil nil) :style radio :active nil :selected nil] ["LucidaTypewriter" (font-menu-set-font "LucidaTypewriter" nil nil) :style radio :active nil :selected nil] ["Marked Fool" (font-menu-set-font "Marked Fool" nil nil) :style radio :active nil :selected nil] ["New Century Schoolbook" (font-menu-set-font "New Century Schoolbook" nil nil) :style radio :active nil :selected nil] ["Newspaper" (font-menu-set-font "Newspaper" nil nil) :style radio :active nil :selected nil] ["Nimbus Mono L" (font-menu-set-font "Nimbus Mono L" nil nil) :style radio :active nil :selected nil] ["Nimbus Roman No9 L" (font-menu-set-font "Nimbus Roman No9 L" nil nil) :style radio :active nil :selected nil] ["Nimbus Sans L" (font-menu-set-font "Nimbus Sans L" nil nil) :style radio :active nil :selected nil] ["Penguin Attack" (font-menu-set-font "Penguin Attack" nil nil) :style radio :active nil :selected nil] ["Steve" (font-menu-set-font "Steve" nil nil) :style radio :active nil :selected nil] ["Swift" (font-menu-set-font "Swift!
 " nil ni
l
):style radio :active nil :selected nil] ["Terminal" (font-menu-set-font "Terminal" nil nil) :style radio :active nil :selected nil] ["Times" (font-menu-set-font "Times" nil nil) :style radio :active nil :selected nil] ["URW Bookman L" (font-menu-set-font "URW Bookman L" nil nil) :style radio :active nil :selected nil] ["URW Chancery L" (font-menu-set-font "URW Chancery L" nil nil) :style radio :active nil :selected nil] ["URW Gothic L" (font-menu-set-font "URW Gothic L" nil nil) :style radio :active nil :selected nil] ["URW Palladio L" (font-menu-set-font "URW Palladio L" nil nil) :style radio :active nil :selected nil] ["Utopia" (font-menu-set-font "Utopia" nil nil) :style radio :active nil :selected nil] ["Wargames" (font-menu-set-font "Wargames" nil nil) :style radio :active nil :selected nil] ["Winks" (font-menu-set-font "Winks" nil nil) :style radio :active nil :selected nil] ["cmex10" (font-menu-set-font "cmex10" nil nil) :style radio :active nil :selected nil] ["cmmi10" (font-menu-set-font "cmmi10" nil nil) :style radio :active nil :selected nil] ["cmr10" (font-menu-set-font "cmr10" nil nil) :style radio :active nil :selected nil] ["cmsy10" (font-menu-set-font "cmsy10" nil nil) :style radio :active nil :selected nil] ["flatline" (font-menu-set-font "flatline" nil nil) :style radio :active nil :selected nil] ["msam10" (font-menu-set-font "msam10" nil nil) :style radio :active nil :selected nil] ["msbm10" (font-menu-set-font "msbm10" nil nil) :style radio :active nil :selected nil] ["progenisis" (font-menu-set-font "progenisis" nil nil) :style radio :active nil :selected nil] ["wasy10" (font-menu-set-font "wasy10" nil nil) :style radio :active nil :selected nil]) (["6" (font-menu-set-font nil nil 6) :style radio :active nil :selected nil] ["8" (font-menu-set-font nil nil 8) :style radio :active nil :selected nil] ["10" (font-menu-set-font nil nil 10) :style radio :active nil :selected nil] ["11" (font-menu-set-font nil nil 11) :style radio :active nil :selected nil] ["12" (font-menu-set-font nil ni!
 l 12) :s

tyle radio :active nil :selected nil] ["13" (font-menu-set-font nil nil 13) :style radio :active nil :selected nil] ["14" (font-menu-set-font nil nil 14) :style radio :active nil :selected nil] ["15" (font-menu-set-font nil nil 15) :style radio :active nil :selected nil] ["16" (font-menu-set-font nil nil 16) :style radio :active nil :selected nil] ["17" (font-menu-set-font nil nil 17) :style radio :active nil :selected nil] ["18" (font-menu-set-font nil nil 18) :style radio :active nil :selected nil] ["20" (font-menu-set-font nil nil 20) :style radio :active nil :selected nil] ["22" (font-menu-set-font nil nil 22) :style radio :active nil :selected nil] ["24" (font-menu-set-font nil nil 24) :style radio :active nil :selected nil] ["30" (font-menu-set-font nil nil 30) :style radio :active nil :selected nil] ["36" (font-menu-set-font nil nil 36) :style radio :active nil :selected nil]) (["Light" (font-menu-set-font nil "Light" nil) :style radio :active nil :selected nil] ["Medium" (font-menu-set-font nil "Medium" nil) :style radio :active nil :selected nil] ["Demibold" (font-menu-set-font nil "Demibold" nil) :style radio :active nil :selected nil] ["Bold" (font-menu-set-font nil "Bold" nil) :style radio :active nil :selected nil] ["Black" (font-menu-set-font nil "Black" nil) :style radio :active nil :selected nil])])
  apply(x-font-menu-font-data (default [(["Balker" (nil) (0) nil] ["Bitstream Charter" ("Bold" nil) (0) nil] ["Bitstream Vera Sans" ("Bold" nil) (0) nil] ["Bitstream Vera Sans Mono" ("Bold" nil) (0) nil] ["Bitstream Vera Serif" ("Bold" nil) (0) nil] ["Century Schoolbook L" ("Bold" "Medium" nil) (0) nil] ["Charter" ("Bold" "Medium" nil) (0) nil] ["Clean" (nil) (0) nil] ["ClearlyU" (nil) (0) nil] ["ClearlyU PUA" (nil) (0) nil] ["Computer Modern" ("Bold" "Medium") (0) nil] ["Computer Modern Bright" ("Bold" "Demibold" "Medium" nil) (0) nil] ["Computer Modern Concrete" ("Medium") (0) nil] ["Courier" ("Bold" "Medium" nil) (0) nil] ["Courier 10 Pitch" ("Bold" nil) (0) nil] ["Delphine" (nil) (0) nil] ["Dingbats" (nil) (0) nil] ["Domestic Manners" (nil) (0) nil] ["Dustismo" ("Bold" nil) (0) nil] ["Dustismo Roman" ("Bold" nil) (0) nil] ["El Abogado Loco" (nil) (0) nil] ["Fixed" ("Bold" "Medium" nil) (0) nil] ["FreeMono" ("Bold" nil) (0) nil] ["FreeSans" ("Bold" nil) (0) nil] ["FreeSerif" ("Bold" nil) (0) nil] ["Helvetica" ("Bold" "Medium" nil) (0) nil] ["Hershey-Gothic-English" (nil) (0) nil] ["Hershey-Gothic-German" (nil) (0) nil] ["Hershey-Gothic-Italian" (nil) (0) nil] ["Hershey-Plain-Duplex" (nil) (0) nil] ["Hershey-Plain-Duplex-Italic" (nil) (0) nil] ["Hershey-Plain-Triplex" (nil) (0) nil] ["Hershey-Plain-Triplex-Italic" (nil) (0) nil] ["Hershey-Script-Complex" (nil) (0) nil] ["Hershey-Script-Simplex" (nil) (0) nil] ["It wasn't me" (nil) (0) nil] ["Junkyard" (nil) (0) nil] ["LMRoman10" ("Bold" "Demibold" nil) (0) nil] ["LMSans10" ("Bold" "Demibold" nil) (0) nil] ["LMTypewriter10" ("Bold" nil nil) (0) nil] ["LMTypewriterVarWd10" ("Bold" nil nil) (0) nil] ["Lucida" ("Bold" "Medium") (0) nil] ["LucidaBright" ("Medium" nil) (0) nil] ["LucidaTypewriter" ("Bold" "Medium") (0) nil] ["Marked Fool" (nil) (0) nil] ["New Century Schoolbook" ("Bold" "Medium" nil) (0) nil] ["Newspaper" (nil) (0) nil] ["Nimbus Mono L" ("Bold" nil) (0) nil] ["Nimbus Roman No9 L" ("Bold" nil) (0) nil] ["Nimbus Sans L" ("Bold" nil) (0) nil] [!
 "Penguin

Attack" (nil) (0) nil] ["Steve" (nil) (0) nil] ["Swift" (nil) (0) nil] ["Terminal" ("Bold" nil) (0) nil] ["Times" ("Bold" "Medium" nil) (0) nil] ["URW Bookman L" ("Bold" "Medium" nil) (0) nil] ["URW Chancery L" ("Medium") (0) nil] ["URW Gothic L" ("Demibold" nil) (0) nil] ["URW Palladio L" ("Bold" "Medium" nil) (0) nil] ["Utopia" ("Bold" nil) (0) nil] ["Wargames" (nil) (0) nil] ["Winks" (nil) (0) nil] ["cmex10" ("Medium") (0) nil] ["cmmi10" ("Medium") (0) nil] ["cmr10" ("Medium") (0) nil] ["cmsy10" ("Medium") (0) nil] ["flatline" (nil) (0) nil] ["msam10" ("Medium") (0) nil] ["msbm10" ("Medium") (0) nil] ["progenisis" (nil) (0) nil] ["wasy10" (nil) (0) nil]) (["Balker" (font-menu-set-font "Balker" nil nil) :style radio :active nil :selected nil] ["Bitstream Charter" (font-menu-set-font "Bitstream Charter" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans" (font-menu-set-font "Bitstream Vera Sans" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans Mono" (font-menu-set-font "Bitstream Vera Sans Mono" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Serif" (font-menu-set-font "Bitstream Vera Serif" nil nil) :style radio :active nil :selected nil] ["Century Schoolbook L" (font-menu-set-font "Century Schoolbook L" nil nil) :style radio :active nil :selected nil] ["Charter" (font-menu-set-font "Charter" nil nil) :style radio :active nil :selected nil] ["Clean" (font-menu-set-font "Clean" nil nil) :style radio :active nil :selected nil] ["ClearlyU" (font-menu-set-font "ClearlyU" nil nil) :style radio :active nil :selected nil] ["ClearlyU PUA" (font-menu-set-font "ClearlyU PUA" nil nil) :style radio :active nil :selected nil] ["Computer Modern" (font-menu-set-font "Computer Modern" nil nil) :style radio :active nil :selected nil] ["Computer Modern Bright" (font-menu-set-font "Computer Modern Bright" nil nil) :style radio :active nil :selected nil] ["Computer Modern Concrete" (font-menu-set-font "Computer Modern Concrete" nil nil) :style radio :active nil :!
 selected

nil] ["Courier" (font-menu-set-font "Courier" nil nil) :style radio :active nil :selected nil] ["Courier 10 Pitch" (font-menu-set-font "Courier 10 Pitch" nil nil) :style radio :active nil :selected nil] ["Delphine" (font-menu-set-font "Delphine" nil nil) :style radio :active nil :selected nil] ["Dingbats" (font-menu-set-font "Dingbats" nil nil) :style radio :active nil :selected nil] ["Domestic Manners" (font-menu-set-font "Domestic Manners" nil nil) :style radio :active nil :selected nil] ["Dustismo" (font-menu-set-font "Dustismo" nil nil) :style radio :active nil :selected nil] ["Dustismo Roman" (font-menu-set-font "Dustismo Roman" nil nil) :style radio :active nil :selected nil] ["El Abogado Loco" (font-menu-set-font "El Abogado Loco" nil nil) :style radio :active nil :selected nil] ["Fixed" (font-menu-set-font "Fixed" nil nil) :style radio :active nil :selected nil] ["FreeMono" (font-menu-set-font "FreeMono" nil nil) :style radio :active nil :selected nil] ["FreeSans" (font-menu-set-font "FreeSans" nil nil) :style radio :active nil :selected nil] ["FreeSerif" (font-menu-set-font "FreeSerif" nil nil) :style radio :active nil :selected nil] ["Helvetica" (font-menu-set-font "Helvetica" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-English" (font-menu-set-font "Hershey-Gothic-English" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-German" (font-menu-set-font "Hershey-Gothic-German" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-Italian" (font-menu-set-font "Hershey-Gothic-Italian" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex" (font-menu-set-font "Hershey-Plain-Duplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex-Italic" (font-menu-set-font "Hershey-Plain-Duplex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex" (font-menu-set-font "Hershey-Plain-Triplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex-Italic" (font-menu-set-font "Hershey-P!
 lain-Tri
p
lex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Complex" (font-menu-set-font "Hershey-Script-Complex" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Simplex" (font-menu-set-font "Hershey-Script-Simplex" nil nil) :style radio :active nil :selected nil] ["It wasn't me" (font-menu-set-font "It wasn't me" nil nil) :style radio :active nil :selected nil] ["Junkyard" (font-menu-set-font "Junkyard" nil nil) :style radio :active nil :selected nil] ["LMRoman10" (font-menu-set-font "LMRoman10" nil nil) :style radio :active nil :selected nil] ["LMSans10" (font-menu-set-font "LMSans10" nil nil) :style radio :active nil :selected nil] ["LMTypewriter10" (font-menu-set-font "LMTypewriter10" nil nil) :style radio :active nil :selected nil] ["LMTypewriterVarWd10" (font-menu-set-font "LMTypewriterVarWd10" nil nil) :style radio :active nil :selected nil] ["Lucida" (font-menu-set-font "Lucida" nil nil) :style radio :active nil :selected nil] ["LucidaBright" (font-menu-set-font "LucidaBright" nil nil) :style radio :active nil :selected nil] ["LucidaTypewriter" (font-menu-set-font "LucidaTypewriter" nil nil) :style radio :active nil :selected nil] ["Marked Fool" (font-menu-set-font "Marked Fool" nil nil) :style radio :active nil :selected nil] ["New Century Schoolbook" (font-menu-set-font "New Century Schoolbook" nil nil) :style radio :active nil :selected nil] ["Newspaper" (font-menu-set-font "Newspaper" nil nil) :style radio :active nil :selected nil] ["Nimbus Mono L" (font-menu-set-font "Nimbus Mono L" nil nil) :style radio :active nil :selected nil] ["Nimbus Roman No9 L" (font-menu-set-font "Nimbus Roman No9 L" nil nil) :style radio :active nil :selected nil] ["Nimbus Sans L" (font-menu-set-font "Nimbus Sans L" nil nil) :style radio :active nil :selected nil] ["Penguin Attack" (font-menu-set-font "Penguin Attack" nil nil) :style radio :active nil :selected nil] ["Steve" (font-menu-set-font "Steve" nil nil) :style radio :active nil :selected nil] ["Swift" (font-menu-set-font!
  "Swift"

nil nil) :style radio :active nil :selected nil] ["Terminal" (font-menu-set-font "Terminal" nil nil) :style radio :active nil :selected nil] ["Times" (font-menu-set-font "Times" nil nil) :style radio :active nil :selected nil] ["URW Bookman L" (font-menu-set-font "URW Bookman L" nil nil) :style radio :active nil :selected nil] ["URW Chancery L" (font-menu-set-font "URW Chancery L" nil nil) :style radio :active nil :selected nil] ["URW Gothic L" (font-menu-set-font "URW Gothic L" nil nil) :style radio :active nil :selected nil] ["URW Palladio L" (font-menu-set-font "URW Palladio L" nil nil) :style radio :active nil :selected nil] ["Utopia" (font-menu-set-font "Utopia" nil nil) :style radio :active nil :selected nil] ["Wargames" (font-menu-set-font "Wargames" nil nil) :style radio :active nil :selected nil] ["Winks" (font-menu-set-font "Winks" nil nil) :style radio :active nil :selected nil] ["cmex10" (font-menu-set-font "cmex10" nil nil) :style radio :active nil :selected nil] ["cmmi10" (font-menu-set-font "cmmi10" nil nil) :style radio :active nil :selected nil] ["cmr10" (font-menu-set-font "cmr10" nil nil) :style radio :active nil :selected nil] ["cmsy10" (font-menu-set-font "cmsy10" nil nil) :style radio :active nil :selected nil] ["flatline" (font-menu-set-font "flatline" nil nil) :style radio :active nil :selected nil] ["msam10" (font-menu-set-font "msam10" nil nil) :style radio :active nil :selected nil] ["msbm10" (font-menu-set-font "msbm10" nil nil) :style radio :active nil :selected nil] ["progenisis" (font-menu-set-font "progenisis" nil nil) :style radio :active nil :selected nil] ["wasy10" (font-menu-set-font "wasy10" nil nil) :style radio :active nil :selected nil]) (["6" (font-menu-set-font nil nil 6) :style radio :active nil :selected nil] ["8" (font-menu-set-font nil nil 8) :style radio :active nil :selected nil] ["10" (font-menu-set-font nil nil 10) :style radio :active nil :selected nil] ["11" (font-menu-set-font nil nil 11) :style radio :active nil :selected nil] ["12" (font-menu-set-fon!
 t nil ni
l
 12) :style radio :active nil :selected nil] ["13" (font-menu-set-font nil nil 13) :style radio :active nil :selected nil] ["14" (font-menu-set-font nil nil 14) :style radio :active nil :selected nil] ["15" (font-menu-set-font nil nil 15) :style radio :active nil :selected nil] ["16" (font-menu-set-font nil nil 16) :style radio :active nil :selected nil] ["17" (font-menu-set-font nil nil 17) :style radio :active nil :selected nil] ["18" (font-menu-set-font nil nil 18) :style radio :active nil :selected nil] ["20" (font-menu-set-font nil nil 20) :style radio :active nil :selected nil] ["22" (font-menu-set-font nil nil 22) :style radio :active nil :selected nil] ["24" (font-menu-set-font nil nil 24) :style radio :active nil :selected nil] ["30" (font-menu-set-font nil nil 30) :style radio :active nil :selected nil] ["36" (font-menu-set-font nil nil 36) :style radio :active nil :selected nil]) (["Light" (font-menu-set-font nil "Light" nil) :style radio :active nil :selected nil] ["Medium" (font-menu-set-font nil "Medium" nil) :style radio :active nil :selected nil] ["Demibold" (font-menu-set-font nil "Demibold" nil) :style radio :active nil :selected nil] ["Bold" (font-menu-set-font nil "Bold" nil) :style radio :active nil :selected nil] ["Black" (font-menu-set-font nil "Black" nil) :style radio :active nil :selected nil])]))
  # bind (devmeth args device name)
  call-device-method(font-menu-font-data nil default [(["Balker" (nil) (0) nil] ["Bitstream Charter" ("Bold" nil) (0) nil] ["Bitstream Vera Sans" ("Bold" nil) (0) nil] ["Bitstream Vera Sans Mono" ("Bold" nil) (0) nil] ["Bitstream Vera Serif" ("Bold" nil) (0) nil] ["Century Schoolbook L" ("Bold" "Medium" nil) (0) nil] ["Charter" ("Bold" "Medium" nil) (0) nil] ["Clean" (nil) (0) nil] ["ClearlyU" (nil) (0) nil] ["ClearlyU PUA" (nil) (0) nil] ["Computer Modern" ("Bold" "Medium") (0) nil] ["Computer Modern Bright" ("Bold" "Demibold" "Medium" nil) (0) nil] ["Computer Modern Concrete" ("Medium") (0) nil] ["Courier" ("Bold" "Medium" nil) (0) nil] ["Courier 10 Pitch" ("Bold" nil) (0) nil] ["Delphine" (nil) (0) nil] ["Dingbats" (nil) (0) nil] ["Domestic Manners" (nil) (0) nil] ["Dustismo" ("Bold" nil) (0) nil] ["Dustismo Roman" ("Bold" nil) (0) nil] ["El Abogado Loco" (nil) (0) nil] ["Fixed" ("Bold" "Medium" nil) (0) nil] ["FreeMono" ("Bold" nil) (0) nil] ["FreeSans" ("Bold" nil) (0) nil] ["FreeSerif" ("Bold" nil) (0) nil] ["Helvetica" ("Bold" "Medium" nil) (0) nil] ["Hershey-Gothic-English" (nil) (0) nil] ["Hershey-Gothic-German" (nil) (0) nil] ["Hershey-Gothic-Italian" (nil) (0) nil] ["Hershey-Plain-Duplex" (nil) (0) nil] ["Hershey-Plain-Duplex-Italic" (nil) (0) nil] ["Hershey-Plain-Triplex" (nil) (0) nil] ["Hershey-Plain-Triplex-Italic" (nil) (0) nil] ["Hershey-Script-Complex" (nil) (0) nil] ["Hershey-Script-Simplex" (nil) (0) nil] ["It wasn't me" (nil) (0) nil] ["Junkyard" (nil) (0) nil] ["LMRoman10" ("Bold" "Demibold" nil) (0) nil] ["LMSans10" ("Bold" "Demibold" nil) (0) nil] ["LMTypewriter10" ("Bold" nil nil) (0) nil] ["LMTypewriterVarWd10" ("Bold" nil nil) (0) nil] ["Lucida" ("Bold" "Medium") (0) nil] ["LucidaBright" ("Medium" nil) (0) nil] ["LucidaTypewriter" ("Bold" "Medium") (0) nil] ["Marked Fool" (nil) (0) nil] ["New Century Schoolbook" ("Bold" "Medium" nil) (0) nil] ["Newspaper" (nil) (0) nil] ["Nimbus Mono L" ("Bold" nil) (0) nil] ["Nimbus Roman No9 L" ("Bold" nil) (0) nil] ["Nimbus Sans L" ("Bold" n!
 il) (0) 
n
il] ["Penguin Attack" (nil) (0) nil] ["Steve" (nil) (0) nil] ["Swift" (nil) (0) nil] ["Terminal" ("Bold" nil) (0) nil] ["Times" ("Bold" "Medium" nil) (0) nil] ["URW Bookman L" ("Bold" "Medium" nil) (0) nil] ["URW Chancery L" ("Medium") (0) nil] ["URW Gothic L" ("Demibold" nil) (0) nil] ["URW Palladio L" ("Bold" "Medium" nil) (0) nil] ["Utopia" ("Bold" nil) (0) nil] ["Wargames" (nil) (0) nil] ["Winks" (nil) (0) nil] ["cmex10" ("Medium") (0) nil] ["cmmi10" ("Medium") (0) nil] ["cmr10" ("Medium") (0) nil] ["cmsy10" ("Medium") (0) nil] ["flatline" (nil) (0) nil] ["msam10" ("Medium") (0) nil] ["msbm10" ("Medium") (0) nil] ["progenisis" (nil) (0) nil] ["wasy10" (nil) (0) nil]) (["Balker" (font-menu-set-font "Balker" nil nil) :style radio :active nil :selected nil] ["Bitstream Charter" (font-menu-set-font "Bitstream Charter" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans" (font-menu-set-font "Bitstream Vera Sans" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans Mono" (font-menu-set-font "Bitstream Vera Sans Mono" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Serif" (font-menu-set-font "Bitstream Vera Serif" nil nil) :style radio :active nil :selected nil] ["Century Schoolbook L" (font-menu-set-font "Century Schoolbook L" nil nil) :style radio :active nil :selected nil] ["Charter" (font-menu-set-font "Charter" nil nil) :style radio :active nil :selected nil] ["Clean" (font-menu-set-font "Clean" nil nil) :style radio :active nil :selected nil] ["ClearlyU" (font-menu-set-font "ClearlyU" nil nil) :style radio :active nil :selected nil] ["ClearlyU PUA" (font-menu-set-font "ClearlyU PUA" nil nil) :style radio :active nil :selected nil] ["Computer Modern" (font-menu-set-font "Computer Modern" nil nil) :style radio :active nil :selected nil] ["Computer Modern Bright" (font-menu-set-font "Computer Modern Bright" nil nil) :style radio :active nil :selected nil] ["Computer Modern Concrete" (font-menu-set-font "Computer Modern Concrete" nil nil) :style radio!
  :active

nil:selected nil] ["Courier" (font-menu-set-font "Courier" nil nil) :style radio :active nil :selected nil] ["Courier 10 Pitch" (font-menu-set-font "Courier 10 Pitch" nil nil) :style radio :active nil :selected nil] ["Delphine" (font-menu-set-font "Delphine" nil nil) :style radio :active nil :selected nil] ["Dingbats" (font-menu-set-font "Dingbats" nil nil) :style radio :active nil :selected nil] ["Domestic Manners" (font-menu-set-font "Domestic Manners" nil nil) :style radio :active nil :selected nil] ["Dustismo" (font-menu-set-font "Dustismo" nil nil) :style radio :active nil :selected nil] ["Dustismo Roman" (font-menu-set-font "Dustismo Roman" nil nil) :style radio :active nil :selected nil] ["El Abogado Loco" (font-menu-set-font "El Abogado Loco" nil nil) :style radio :active nil :selected nil] ["Fixed" (font-menu-set-font "Fixed" nil nil) :style radio :active nil :selected nil] ["FreeMono" (font-menu-set-font "FreeMono" nil nil) :style radio :active nil :selected nil] ["FreeSans" (font-menu-set-font "FreeSans" nil nil) :style radio :active nil :selected nil] ["FreeSerif" (font-menu-set-font "FreeSerif" nil nil) :style radio :active nil :selected nil] ["Helvetica" (font-menu-set-font "Helvetica" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-English" (font-menu-set-font "Hershey-Gothic-English" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-German" (font-menu-set-font "Hershey-Gothic-German" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-Italian" (font-menu-set-font "Hershey-Gothic-Italian" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex" (font-menu-set-font "Hershey-Plain-Duplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex-Italic" (font-menu-set-font "Hershey-Plain-Duplex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex" (font-menu-set-font "Hershey-Plain-Triplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex-Italic" (font-menu-set-fo!
 nt "Hers

hey-Plain-Triplex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Complex" (font-menu-set-font "Hershey-Script-Complex" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Simplex" (font-menu-set-font "Hershey-Script-Simplex" nil nil) :style radio :active nil :selected nil] ["It wasn't me" (font-menu-set-font "It wasn't me" nil nil) :style radio :active nil :selected nil] ["Junkyard" (font-menu-set-font "Junkyard" nil nil) :style radio :active nil :selected nil] ["LMRoman10" (font-menu-set-font "LMRoman10" nil nil) :style radio :active nil :selected nil] ["LMSans10" (font-menu-set-font "LMSans10" nil nil) :style radio :active nil :selected nil] ["LMTypewriter10" (font-menu-set-font "LMTypewriter10" nil nil) :style radio :active nil :selected nil] ["LMTypewriterVarWd10" (font-menu-set-font "LMTypewriterVarWd10" nil nil) :style radio :active nil :selected nil] ["Lucida" (font-menu-set-font "Lucida" nil nil) :style radio :active nil :selected nil] ["LucidaBright" (font-menu-set-font "LucidaBright" nil nil) :style radio :active nil :selected nil] ["LucidaTypewriter" (font-menu-set-font "LucidaTypewriter" nil nil) :style radio :active nil :selected nil] ["Marked Fool" (font-menu-set-font "Marked Fool" nil nil) :style radio :active nil :selected nil] ["New Century Schoolbook" (font-menu-set-font "New Century Schoolbook" nil nil) :style radio :active nil :selected nil] ["Newspaper" (font-menu-set-font "Newspaper" nil nil) :style radio :active nil :selected nil] ["Nimbus Mono L" (font-menu-set-font "Nimbus Mono L" nil nil) :style radio :active nil :selected nil] ["Nimbus Roman No9 L" (font-menu-set-font "Nimbus Roman No9 L" nil nil) :style radio :active nil :selected nil] ["Nimbus Sans L" (font-menu-set-font "Nimbus Sans L" nil nil) :style radio :active nil :selected nil] ["Penguin Attack" (font-menu-set-font "Penguin Attack" nil nil) :style radio :active nil :selected nil] ["Steve" (font-menu-set-font "Steve" nil nil) :style radio :active nil :selected nil] ["Swift" (font!
 -menu-se
t
-font "Swift" nil nil) :style radio :active nil :selected nil] ["Terminal" (font-menu-set-font "Terminal" nil nil) :style radio :active nil :selected nil] ["Times" (font-menu-set-font "Times" nil nil) :style radio :active nil :selected nil] ["URW Bookman L" (font-menu-set-font "URW Bookman L" nil nil) :style radio :active nil :selected nil] ["URW Chancery L" (font-menu-set-font "URW Chancery L" nil nil) :style radio :active nil :selected nil] ["URW Gothic L" (font-menu-set-font "URW Gothic L" nil nil) :style radio :active nil :selected nil] ["URW Palladio L" (font-menu-set-font "URW Palladio L" nil nil) :style radio :active nil :selected nil] ["Utopia" (font-menu-set-font "Utopia" nil nil) :style radio :active nil :selected nil] ["Wargames" (font-menu-set-font "Wargames" nil nil) :style radio :active nil :selected nil] ["Winks" (font-menu-set-font "Winks" nil nil) :style radio :active nil :selected nil] ["cmex10" (font-menu-set-font "cmex10" nil nil) :style radio :active nil :selected nil] ["cmmi10" (font-menu-set-font "cmmi10" nil nil) :style radio :active nil :selected nil] ["cmr10" (font-menu-set-font "cmr10" nil nil) :style radio :active nil :selected nil] ["cmsy10" (font-menu-set-font "cmsy10" nil nil) :style radio :active nil :selected nil] ["flatline" (font-menu-set-font "flatline" nil nil) :style radio :active nil :selected nil] ["msam10" (font-menu-set-font "msam10" nil nil) :style radio :active nil :selected nil] ["msbm10" (font-menu-set-font "msbm10" nil nil) :style radio :active nil :selected nil] ["progenisis" (font-menu-set-font "progenisis" nil nil) :style radio :active nil :selected nil] ["wasy10" (font-menu-set-font "wasy10" nil nil) :style radio :active nil :selected nil]) (["6" (font-menu-set-font nil nil 6) :style radio :active nil :selected nil] ["8" (font-menu-set-font nil nil 8) :style radio :active nil :selected nil] ["10" (font-menu-set-font nil nil 10) :style radio :active nil :selected nil] ["11" (font-menu-set-font nil nil 11) :style radio :active nil :selected nil] ["12" (fon!
 t-menu-s
e
t-font nil nil 12) :style radio :active nil :selected nil] ["13" (font-menu-set-font nil nil 13) :style radio :active nil :selected nil] ["14" (font-menu-set-font nil nil 14) :style radio :active nil :selected nil] ["15" (font-menu-set-font nil nil 15) :style radio :active nil :selected nil] ["16" (font-menu-set-font nil nil 16) :style radio :active nil :selected nil] ["17" (font-menu-set-font nil nil 17) :style radio :active nil :selected nil] ["18" (font-menu-set-font nil nil 18) :style radio :active nil :selected nil] ["20" (font-menu-set-font nil nil 20) :style radio :active nil :selected nil] ["22" (font-menu-set-font nil nil 22) :style radio :active nil :selected nil] ["24" (font-menu-set-font nil nil 24) :style radio :active nil :selected nil] ["30" (font-menu-set-font nil nil 30) :style radio :active nil :selected nil] ["36" (font-menu-set-font nil nil 36) :style radio :active nil :selected nil]) (["Light" (font-menu-set-font nil "Light" nil) :style radio :active nil :selected nil] ["Medium" (font-menu-set-font nil "Medium" nil) :style radio :active nil :selected nil] ["Demibold" (font-menu-set-font nil "Demibold" nil) :style radio :active nil :selected nil] ["Bold" (font-menu-set-font nil "Bold" nil) :style radio :active nil :selected nil] ["Black" (font-menu-set-font nil "Black" nil) :style radio :active nil :selected nil])])
  apply(call-device-method font-menu-font-data nil (default [(["Balker" (nil) (0) nil] ["Bitstream Charter" ("Bold" nil) (0) nil] ["Bitstream Vera Sans" ("Bold" nil) (0) nil] ["Bitstream Vera Sans Mono" ("Bold" nil) (0) nil] ["Bitstream Vera Serif" ("Bold" nil) (0) nil] ["Century Schoolbook L" ("Bold" "Medium" nil) (0) nil] ["Charter" ("Bold" "Medium" nil) (0) nil] ["Clean" (nil) (0) nil] ["ClearlyU" (nil) (0) nil] ["ClearlyU PUA" (nil) (0) nil] ["Computer Modern" ("Bold" "Medium") (0) nil] ["Computer Modern Bright" ("Bold" "Demibold" "Medium" nil) (0) nil] ["Computer Modern Concrete" ("Medium") (0) nil] ["Courier" ("Bold" "Medium" nil) (0) nil] ["Courier 10 Pitch" ("Bold" nil) (0) nil] ["Delphine" (nil) (0) nil] ["Dingbats" (nil) (0) nil] ["Domestic Manners" (nil) (0) nil] ["Dustismo" ("Bold" nil) (0) nil] ["Dustismo Roman" ("Bold" nil) (0) nil] ["El Abogado Loco" (nil) (0) nil] ["Fixed" ("Bold" "Medium" nil) (0) nil] ["FreeMono" ("Bold" nil) (0) nil] ["FreeSans" ("Bold" nil) (0) nil] ["FreeSerif" ("Bold" nil) (0) nil] ["Helvetica" ("Bold" "Medium" nil) (0) nil] ["Hershey-Gothic-English" (nil) (0) nil] ["Hershey-Gothic-German" (nil) (0) nil] ["Hershey-Gothic-Italian" (nil) (0) nil] ["Hershey-Plain-Duplex" (nil) (0) nil] ["Hershey-Plain-Duplex-Italic" (nil) (0) nil] ["Hershey-Plain-Triplex" (nil) (0) nil] ["Hershey-Plain-Triplex-Italic" (nil) (0) nil] ["Hershey-Script-Complex" (nil) (0) nil] ["Hershey-Script-Simplex" (nil) (0) nil] ["It wasn't me" (nil) (0) nil] ["Junkyard" (nil) (0) nil] ["LMRoman10" ("Bold" "Demibold" nil) (0) nil] ["LMSans10" ("Bold" "Demibold" nil) (0) nil] ["LMTypewriter10" ("Bold" nil nil) (0) nil] ["LMTypewriterVarWd10" ("Bold" nil nil) (0) nil] ["Lucida" ("Bold" "Medium") (0) nil] ["LucidaBright" ("Medium" nil) (0) nil] ["LucidaTypewriter" ("Bold" "Medium") (0) nil] ["Marked Fool" (nil) (0) nil] ["New Century Schoolbook" ("Bold" "Medium" nil) (0) nil] ["Newspaper" (nil) (0) nil] ["Nimbus Mono L" ("Bold" nil) (0) nil] ["Nimbus Roman No9 L" ("Bold" nil) (0) nil] ["Nimbus Sans L" ("!
 Bold" ni
l
) (0) nil] ["Penguin Attack" (nil) (0) nil] ["Steve" (nil) (0) nil] ["Swift" (nil) (0) nil] ["Terminal" ("Bold" nil) (0) nil] ["Times" ("Bold" "Medium" nil) (0) nil] ["URW Bookman L" ("Bold" "Medium" nil) (0) nil] ["URW Chancery L" ("Medium") (0) nil] ["URW Gothic L" ("Demibold" nil) (0) nil] ["URW Palladio L" ("Bold" "Medium" nil) (0) nil] ["Utopia" ("Bold" nil) (0) nil] ["Wargames" (nil) (0) nil] ["Winks" (nil) (0) nil] ["cmex10" ("Medium") (0) nil] ["cmmi10" ("Medium") (0) nil] ["cmr10" ("Medium") (0) nil] ["cmsy10" ("Medium") (0) nil] ["flatline" (nil) (0) nil] ["msam10" ("Medium") (0) nil] ["msbm10" ("Medium") (0) nil] ["progenisis" (nil) (0) nil] ["wasy10" (nil) (0) nil]) (["Balker" (font-menu-set-font "Balker" nil nil) :style radio :active nil :selected nil] ["Bitstream Charter" (font-menu-set-font "Bitstream Charter" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans" (font-menu-set-font "Bitstream Vera Sans" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans Mono" (font-menu-set-font "Bitstream Vera Sans Mono" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Serif" (font-menu-set-font "Bitstream Vera Serif" nil nil) :style radio :active nil :selected nil] ["Century Schoolbook L" (font-menu-set-font "Century Schoolbook L" nil nil) :style radio :active nil :selected nil] ["Charter" (font-menu-set-font "Charter" nil nil) :style radio :active nil :selected nil] ["Clean" (font-menu-set-font "Clean" nil nil) :style radio :active nil :selected nil] ["ClearlyU" (font-menu-set-font "ClearlyU" nil nil) :style radio :active nil :selected nil] ["ClearlyU PUA" (font-menu-set-font "ClearlyU PUA" nil nil) :style radio :active nil :selected nil] ["Computer Modern" (font-menu-set-font "Computer Modern" nil nil) :style radio :active nil :selected nil] ["Computer Modern Bright" (font-menu-set-font "Computer Modern Bright" nil nil) :style radio :active nil :selected nil] ["Computer Modern Concrete" (font-menu-set-font "Computer Modern Concrete" nil nil) :styl!
 e radio 
:
active nil :selected nil] ["Courier" (font-menu-set-font "Courier" nil nil) :style radio :active nil :selected nil] ["Courier 10 Pitch" (font-menu-set-font "Courier 10 Pitch" nil nil) :style radio :active nil :selected nil] ["Delphine" (font-menu-set-font "Delphine" nil nil) :style radio :active nil :selected nil] ["Dingbats" (font-menu-set-font "Dingbats" nil nil) :style radio :active nil :selected nil] ["Domestic Manners" (font-menu-set-font "Domestic Manners" nil nil) :style radio :active nil :selected nil] ["Dustismo" (font-menu-set-font "Dustismo" nil nil) :style radio :active nil :selected nil] ["Dustismo Roman" (font-menu-set-font "Dustismo Roman" nil nil) :style radio :active nil :selected nil] ["El Abogado Loco" (font-menu-set-font "El Abogado Loco" nil nil) :style radio :active nil :selected nil] ["Fixed" (font-menu-set-font "Fixed" nil nil) :style radio :active nil :selected nil] ["FreeMono" (font-menu-set-font "FreeMono" nil nil) :style radio :active nil :selected nil] ["FreeSans" (font-menu-set-font "FreeSans" nil nil) :style radio :active nil :selected nil] ["FreeSerif" (font-menu-set-font "FreeSerif" nil nil) :style radio :active nil :selected nil] ["Helvetica" (font-menu-set-font "Helvetica" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-English" (font-menu-set-font "Hershey-Gothic-English" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-German" (font-menu-set-font "Hershey-Gothic-German" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-Italian" (font-menu-set-font "Hershey-Gothic-Italian" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex" (font-menu-set-font "Hershey-Plain-Duplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex-Italic" (font-menu-set-font "Hershey-Plain-Duplex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex" (font-menu-set-font "Hershey-Plain-Triplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex-Italic" (font-men!
 u-set-fo
n
t "Hershey-Plain-Triplex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Complex" (font-menu-set-font "Hershey-Script-Complex" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Simplex" (font-menu-set-font "Hershey-Script-Simplex" nil nil) :style radio :active nil :selected nil] ["It wasn't me" (font-menu-set-font "It wasn't me" nil nil) :style radio :active nil :selected nil] ["Junkyard" (font-menu-set-font "Junkyard" nil nil) :style radio :active nil :selected nil] ["LMRoman10" (font-menu-set-font "LMRoman10" nil nil) :style radio :active nil :selected nil] ["LMSans10" (font-menu-set-font "LMSans10" nil nil) :style radio :active nil :selected nil] ["LMTypewriter10" (font-menu-set-font "LMTypewriter10" nil nil) :style radio :active nil :selected nil] ["LMTypewriterVarWd10" (font-menu-set-font "LMTypewriterVarWd10" nil nil) :style radio :active nil :selected nil] ["Lucida" (font-menu-set-font "Lucida" nil nil) :style radio :active nil :selected nil] ["LucidaBright" (font-menu-set-font "LucidaBright" nil nil) :style radio :active nil :selected nil] ["LucidaTypewriter" (font-menu-set-font "LucidaTypewriter" nil nil) :style radio :active nil :selected nil] ["Marked Fool" (font-menu-set-font "Marked Fool" nil nil) :style radio :active nil :selected nil] ["New Century Schoolbook" (font-menu-set-font "New Century Schoolbook" nil nil) :style radio :active nil :selected nil] ["Newspaper" (font-menu-set-font "Newspaper" nil nil) :style radio :active nil :selected nil] ["Nimbus Mono L" (font-menu-set-font "Nimbus Mono L" nil nil) :style radio :active nil :selected nil] ["Nimbus Roman No9 L" (font-menu-set-font "Nimbus Roman No9 L" nil nil) :style radio :active nil :selected nil] ["Nimbus Sans L" (font-menu-set-font "Nimbus Sans L" nil nil) :style radio :active nil :selected nil] ["Penguin Attack" (font-menu-set-font "Penguin Attack" nil nil) :style radio :active nil :selected nil] ["Steve" (font-menu-set-font "Steve" nil nil) :style radio :active nil :selected nil] ["Swift!
 " (font-
m
enu-set-font "Swift" nil nil) :style radio :active nil :selected nil] ["Terminal" (font-menu-set-font "Terminal" nil nil) :style radio :active nil :selected nil] ["Times" (font-menu-set-font "Times" nil nil) :style radio :active nil :selected nil] ["URW Bookman L" (font-menu-set-font "URW Bookman L" nil nil) :style radio :active nil :selected nil] ["URW Chancery L" (font-menu-set-font "URW Chancery L" nil nil) :style radio :active nil :selected nil] ["URW Gothic L" (font-menu-set-font "URW Gothic L" nil nil) :style radio :active nil :selected nil] ["URW Palladio L" (font-menu-set-font "URW Palladio L" nil nil) :style radio :active nil :selected nil] ["Utopia" (font-menu-set-font "Utopia" nil nil) :style radio :active nil :selected nil] ["Wargames" (font-menu-set-font "Wargames" nil nil) :style radio :active nil :selected nil] ["Winks" (font-menu-set-font "Winks" nil nil) :style radio :active nil :selected nil] ["cmex10" (font-menu-set-font "cmex10" nil nil) :style radio :active nil :selected nil] ["cmmi10" (font-menu-set-font "cmmi10" nil nil) :style radio :active nil :selected nil] ["cmr10" (font-menu-set-font "cmr10" nil nil) :style radio :active nil :selected nil] ["cmsy10" (font-menu-set-font "cmsy10" nil nil) :style radio :active nil :selected nil] ["flatline" (font-menu-set-font "flatline" nil nil) :style radio :active nil :selected nil] ["msam10" (font-menu-set-font "msam10" nil nil) :style radio :active nil :selected nil] ["msbm10" (font-menu-set-font "msbm10" nil nil) :style radio :active nil :selected nil] ["progenisis" (font-menu-set-font "progenisis" nil nil) :style radio :active nil :selected nil] ["wasy10" (font-menu-set-font "wasy10" nil nil) :style radio :active nil :selected nil]) (["6" (font-menu-set-font nil nil 6) :style radio :active nil :selected nil] ["8" (font-menu-set-font nil nil 8) :style radio :active nil :selected nil] ["10" (font-menu-set-font nil nil 10) :style radio :active nil :selected nil] ["11" (font-menu-set-font nil nil 11) :style radio :active nil :selected nil] ["1!
 2" (font
-
menu-set-font nil nil 12) :style radio :active nil :selected nil] ["13" (font-menu-set-font nil nil 13) :style radio :active nil :selected nil] ["14" (font-menu-set-font nil nil 14) :style radio :active nil :selected nil] ["15" (font-menu-set-font nil nil 15) :style radio :active nil :selected nil] ["16" (font-menu-set-font nil nil 16) :style radio :active nil :selected nil] ["17" (font-menu-set-font nil nil 17) :style radio :active nil :selected nil] ["18" (font-menu-set-font nil nil 18) :style radio :active nil :selected nil] ["20" (font-menu-set-font nil nil 20) :style radio :active nil :selected nil] ["22" (font-menu-set-font nil nil 22) :style radio :active nil :selected nil] ["24" (font-menu-set-font nil nil 24) :style radio :active nil :selected nil] ["30" (font-menu-set-font nil nil 30) :style radio :active nil :selected nil] ["36" (font-menu-set-font nil nil 36) :style radio :active nil :selected nil]) (["Light" (font-menu-set-font nil "Light" nil) :style radio :active nil :selected nil] ["Medium" (font-menu-set-font nil "Medium" nil) :style radio :active nil :selected nil] ["Demibold" (font-menu-set-font nil "Demibold" nil) :style radio :active nil :selected nil] ["Bold" (font-menu-set-font nil "Bold" nil) :style radio :active nil :selected nil] ["Black" (font-menu-set-font nil "Black" nil) :style radio :active nil :selected nil])]))
  # bind (arglist)
  font-menu-font-data(default [(["Balker" (nil) (0) nil] ["Bitstream Charter" ("Bold" nil) (0) nil] ["Bitstream Vera Sans" ("Bold" nil) (0) nil] ["Bitstream Vera Sans Mono" ("Bold" nil) (0) nil] ["Bitstream Vera Serif" ("Bold" nil) (0) nil] ["Century Schoolbook L" ("Bold" "Medium" nil) (0) nil] ["Charter" ("Bold" "Medium" nil) (0) nil] ["Clean" (nil) (0) nil] ["ClearlyU" (nil) (0) nil] ["ClearlyU PUA" (nil) (0) nil] ["Computer Modern" ("Bold" "Medium") (0) nil] ["Computer Modern Bright" ("Bold" "Demibold" "Medium" nil) (0) nil] ["Computer Modern Concrete" ("Medium") (0) nil] ["Courier" ("Bold" "Medium" nil) (0) nil] ["Courier 10 Pitch" ("Bold" nil) (0) nil] ["Delphine" (nil) (0) nil] ["Dingbats" (nil) (0) nil] ["Domestic Manners" (nil) (0) nil] ["Dustismo" ("Bold" nil) (0) nil] ["Dustismo Roman" ("Bold" nil) (0) nil] ["El Abogado Loco" (nil) (0) nil] ["Fixed" ("Bold" "Medium" nil) (0) nil] ["FreeMono" ("Bold" nil) (0) nil] ["FreeSans" ("Bold" nil) (0) nil] ["FreeSerif" ("Bold" nil) (0) nil] ["Helvetica" ("Bold" "Medium" nil) (0) nil] ["Hershey-Gothic-English" (nil) (0) nil] ["Hershey-Gothic-German" (nil) (0) nil] ["Hershey-Gothic-Italian" (nil) (0) nil] ["Hershey-Plain-Duplex" (nil) (0) nil] ["Hershey-Plain-Duplex-Italic" (nil) (0) nil] ["Hershey-Plain-Triplex" (nil) (0) nil] ["Hershey-Plain-Triplex-Italic" (nil) (0) nil] ["Hershey-Script-Complex" (nil) (0) nil] ["Hershey-Script-Simplex" (nil) (0) nil] ["It wasn't me" (nil) (0) nil] ["Junkyard" (nil) (0) nil] ["LMRoman10" ("Bold" "Demibold" nil) (0) nil] ["LMSans10" ("Bold" "Demibold" nil) (0) nil] ["LMTypewriter10" ("Bold" nil nil) (0) nil] ["LMTypewriterVarWd10" ("Bold" nil nil) (0) nil] ["Lucida" ("Bold" "Medium") (0) nil] ["LucidaBright" ("Medium" nil) (0) nil] ["LucidaTypewriter" ("Bold" "Medium") (0) nil] ["Marked Fool" (nil) (0) nil] ["New Century Schoolbook" ("Bold" "Medium" nil) (0) nil] ["Newspaper" (nil) (0) nil] ["Nimbus Mono L" ("Bold" nil) (0) nil] ["Nimbus Roman No9 L" ("Bold" nil) (0) nil] ["Nimbus Sans L" ("Bold" nil) (0) nil] ["Penguin !
 Attack" 
(
nil) (0) nil] ["Steve" (nil) (0) nil] ["Swift" (nil) (0) nil] ["Terminal" ("Bold" nil) (0) nil] ["Times" ("Bold" "Medium" nil) (0) nil] ["URW Bookman L" ("Bold" "Medium" nil) (0) nil] ["URW Chancery L" ("Medium") (0) nil] ["URW Gothic L" ("Demibold" nil) (0) nil] ["URW Palladio L" ("Bold" "Medium" nil) (0) nil] ["Utopia" ("Bold" nil) (0) nil] ["Wargames" (nil) (0) nil] ["Winks" (nil) (0) nil] ["cmex10" ("Medium") (0) nil] ["cmmi10" ("Medium") (0) nil] ["cmr10" ("Medium") (0) nil] ["cmsy10" ("Medium") (0) nil] ["flatline" (nil) (0) nil] ["msam10" ("Medium") (0) nil] ["msbm10" ("Medium") (0) nil] ["progenisis" (nil) (0) nil] ["wasy10" (nil) (0) nil]) (["Balker" (font-menu-set-font "Balker" nil nil) :style radio :active nil :selected nil] ["Bitstream Charter" (font-menu-set-font "Bitstream Charter" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans" (font-menu-set-font "Bitstream Vera Sans" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Sans Mono" (font-menu-set-font "Bitstream Vera Sans Mono" nil nil) :style radio :active nil :selected nil] ["Bitstream Vera Serif" (font-menu-set-font "Bitstream Vera Serif" nil nil) :style radio :active nil :selected nil] ["Century Schoolbook L" (font-menu-set-font "Century Schoolbook L" nil nil) :style radio :active nil :selected nil] ["Charter" (font-menu-set-font "Charter" nil nil) :style radio :active nil :selected nil] ["Clean" (font-menu-set-font "Clean" nil nil) :style radio :active nil :selected nil] ["ClearlyU" (font-menu-set-font "ClearlyU" nil nil) :style radio :active nil :selected nil] ["ClearlyU PUA" (font-menu-set-font "ClearlyU PUA" nil nil) :style radio :active nil :selected nil] ["Computer Modern" (font-menu-set-font "Computer Modern" nil nil) :style radio :active nil :selected nil] ["Computer Modern Bright" (font-menu-set-font "Computer Modern Bright" nil nil) :style radio :active nil :selected nil] ["Computer Modern Concrete" (font-menu-set-font "Computer Modern Concrete" nil nil) :style radio :active nil :selected !
 nil] ["C
o
urier" (font-menu-set-font "Courier" nil nil) :style radio :active nil :selected nil] ["Courier 10 Pitch" (font-menu-set-font "Courier 10 Pitch" nil nil) :style radio :active nil :selected nil] ["Delphine" (font-menu-set-font "Delphine" nil nil) :style radio :active nil :selected nil] ["Dingbats" (font-menu-set-font "Dingbats" nil nil) :style radio :active nil :selected nil] ["Domestic Manners" (font-menu-set-font "Domestic Manners" nil nil) :style radio :active nil :selected nil] ["Dustismo" (font-menu-set-font "Dustismo" nil nil) :style radio :active nil :selected nil] ["Dustismo Roman" (font-menu-set-font "Dustismo Roman" nil nil) :style radio :active nil :selected nil] ["El Abogado Loco" (font-menu-set-font "El Abogado Loco" nil nil) :style radio :active nil :selected nil] ["Fixed" (font-menu-set-font "Fixed" nil nil) :style radio :active nil :selected nil] ["FreeMono" (font-menu-set-font "FreeMono" nil nil) :style radio :active nil :selected nil] ["FreeSans" (font-menu-set-font "FreeSans" nil nil) :style radio :active nil :selected nil] ["FreeSerif" (font-menu-set-font "FreeSerif" nil nil) :style radio :active nil :selected nil] ["Helvetica" (font-menu-set-font "Helvetica" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-English" (font-menu-set-font "Hershey-Gothic-English" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-German" (font-menu-set-font "Hershey-Gothic-German" nil nil) :style radio :active nil :selected nil] ["Hershey-Gothic-Italian" (font-menu-set-font "Hershey-Gothic-Italian" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex" (font-menu-set-font "Hershey-Plain-Duplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Duplex-Italic" (font-menu-set-font "Hershey-Plain-Duplex-Italic" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex" (font-menu-set-font "Hershey-Plain-Triplex" nil nil) :style radio :active nil :selected nil] ["Hershey-Plain-Triplex-Italic" (font-menu-set-font "Hershey-Plain-Trip!
 lex-Ital
i
c" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Complex" (font-menu-set-font "Hershey-Script-Complex" nil nil) :style radio :active nil :selected nil] ["Hershey-Script-Simplex" (font-menu-set-font "Hershey-Script-Simplex" nil nil) :style radio :active nil :selected nil] ["It wasn't me" (font-menu-set-font "It wasn't me" nil nil) :style radio :active nil :selected nil] ["Junkyard" (font-menu-set-font "Junkyard" nil nil) :style radio :active nil :selected nil] ["LMRoman10" (font-menu-set-font "LMRoman10" nil nil) :style radio :active nil :selected nil] ["LMSans10" (font-menu-set-font "LMSans10" nil nil) :style radio :active nil :selected nil] ["LMTypewriter10" (font-menu-set-font "LMTypewriter10" nil nil) :style radio :active nil :selected nil] ["LMTypewriterVarWd10" (font-menu-set-font "LMTypewriterVarWd10" nil nil) :style radio :active nil :selected nil] ["Lucida" (font-menu-set-font "Lucida" nil nil) :style radio :active nil :selected nil] ["LucidaBright" (font-menu-set-font "LucidaBright" nil nil) :style radio :active nil :selected nil] ["LucidaTypewriter" (font-menu-set-font "LucidaTypewriter" nil nil) :style radio :active nil :selected nil] ["Marked Fool" (font-menu-set-font "Marked Fool" nil nil) :style radio :active nil :selected nil] ["New Century Schoolbook" (font-menu-set-font "New Century Schoolbook" nil nil) :style radio :active nil :selected nil] ["Newspaper" (font-menu-set-font "Newspaper" nil nil) :style radio :active nil :selected nil] ["Nimbus Mono L" (font-menu-set-font "Nimbus Mono L" nil nil) :style radio :active nil :selected nil] ["Nimbus Roman No9 L" (font-menu-set-font "Nimbus Roman No9 L" nil nil) :style radio :active nil :selected nil] ["Nimbus Sans L" (font-menu-set-font "Nimbus Sans L" nil nil) :style radio :active nil :selected nil] ["Penguin Attack" (font-menu-set-font "Penguin Attack" nil nil) :style radio :active nil :selected nil] ["Steve" (font-menu-set-font "Steve" nil nil) :style radio :active nil :selected nil] ["Swift" (font-menu-set-font "Swift" !
 nil nil)

:style radio :active nil :selected nil] ["Terminal" (font-menu-set-font "Terminal" nil nil) :style radio :active nil :selected nil] ["Times" (font-menu-set-font "Times" nil nil) :style radio :active nil :selected nil] ["URW Bookman L" (font-menu-set-font "URW Bookman L" nil nil) :style radio :active nil :selected nil] ["URW Chancery L" (font-menu-set-font "URW Chancery L" nil nil) :style radio :active nil :selected nil] ["URW Gothic L" (font-menu-set-font "URW Gothic L" nil nil) :style radio :active nil :selected nil] ["URW Palladio L" (font-menu-set-font "URW Palladio L" nil nil) :style radio :active nil :selected nil] ["Utopia" (font-menu-set-font "Utopia" nil nil) :style radio :active nil :selected nil] ["Wargames" (font-menu-set-font "Wargames" nil nil) :style radio :active nil :selected nil] ["Winks" (font-menu-set-font "Winks" nil nil) :style radio :active nil :selected nil] ["cmex10" (font-menu-set-font "cmex10" nil nil) :style radio :active nil :selected nil] ["cmmi10" (font-menu-set-font "cmmi10" nil nil) :style radio :active nil :selected nil] ["cmr10" (font-menu-set-font "cmr10" nil nil) :style radio :active nil :selected nil] ["cmsy10" (font-menu-set-font "cmsy10" nil nil) :style radio :active nil :selected nil] ["flatline" (font-menu-set-font "flatline" nil nil) :style radio :active nil :selected nil] ["msam10" (font-menu-set-font "msam10" nil nil) :style radio :active nil :selected nil] ["msbm10" (font-menu-set-font "msbm10" nil nil) :style radio :active nil :selected nil] ["progenisis" (font-menu-set-font "progenisis" nil nil) :style radio :active nil :selected nil] ["wasy10" (font-menu-set-font "wasy10" nil nil) :style radio :active nil :selected nil]) (["6" (font-menu-set-font nil nil 6) :style radio :active nil :selected nil] ["8" (font-menu-set-font nil nil 8) :style radio :active nil :selected nil] ["10" (font-menu-set-font nil nil 10) :style radio :active nil :selected nil] ["11" (font-menu-set-font nil nil 11) :style radio :active nil :selected nil] ["12" (font-menu-set-font nil nil!
  12) :st
y
le radio :active nil :selected nil] ["13" (font-menu-set-font nil nil 13) :style radio :active nil :selected nil] ["14" (font-menu-set-font nil nil 14) :style radio :active nil :selected nil] ["15" (font-menu-set-font nil nil 15) :style radio :active nil :selected nil] ["16" (font-menu-set-font nil nil 16) :style radio :active nil :selected nil] ["17" (font-menu-set-font nil nil 17) :style radio :active nil :selected nil] ["18" (font-menu-set-font nil nil 18) :style radio :active nil :selected nil] ["20" (font-menu-set-font nil nil 20) :style radio :active nil :selected nil] ["22" (font-menu-set-font nil nil 22) :style radio :active nil :selected nil] ["24" (font-menu-set-font nil nil 24) :style radio :active nil :selected nil] ["30" (font-menu-set-font nil nil 30) :style radio :active nil :selected nil] ["36" (font-menu-set-font nil nil 36) :style radio :active nil :selected nil]) (["Light" (font-menu-set-font nil "Light" nil) :style radio :active nil :selected nil] ["Medium" (font-menu-set-font nil "Medium" nil) :style radio :active nil :selected nil] ["Demibold" (font-menu-set-font nil "Demibold" nil) :style radio :active nil :selected nil] ["Bold" (font-menu-set-font nil "Bold" nil) :style radio :active nil :selected nil] ["Black" (font-menu-set-font nil "Black" nil) :style radio :active nil :selected nil])])
  # bind (dcache)
  byte-code("..." [size entry family device-fonts-cache dcache font-data console-on-window-system-p throw menu (["Cannot parse current font" ding nil]) selected-device reset-device-font-menus font-menu-font-data default 0 1 2 3 nil (["Cannot parse current font" ding nil]) menu-split-long-menu mapcar #<compiled-function (item) "...(73)" [size weight dcache f entry item menu-item-strip-accelerator-spec 0 vassoc 1 "" 2 enable-menu-item disable-menu-item select-toggle-menu-item deselect-toggle-menu-item font-menu-ignore-scaled-fonts family] 4> weight f] 6)
  # (catch menu ...)
  # bind (ignored)
  font-menu-family-constructor(nil)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x855b320> ...)
  # (unwind-protect ...)
  # bind (inhibit-quit)
  # (unwind-protect ...)
  # (unwind-protect ...)
  ("next_event_internal()" "[internal]")
  # (unwind-protect ...)
  # bind (inhibit-quit)
  (next-event "[internal]")
  # (condition-case ... . error)
  # (catch top-level ...)