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

2 files changed, 3 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 713da5a6d12..6d1a1deb310 100644
--- 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 da09401504d..5e9f1de91b9 100644
--- 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.