bug#2984: deftype bad fontification

[Robert Brown <brown@google.com>]

If you have the following Common Lisp code in a file called foo.lisp:

    (deftype foobar () "documentation" '(unsigned-byte 64))

font lock mode will display the documentation string using, I believe,
font-lock-string-face.  Instead, font-lock-doc-face should be used.
To fix the problem, look for

    (put 'defun    'doc-string-elt 3)

in lisp/emacs-lisp/lisp-mode.el and add the following line after it:

    (put 'deftype 'doc-string-elt 3)

That is, deftype should be treated just as defun or defmacro for the purpose
of fontifying the documentation string.

This bug is present in recent CVS versions of Emacs.



In GNU Emacs 22.0.55.1 (i686-pc-linux-gnu)
 of 2006-10-02 on eugene.nyc.corp.google.com
configured using `configure '--prefix=/local/software/package/emacs-22.0.55.4''

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

Major mode: Lisp

Minor modes in effect:
  eldoc-mode: t
  shell-dirtrack-mode: t
  slime-highlight-edits-mode: t
  slime-mode: t
  encoded-kbd-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
DEL DEL DEL DEL i g n e d - b y t e SPC 6 4 ) ) RET 
C-x C-f $ E L I S P TAB e m a c s TAB e DEL i TAB l 
i s p TAB - m o TAB RET C-s d e f u n SPC C-a C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-x b RET ESC x e m 
a c s = - DEL DEL DEL s - b u TAB ESC DEL ESC DEL r 
e p o r t - TAB RET

Recent messages:
Loading easy-mmode...done
Loading derived...done
Loading edmacro...done
Loading byte-opt...done
Loading /local/software/source-trees/slime/slime.el (source)...done
Loading eldoc...done
Auto-saving...done
Making completion list...
Mark saved where search started
Loading emacsbug...done