fontification of macro name begininning with exclamdown

[Joe Corneli]

In the definition of the macro given below, the macro's name is spelled

 exclamdown s e t

The name is not fontified correctly by font lock.

(defmacro ¡set (a b)
  `(progn (setq ,a ,b)
          (format "multiverse = %s, history = %s" multiverse history)))


In GNU Emacs 22.0.50.4 (powerpc-apple-darwin7.5.0, X toolkit, Xaw3d scroll bars)
 of 2005-03-24 on hope-of-a-stone.local
Distributor `The XFree86 Project, Inc', version 11.0.40300000
configured using `configure '--with-x' '--without-carbon' '--with-xpm' 
'--with-jpeg' '--with-tiff' '--with-gif' '--with-png' 'CFLAGS=-I/sw/include' 
'CPPFLAAGS=-I/sw/include' 'LDFLAGS=-L/sw/lib''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  auto-image-file-mode: t
  show-paren-mode: t
  display-time-mode: t
  mouse-wheel-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-x C-e <up> <up> <up> <down> C-a M-f M-f M-f C-x C-e 
<down> <down> C-a C-h f n d <tab> <backspace> <tab> 
d <tab> <backspace> <tab> <tab> C-g C-x b c <tab> <return> 
C-s d e l e C-r t e C-r C-r C-r - i f C-r C-r C-r <up> 
C-r d e r M-< C-h f d e l e t e <return> C-x o C-h 
f d e l e t e * <return> C-x o C-x o <tab> <return> 
C-x b <return> <down> <down> C-SPC <C-right> M-w M-x 
r e p <tab> o r <tab> <return>

Recent messages:
((t t 1 2 3) (t t 1 2 3))
(nil nil 1 2 3)
Making completion list... [2 times]
Quit
Mark saved where search started [2 times]
Type C-x 1 to remove help window.  C-M-v to scroll the help.
mouse-2, RET: find function's definition
Mark set
Making completion list...
Loading emacsbug...done