From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 2 Feb 2023 18:12:02 +0000 (+0200)
Subject: Fix docstring fontification of CL's 'defstruct'
X-Git-Tag: emacs-29.0.90~540
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d3428e95a9ea38841bc234780b8abfc6a34919e;p=emacs.git

Fix docstring fontification of CL's 'defstruct'

* lisp/emacs-lisp/lisp-mode.el (defstruct): Set 'doc-string'
property.  Patch by Nicolas Martyanoff <nicolas@n16f.net>.

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index bacc105a214..367f59e8785 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -182,6 +182,7 @@ to a package-local <package>-loaddefs.el file.")
 ;; CL
 (put 'defconstant 'doc-string-elt 3)
 (put 'defparameter 'doc-string-elt 3)
+(put 'defstruct 'doc-string-elt 2)
 
 (defvar lisp-doc-string-elt-property 'doc-string-elt
   "The symbol property that holds the docstring position info.")