(define-abbrev-table): Fontify dosctrings as such.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 713da5a6d12a613b374094e4ff6dcd59221c92c3..6d1a1deb3100e498b9330d6e3d7c60589c919135 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-04-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * abbrev.el (define-abbrev-table): Fontify dosctrings as such.
+
        * minibuffer.el (completion-table-with-terminator): Fix paren typo.
 
 2008-04-17  Sam Steingold  <sds@gnu.org>

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index da09401504d0647b40c5dae95ec8ed996b20fb23..5e9f1de91b9ae08ec332d6256eaa9c1d690e622e 100644 (file)
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -875,6 +875,7 @@ Abbrevs marked as \"system abbrevs\" are omitted."
        (insert "    ))\n\n"))
       nil)))
 
+(put 'define-abbrev-table 'doc-string-elt 3)
 (defun define-abbrev-table (tablename definitions
                                       &optional docstring &rest props)
   "Define TABLENAME (a symbol) as an abbrev table name.