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.
__________________________________________________________________