Michael Olson <mwolson <at> gnu.org> writes:
>
> Boolda <boolda <at> yahoo.com> writes:
>
> > Muse-mode works nicely. But when I add
> > (require 'planner) to my .emacs, it always shows the error:
> >
> > Wrong type argument: stringp, #<font-instance "-*-bitstream vera
> > sans mono-medium-r-*-*-*-90-*-*-*-*-*-*" on #<x-device on ":0.0"
> > 0x1e0e2> xft font: 0x116d2a0 0x2909b>
> >
> > This is true for any font I use. Planner simply does not work with
> > this version of xemacs.
>
> If you could, please send a backtrace to the list by following the
> instructions at
> http://www.mwolson.org/projects/ReportingEmacsLispBugs.html.
>
Here is the bactrace:
(1) (initialization/error) An error has occurred while loading
/home/malay/.emacs:
Wrong type argument: stringp, #<font-instance
"-*-consolas-medium-r-*-*-*-90-*-*-*-*-*-*" on #<x-device on ":0.0"
0x1e0ee> xft font: 0x116c450 0x290ad>
Backtrace follows:
fc-name-parse(#<font-instance
"-*-consolas-medium-r-*-*-*-90-*-*-*-*-*-*" on #<x-device on ":0.0"
0x1e0ee> xft font: 0x116c450 0x290ad>) # bind (device font)
x-make-font-bold-xft(#<font-instance
"-*-consolas-medium-r-*-*-*-90-*-*-*-*-*-*" on #<x-device on ":0.0"
0x1e0ee> xft font: 0x116c450 0x290ad> nil) # bind (device font)
x-make-font-bold(#<font-instance
"-*-consolas-medium-r-*-*-*-90-*-*-*-*-*-*" on #<x-device on ":0.0"
0x1e0ee> xft font: 0x116c450 0x290ad>) (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("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("planner" nil require nil binary) # bind (path handler
filename nosuffix nomessage noerror file) load("planner" nil require
nil) # (unwind-protect ...) require(planner) # (unwind-protect ...)
# (unwind-protect ...) # (unwind-protect ...) # (unwind-protect
...) # (unwind-protect ...) # (unwind-protect ...) #
(unwind-protect ...) # (unwind-protect ...)
load-internal("/home/malay/.emacs" t t t binary) # bind (path
handler filename nosuffix nomessage noerror file)
load("/home/malay/.emacs" 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() # (condition-case ... . ((t
(byte-code " Â" [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.
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
