Error loading latest xemacs beta with Xft=emacs

[robert delius royar]

After the recent changes to move toward fontconfig, XEmacs 21.5.26 
exits at load if I have an init file with font setup code in it.  I am 
not sure which code causes the crash.  I would be happy to do some 
debugging--trying different configs.  I currently have a version running 
--without-xft, but I miss the clean fonts of --with-xft.
I have some set-specifiers at the top of my init, (require 'iso-syntax)
(require 'iso-acc), and some functions that create integrated faces 
(i.e. that use set-face-font and custom-set-faces to cobble together 
fonts with "pleasing" substitutions).  I also set one font that has all 
the parts itself as the default:

(defun font-vera ()
   (interactive)
   (set-face-font 'default "Bitstream Vera Sans Mono-12")
   (set-face-font 'modeline "Bitstream Vera Sans Mono-10")
   (set-face-font 'buffers-tab "Bitstream Vera Sans Mono-9")
   (custom-set-faces
    '(default ((t (:size "12pt" :family "Vera Sans Mono" :background 
"white"))) t)
    '(italic ((t (:size "12pt" :family "Vera Sans Mono Oblique" :oblique 
t:background "white"))) t)
    '(bold-italic ((t (:size "12pt" :family "Vera Sans Mono Bold Oblique" 
:bold t :oblique t :background "white"))) t)
    '(bold ((t (:size "12pt" :family "Vera Sans Mono Bold" :bold t 
:background "white"))) t)
    '(primary-selection ((t (:background "yellow1"))) t)
    '(text-cursor ((t (:foreground "black" :background "turquoise" 
:inverse-video nil))) t)
    '(zmacs-region ((t (:background "yellow"))) t)
    '(buffers-tab ((t (:foreground "blue" :background "gainsboro"))) t)
    '(default-gutter ((t (:background "gainsboro" :foreground 
"gainsboro"))) t)
    '(top-gutter ((t (:background "gainsboro" :foreground "gainsboro"))) 
t)
    '(modeline ((t (:background "lightskyblue"))) t)
    '(html-helper-italic-face ((t (:oblique t))))
    '(html-helper-bold-face ((t (:bold t))))
    '(html-helper-underline-face ((t (:underline t))))
    '(html-helper-strikethrough-face ((t (:strikethru t))))
    '(html-helper-link-face ((t (:foreground "blue"))))
    '(html-helper-significant-tag-face ((t (:foreground "salmon"))))
    '(flyspell-incorrect-face ((t (:foreground "OrangeRed" :underline 
t))))
    '(flyspell-duplicate-face ((t (:foreground "Gold3" :underline t)))))
   (set-face-font 'html-helper-italic-face "Bitstream Vera Sans Mono 
Oblique-12:oblique")
   (set-face-font 'html-helper-bold-face "Bitstream Vera Sans Mono 
Bold-12:bold")
   (set-face-font 'html-helper-underline-face "Bitstream Vera Sans 
Mono-12")
   (set-face-font 'html-helper-strikethrough-face "Bitstream Vera Sans 
Mono-12")
   (set-face-font 'html-helper-link-face "Bitstream Vera Sans Mono-12")
   (set-face-font 'html-helper-significant-tag-face "Bitstream Vera Sans 
Mono Bold-12:bold")
   (set-face-font 'flyspell-incorrect-face "Bitstream Vera Sans Mono-12")
   (set-face-font 'flyspell-duplicate-face "Bitstream Vera Sans Mono-12")
   (set-frame-size (selected-frame) 132 56)
   (recenter)
   )
[...]
(font-vera)

Here is the config used to make the XEmacs that exits on init:

./configure  --enable-mule --enable-widgets=athena --with-athena=3d \
 	--enable-dialogs=athena --enable-scrollbars=lucid \
 	--disable-error-checking --disable-debug --with-union-type \
 	--with-package-path=${XEmacsPPath} --with-dynamic \
 	--prefix=${ParentPath} --with-prefix --with-png --with-jpeg --with-tiff \
 	--with-xmu --with-xim=no --enable-sound=esd --disable-xfs \
 	--enable-dump-in-exec --enable-modules --enable-external-widget \
 	--with-dynamic --disable-kkcc --disable-mc-alloc \
 	--enable-optimization --with-cflags-optimization='-Os -pipe -mcpu=970 -mtune=970 -mpim-altivec' \
 	--with-site-runtime-libraries="/opt/local/lib:/usr/X11R6/lib" \
 	--with-site-libraries="/opt/local/lib:/usr/X11R6/lib" --with-xft=emacs,tabs,gauges,nomenubars


Here is the console output from when XEmacs aborts (XEmacs does not 
crash; it just exits):

*** Error in XEmacs initialization
(unimplemented "font-mgr library is experimental and incomplete")
*** Backtrace
   really-early-error-handler((unimplemented "font-mgr library is 
experimental and incomplete"))
   signal(unimplemented ("font-mgr library is experimental and 
incomplete"))
   # bind (args datum)
   cerror(unimplemented "font-mgr library is experimental and 
incomplete")
   apply(cerror unimplemented "font-mgr library is experimental and 
incomplete")
   # bind (args datum)
   error(unimplemented "font-mgr library is experimental and incomplete")
   # bind (type id property pattern)
   fc-pattern-get(#<INTERNAL OBJECT (XEmacs bug?) (fc-pattern) 0x29015a0> 
"size" 0)
   # bind (pattern id pattern device font)
   x-make-font-bold-xft("monospace-12" #<x-device on ":0.0" 0x24618>)
   # bind (device font)
   x-make-font-bold("monospace-12" #<x-device on ":0.0" 0x24618>)
   # bind (mapper G42994 G42993 devtype tag-set x G42992 ffpdev 
devtype-spec prop inst-list locale)
   frob-face-inst-list(global (((default tty) . "normal") ((default x) . 
"monospace-12") ((default x) . "Sazanami Mincho-12")) font 
window-system)
   # bind (thunk inst-list locale sp)
   frob-locale(#<font-specifier global=(((default tty) . "normal") 
((default x) . "monospace-12") ((default x) . "Sazanami Mincho-12")) 
fallback=#<font-specifier global=<unspecified> fallback=(((tty) . 
"normal") ((x) . "monospace-12") ((x) . "Sazanami Mincho-12")) 0x1e8c> 
0x13575> global (((default tty) . "normal") ((default x) . 
"monospace-12") ((default x) . "Sazanami Mincho-12")) (font . 
window-system))
   # bind (ms-this-spec ms-specs ms-result ms-exact-p ms-tag-set 
ms-maparg ms-locale ms-func ms-specifier)
   map-specifier(#<font-specifier global=(((default tty) . "normal") 
((default x) . "monospace-12") ((default x) . "Sazanami Mincho-12")) 
fallback=#<font-specifier global=<unspecified> fallback=(((tty) . 
"normal") ((x) . "monospace-12") ((x) . "Sazanami Mincho-12")) 0x1e8c> 
0x13575> frob-locale global (font . window-system) nil nil)
   # bind (locale)
   map-over-locales(global)
   # bind (do-something orig-instance check-differences domain 
do-later-stages ffpdev)
   # (unwind-protect ...)
   # bind (--letf-save--42989 --letf-bound--42990)
   # (unwind-protect ...)
   # bind (--letf-save--42985 --letf-bound--42986)
   # (unwind-protect ...)
   # bind (--letf-save--42981 --letf-bound--42982)
   # (unwind-protect ...)
   # bind (--letf-save--42977 --letf-bound--42978)
   # (unwind-protect ...)
   # bind (--letf-save--42973 --letf-bound--42974 standard-face-mapping 
frob-mapping tty-props win-prop frobbed-face unfrobbed-face exact-p 
tag-set locale face)
   Face-frob-property(bold global nil nil default bold font (highlight) 
(tty (lambda (x) t) x x-make-font-bold gtk gtk-make-font-bold mswindows 
mswindows-make-font-bold msprinter mswindows-make-font-bold) (([default] 
. [bold]) ([bold] . t) ([italic] . [bold-italic]) ([bold-italic] . t)))
   # bind (exact-p tags locale face)
   make-face-bold(bold global)
   # bind (Face-frob-property-device-considered-current device)
   init-global-faces(#<x-device on ":0.0" 0x24618>)
   # (unwind-protect ...)
   # (unwind-protect ...)
   # bind (inhibit-quit)
   # (unwind-protect ...)
  # (unwind-protect ...)
   make-device(x nil)
   # bind (display)
   make-x-device(nil)
   init-x-win()
   # bind (debugger debug-on-error command-line-args-left)
   command-line()
   # (condition-case ... . ((t (byte-code "      Â" [error-data data nil] 
1))))
   # bind (error-data)
   normal-top-level()
   # (condition-case ... . error)
   # (catch top-level ...)
*** Killing XEmacs



-- 
Dr. Robert Delius Royar                   Associate Professor of English
Morehead State University                             Morehead, Kentucky
                                    Making meaning one message at a time.
   California is a dream in the mind of a New Yorker.
                                     -Nicholson Baker
   6:30 up 20 days, 2:02, 1 user, load averages: 0.19 0.54 0.50