sml-mode error

[jhb9149]

Hi,

I get the error file mode specification error: (void variable
bad-style-face) while trying to open a sml program.  I am running
xemacs 21.1 on windows 2000 machine.  Can anyone help me?  Oh, and
below is the traceback.

-Jaime

Signaling: (void-variable bad-style-face)
  eval(bad-style-face)
  (let ((matcher ...) (lowdarks ...) highlights (pre-match-value ...))
(if (and ... ...) (setq limit pre-match-value) (save-excursion ...
...)) (save-match-data (while ... ... ...)) (eval (nth 2 keywords)))
)
  font-lock-fontify-anchored-keywords((quote bad-style-face) 2665)
  (if (numberp (car ...)) (let (...) (font-lock-apply-highlight ...)
(and end ...)) (font-lock-fontify-anchored-keywords (car highlights)
end))
)
  (while highlights (if (numberp ...) (let ... ... ...)
(font-lock-fontify-anchored-keywords ... end)) (setq highlights (cdr
highlights)))
)
  (while (and (< ... end) (if ... ... ...)) (setq highlights (cdr
keyword)) (while highlights (if ... ... ...) (setq highlights ...)))
)
  (while keywords (when loudly (lmessage ... "Fontifying %s...
(regexps..%s)" bufname ...)) (setq keyword (car keywords) matcher (car
keyword)) (goto-char start) (while (and ... ...) (setq highlights ...)
(while highlights ... ...)) (setq keywords (cdr keywords)))
)
  (let ((case-fold-search font-lock-keywords-case-fold-search)
(keywords ...) (bufname ...) (count 0) keyword matcher highlights)
(while keywords (when loudly ...) (setq keyword ... matcher ...)
(goto-char start) (while ... ... ...) (setq keywords ...)))
)
  (let ((loudly ...)) (let (... ... ... ... keyword matcher
highlights) (while keywords ... ... ... ... ...)) (if loudly (lmessage
... "Fontifying %s... done." ...)))
)
  font-lock-fontify-keywords-region(1 2665 nil)
  (progn (if font-lock-syntax-table (set-syntax-table
font-lock-syntax-table)) (if font-lock-keywords-only
(font-lock-unfontify-region beg end)
(font-lock-fontify-syntactically-region beg end loudly))
(font-lock-fontify-keywords-region beg end loudly))
)
  (unwind-protect (progn (if font-lock-syntax-table ...) (if
font-lock-keywords-only ... ...) (font-lock-fontify-keywords-region
beg end loudly)) (set-syntax-table old-syntax-table) (and (not
modified) (buffer-modified-p) (set-buffer-modified-p nil)))
)
  (let ((modified ...) (buffer-undo-list t) (inhibit-read-only t)
(old-syntax-table ...) buffer-file-name buffer-file-truename)
(unwind-protect (progn ... ... ...) (set-syntax-table
old-syntax-table) (and ... ... ...)))
)
  font-lock-default-fontify-region(1 2665 nil)
  funcall(font-lock-default-fontify-region 1 2665 nil)
  font-lock-fontify-region(1 2665)
  (save-excursion (font-lock-fontify-region (point-min) (point-max)))
)
  (condition-case nil (save-excursion (font-lock-fontify-region ...
...)) (quit (setq aborted t)))
)
  (let ((was-on font-lock-mode) (font-lock-verbose ...)
(font-lock-message-threshold 0) (aborted nil)) (or was-on
(font-lock-mode 1)) (font-lock-unfontify-region (point-min)
(point-max) t) (condition-case nil (save-excursion ...) (quit ...))
(or was-on (let ... ...)) (set (make-local-variable ...) t) (when (and
aborted font-lock-verbose) (lmessage ... "Fontifying %s... aborted."
...)))
)
  font-lock-default-fontify-buffer()
  funcall(font-lock-default-fontify-buffer)
  (let ((font-lock-verbose ...)) (funcall
font-lock-fontify-buffer-function))
)
  font-lock-fontify-buffer()
  (cond (font-lock-fontified nil) ((or ... ...)
(font-lock-fontify-buffer)) (font-lock-verbose (lmessage ...
"Fontifying %s... buffer too big." ...)))
)
  (cond (on-p (font-lock-set-defaults-1) (make-local-hook ...)
(make-local-hook ...) (add-hook ... ... nil t) (add-hook ... ... nil
t) (run-hooks ...) (cond ... ... ...)) (font-lock-fontified (setq
font-lock-fontified nil) (remove-hook ... ... t) (remove-hook ... ...
t) (font-lock-unfontify-region ... ...)
(font-lock-thing-lock-cleanup)) (t (remove-hook ... ... t)
(remove-hook ... ... t) (font-lock-thing-lock-cleanup)))
)
  (let ((on-p ...) (maximum-size ...)) (if (or noninteractive ...)
(setq on-p nil)) (if (equal ... " *Compiler Input*") (setq on-p nil))
(cond (on-p ... ... ...) (t ... ...)) (set (make-local-variable ...)
on-p) (cond (on-p ... ... ... ... ... ... ...) (font-lock-fontified
... ... ... ... ...) (t ... ... ...)) (redraw-modeline))
)
  font-lock-mode(1)
  turn-on-font-lock()
  (and sml-font-lock-auto-on (turn-on-font-lock))
)
  sml-font-lock-setup()
  run-hooks(sml-font-lock-setup)
  (lambda nil "Major mode for editing ML code.\nTab indents for ML
code.\nComments are delimited with (* ... *).\nBlank lines and
form-feeds separate paragraphs.\nDelete converts tabs to spaces as it
moves back.\n\nFor information on running an inferior ML process, see
the documentation\nfor inferior-sml-mode (set this up with
\\[sml]).\n\nCustomisation: Entry to this mode runs the hooks on
sml-mode-hook.\n\nVariables controlling the
indentation\n=====================================\n\nSeek help
(\\[describe-variable]) on individual variables to get current
settings.\n\nsml-indent-level (default 4)\n    The indentation of a
block of code.\n\nsml-pipe-indent (default -2)\n    Extra indentation
of a line starting with \"|\".\n\nsml-case-indent (default nil)\n   
Determine the way to indent case-of
expression.\n\nsml-nested-if-indent (default nil)\n    Determine how
nested if-then-else expressions are formatted.\n\nsml-type-of-indent
(default t)\n    How to indent let, struct, local, etc.\n    Will not
have any effect if the starting keyword is first on the
line.\n\nsml-electric-semi-mode (default nil)\n    If t, a `;' will
reindent line, and perform a newline.\n\nsml-paren-lookback (default
1000)\n    Determines how far back (in chars) the indentation
algorithm should \n    look to match parenthesis. A value of nil,
means do not look at all.\n\nMode map\n========\n\\{sml-mode-map}"
(interactive) (kill-all-local-variables) (sml-mode-variables)
(use-local-map sml-mode-map) (setq major-mode (quote sml-mode)) (setq
mode-name "SML") (run-hooks (quote sml-mode-hook)))()
  call-interactively(sml-mode)
  command-execute(sml-mode t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command