errors when trying to start Xft enabled xemacs

[Sean Dague]

When I try to start Xft enabled xemacs (cvs pull from this morning), I get
the following error:

(1) (initialization/error) An error has occurred while loading
/home/sdague/.xemacs/init.elc:

Wrong type argument: stringp, #<font-instance "monospace-12" on #<x-device
on ":0.0" 0x23f0c> xft font: 0x85a52f0 0x27a8e>

Backtrace follows:

  fc-font-real-pattern(#<font-instance "monospace-12" on #<x-device on
":0.0" 0x23f0c> xft font: 0x85a52f0 0x27a8e> #<x-device on ":0.0" 0x23f0c>)
  # bind (device font)
  x-make-font-bold-xft(#<font-instance "monospace-12" on #<x-device on
":0.0" 0x23f0c> xft font: 0x85a52f0 0x27a8e> nil)
  # bind (device font)
  x-make-font-bold(#<font-instance "monospace-12" on #<x-device on ":0.0"
0x23f0c> xft font: 0x85a52f0 0x27a8e>)
  (let ((bfont (x-make-font-bold (face-font-instance (quote default))))
(mono-tag (list (quote x) (quote mono))) (gray-tag (list (quote x) (quote
grayscale)))) (if bfont (progn (set-face-font (quote diary-face) bfont
(quote global) mono-tag) (set-face-font (quote diary-face) bfont (quote
global) gray-tag))))
  (if (and (not noninteractive) (fboundp (quote x-make-font-bold))) (let
((bfont (x-make-font-bold (face-font-instance (quote default)))) (mono-tag
(list (quote x) (quote mono))) (gray-tag (list (quote x) (quote
grayscale)))) (if bfont (progn (set-face-font (quote diary-face) bfont
(quote global) mono-tag) (set-face-font (quote diary-face) bfont (quote
global) gray-tag)))))
  (cond ((face-differs-from-default-p (quote diary-face)) nil) (t
(set-face-foreground (quote diary-face) "red" (quote global) (quote (x
color))) (set-face-highlight-p (quote diary-face) t (quote global) (quote
tty)) (if (and (not noninteractive) (fboundp (quote x-make-font-bold))) (let
((bfont (x-make-font-bold (face-font-instance (quote default)))) (mono-tag
(list (quote x) (quote mono))) (gray-tag (list (quote x) (quote
grayscale)))) (if bfont (progn (set-face-font (quote diary-face) bfont
(quote global) mono-tag) (set-face-font (quote diary-face) bfont (quote
global) gray-tag)))))))
  (progn (make-face (quote diary-face)) (cond ((face-differs-from-default-p
(quote diary-face)) nil) (t (set-face-foreground (quote diary-face) "red"
(quote global) (quote (x color))) (set-face-highlight-p (quote diary-face) t
(quote global) (quote tty)) (if (and (not noninteractive) (fboundp (quote
x-make-font-bold))) (let ((bfont (x-make-font-bold (face-font-instance
(quote default)))) (mono-tag (list (quote x) (quote mono))) (gray-tag (list
(quote x) (quote grayscale)))) (if bfont (progn (set-face-font (quote
diary-face) bfont (quote global) mono-tag) (set-face-font (quote diary-face)
bfont (quote global) gray-tag))))))) (quote diary-face))
  eval((progn (make-face (quote diary-face)) (cond
((face-differs-from-default-p (quote diary-face)) nil) (t
(set-face-foreground (quote diary-face) "red" (quote global) (quote (x
color))) (set-face-highlight-p (quote diary-face) t (quote global) (quote
tty)) (if (and (not noninteractive) (fboundp (quote x-make-font-bold))) (let
((bfont (x-make-font-bold (face-font-instance (quote default)))) (mono-tag
(list (quote x) (quote mono))) (gray-tag (list (quote x) (quote
grayscale)))) (if bfont (progn (set-face-font (quote diary-face) bfont
(quote global) mono-tag) (set-face-font (quote diary-face) bfont (quote
global) gray-tag))))))) (quote diary-face)))
  # bind (value symbol)
  custom-initialize-reset(diary-entry-marker (progn (make-face (quote
diary-face)) (cond ((face-differs-from-default-p (quote diary-face)) nil) (t
(set-face-foreground (quote diary-face) "red" (quote global) (quote (x
color))) (set-face-highlight-p (quote diary-face) t (quote global) (quote
tty)) (if (and (not noninteractive) (fboundp (quote x-make-font-bold))) (let
((bfont (x-make-font-bold (face-font-instance (quote default)))) (mono-tag
(list (quote x) (quote mono))) (gray-tag (list (quote x) (quote
grayscale)))) (if bfont (progn (set-face-font (quote diary-face) bfont
(quote global) mono-tag) (set-face-font (quote diary-face) bfont (quote
global) gray-tag))))))) (quote diary-face)))
  # bind (initialize requests args doc default symbol)
  custom-declare-variable(diary-entry-marker (progn (make-face (quote
diary-face)) (cond ((face-differs-from-default-p (quote diary-face)) nil) (t
(set-face-foreground (quote diary-face) "red" (quote global) (quote (x
color))) (set-face-highlight-p (quote diary-face) t (quote global) (quote
tty)) (if (and (not noninteractive) (fboundp (quote x-make-font-bold))) (let
((bfont (x-make-font-bold (face-font-instance (quote default)))) (mono-tag
(list (quote x) (quote mono))) (gray-tag (list (quote x) (quote
grayscale)))) (if bfont (progn (set-face-font (quote diary-face) bfont
(quote global) mono-tag) (set-face-font (quote diary-face) bfont (quote
global) gray-tag))))))) (quote diary-face)) "*How to mark dates that have
diary entries.\nThe value can be either a single-character string or a
face.":type (choice string face) :group diary)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  (load-internal "[internal]")
  load-internal("calendar" nil require nil binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("calendar" nil require nil)
  # (unwind-protect ...)
  require(calendar)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  (load-internal "[internal]")
  load-internal("planner" nil require nil binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("planner" nil require nil)
  # (unwind-protect ...)
  require(planner)
  byte-code("..." [global-mode-string emacs-version load-path
current-load-list put narrow-to-region disabled nil running-xemacs
default-boundp set-default string-match "XEmacs\\|Lucid" expand-file-name
"~/elisp" "/usr/local/share/emacs/site-lisp" add-to-list
"~/xemacs-el/emacs-wiki-2.70" "~/xemacs-el/planner-el-3.30"
"~/xemacs-el/remember-el-1.6" require planner planner-option-customized
planner-directory "~/plans" planner-publishing-directory
"~/public_html/plans" set-face-font default "Arial-18" prepend diary-face
emacs-wiki-menu] 6)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  (load-internal "[internal]")
  load-internal("/home/sdague/.xemacs/init.elc" t t t binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("/home/sdague/.xemacs/init.elc" t t t)
  load-user-init-file()
  #<compiled-function nil "...(10)" [init-file-had-error
load-user-init-file-p load-user-init-file nil] 2>()
  # (unwind-protect ...)
  call-with-condition-handler(#<compiled-function (__load_init_file_arg__)
"...(26)" [init-file-had-error user-init-file __load_init_file_arg__ errstr
error-message-string message "Error in init file: %s" lwarn initialization
error "An error has occurred while loading %s:\n\n%s\n\nBacktrace
follows:\n\n%s\n\nTo ensure normal operation, you should investigate the
cause of the error\nin your initialization file and remove it.  Use the
`-debug-init' option\nto XEmacs to enter the debugger when the error occurs
and investigate the\nexact problem."
backtrace-in-condition-handler-eliminating-handler t] 8> #<compiled-function
nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file
nil] 2>)
  # (condition-case ... . ((error)))
  # bind (debug-on-error debug-on-error-from-init-file
debug-on-error-should-be-set debug-on-error-initial)
  load-init-file()
  # bind (command-line-args-left)
  command-line()‡" [error-data data nil] 1))))
  # bind (error-data)
  normal-top-level()
  # (condition-case ... . error)
  # (catch top-level ...)


To ensure normal operation, you should investigate the cause of the error
in your initialization file and remove it.  Use the `-debug-init' option
to XEmacs to enter the debugger when the error occurs and investigate the
exact problem.

..........................................

-debug-init doesn't do anything useful for me.

If I then manually evaluate init.el, and custom.el, everything is fine, and
my fonts are all nicely antialiased.  However it would be nice if I didn't
have this manual start step each time.

Any pointers as to configuration I could change to get rid of this is would
be great.  I'm on Mandriva Linux 2006, latest cvs of xemacs.

	-Sean

-- 
__________________________________________________________________

Sean Dague                                       Mid-Hudson Valley
sean at dague dot net                            Linux Users Group
http://dague.net                                 http://mhvlug.org

There is no silver bullet.  Plus, werewolves make better neighbors
than zombies, and they tend to keep the vampire population down.
__________________________________________________________________
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
Url : http://calypso.tux.org/pipermail/xemacs-beta/attachments/20051216/ba4e022f/attachment.bin