From xemacs-m  Tue Jun 24 15:57:45 1997
Received: from varenorn (root@icemark.thenet.ch [193.135.252.47])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA25726
	for <xemacs-beta@xemacs.org>; Tue, 24 Jun 1997 15:57:34 -0500 (CDT)
Received: from fenun ([193.135.252.179]) by varenorn
	 with smtp (ident beh using rfc1413) id m0wgbgL-0003tbC
	(Debian Smail-3.2 1996-Jul-4 #2); Tue, 24 Jun 1997 21:55:17 +0200 (CEST)
Date: Tue, 24 Jun 1997 22:58:44 +0200 (CEST)
From: Benedikt Eric Heinen <beh@icemark.ch>
X-Sender: beh@fenun
To: XEmacs Beta mailing list <xemacs-beta@xemacs.org>
Subject: Invalid color instantiator ?
Message-ID: <Pine.LNX.3.96.970624225129.17552C-100000@fenun>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII


Hi there,

  when I try to run Tower's Eiffel mode under XEmacs I get the error
message 'Invalid color instantiator'. Tower says, that the Eiffel mode
works under XEmacs 19.14, but they do not yet have any newer XEmacs
installations around. Any ideas what might cause this problem?

  If you have any ideas, please mail Steve Tynor <tynor@atlanta.twr.com>,
or - in case you want to have a look at the package, you can mail me, and
I'll mail you the elisp code [~30KB gzipped] (I've been authorized by
Steve Tynor to do this).

Appended is the elisp backtrace from such an error situation, maybe it'll
give a clue as to what is wrong...

   Benedikt


Signaling: (error "Invalid color instantiator" nil)
  check-valid-instantiator(nil color)
  canonicalize-spec-list(nil color)
  set-specifier(#<color-specifier global=<unspecified>
fallback=#<color-specifier global=(... . "Black") fallback=(... ...)
0x174> 0xc1b> nil nil nil nil)
  set-face-property(eif-quoted-feature foreground nil nil nil nil)
  set-face-foreground(eif-quoted-feature nil)
  (and (emacs-type-eq (quote lucid)) (emacs-version>= 19)
(emacs-minor-version< 14) (set-face-foreground face nil))
)
  (cond ((and ... ... ... ...)) ((and ... ... ...) nil) ((emacs-type-eq
...) nil) ((and ... ...) (set-face-foreground face nil)))
)
  (cond ((stringp color) (condition-case error ... ...)) ((eq color ...)
(cond ... ... ... ...)) ((eq color ...) (cond ... ... ...)))
)
  eif-set-foreground(eif-quoted-feature context)
  (progn (eif-set-foreground (quote eif-comment) eif-comment-color)
(eif-set-font (quote eif-comment) eif-comment-font) (eif-set-foreground
(quote eif-hidden-comment) eif-hidden-comment-color) (eif-set-font (quote
eif-hidden-comment) eif-hidden-comment-font) (eif-set-foreground (quote
eif-quoted-feature) eif-quoted-feature-color) (eif-set-font (quote
eif-quoted-feature) eif-quoted-feature-font) (eif-set-foreground (quote
eif-major-keyword) eif-major-keyword-color) (eif-set-font (quote
eif-major-keyword) eif-major-keyword-font) (eif-set-foreground (quote
eif-minor-keyword) eif-minor-keyword-color) (eif-set-font (quote
eif-minor-keyword) eif-minor-keyword-font) (eif-set-foreground (quote
eif-assertion) eif-assertion-keyword-color) (eif-set-font (quote
eif-assertion) eif-assertion-keyword-font) (eif-set-foreground (quote
eif-string) eif-string-color) (eif-set-font (quote eif-string)
eif-string-font))
)
  (if (eif-supports-color-p) (progn (eif-set-foreground ...
eif-comment-color) (eif-set-font ... eif-comment-font) (eif-set-foreground
... eif-hidden-comment-color) (eif-set-font ... eif-hidden-comment-font)
(eif-set-foreground ... eif-quoted-feature-color) (eif-set-font ...
eif-quoted-feature-font) (eif-set-foreground ... eif-major-keyword-color)
(eif-set-font ... eif-major-keyword-font) (eif-set-foreground ...
eif-minor-keyword-color) (eif-set-font ... eif-minor-keyword-font)
(eif-set-foreground ... eif-assertion-keyword-color) (eif-set-font ...
eif-assertion-keyword-font) (eif-set-foreground ... eif-string-color)
(eif-set-font ... eif-string-font)) (eif-set-foreground (quote
eif-comment) default-foreground-color) (eif-set-font (quote eif-comment)
eif-comment-font) (eif-set-foreground (quote eif-hidden-comment)
default-foreground-color) (eif-set-font (quote eif-hidden-comment)
eif-hidden-comment-font) (eif-set-foreground (quote eif-quoted-feature)
default-foreground-color) (eif-set-font (quote eif-quoted-feature)
eif-quoted-feature-font) (eif-set-foreground (quote eif-major-keyword)
default-foreground-color) (eif-set-font (quote eif-major-keyword)
eif-major-keyword-font) (eif-set-foreground (quote eif-minor-keyword)
default-foreground-color) (eif-set-font (quote eif-minor-keyword)
eif-minor-keyword-font) (eif-set-foreground (quote eif-assertion)
default-foreground-color) (eif-set-font (quote eif-assertion)
eif-assertion-keyword-font) (eif-set-foreground (quote eif-string)
default-foreground-color) (eif-set-font (quote eif-string)
eif-string-font))
)
  eif-init-color()
  (progn (cond (... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (...
... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (defvar
default-foreground-color (quote default) "Default text color in Eiffel and
Ace files (either a color name string or 'default or 'context)") (defvar
disable-color nil "Should hilighting not use colors") (defun
eif-set-foreground (face color) "Set the FACE's foreground color to COLOR
if COLOR is a string, to the default foreground color if COLOR is
'default, or to the color of the surrounding text if COLOR is 'context"
(cond ... ... ...)) (defun eif-set-font (face font) "Set the FACE's font
to FONT if FONT is a string, to the default font if FONT is 'default, or
to the font of the surrounding text if FONT is 'context" (cond ... ...
...)) (defun eif-supports-color-p nil (and ... ...)) (defun eif-init-color
nil "Reset the Eiffel fonts and faces from the values of their repective
variables" (make-face ...) (make-face ...) (make-face ...) (make-face ...)
(make-face ...) (make-face ...) (make-face ...) (if ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ...) (cond ... ...))
(eif-init-color))
)
  (if (or (featurep ...) (featurep ...) (featurep ...)) (progn (cond ...
... ...) (defvar default-foreground-color ... "Default text color in
Eiffel and Ace files (either a color name string or 'default or
'context)") (defvar disable-color nil "Should hilighting not use colors")
(defun eif-set-foreground ... "Set the FACE's foreground color to COLOR if
COLOR is a string, to the default foreground color if COLOR is 'default,
or to the color of the surrounding text if COLOR is 'context" ...) (defun
eif-set-font ... "Set the FACE's font to FONT if FONT is a string, to the
default font if FONT is 'default, or to the font of the surrounding text
if FONT is 'context" ...) (defun eif-supports-color-p nil ...) (defun
eif-init-color nil "Reset the Eiffel fonts and faces from the values of
their repective variables" ... ... ... ... ... ... ... ... ...)
(eif-init-color)))
)
  load-internal("eiffel3" nil t nil nil nil)
  load("eiffel3" nil t nil)
  require(eiffel3)
  load-internal("tower" nil t nil nil nil)
  load("tower" nil t nil)
  require(tower)
  (if (not eif-menu-local) (require (quote tower)))
)
  load-internal("tinstall" nil nil nil nil nil)
  load("tinstall")
  #<compiled-function (from "lib-complete.elc") (library) "...(4)" [load
library] 2 1063822 (list (read-library "Load Library: " load-path nil nil
nil ...))>("tinstall")
  call-interactively(load-library)
  command-execute(load-library t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)




signoff

          Hiroshima '45           Chernobyl '86           Windows '95

