From: Stefan Kangas <stefan@marxist.se>
Date: Sat, 18 Jun 2022 07:13:06 +0000 (+0200)
Subject: Define docstring element for more forms in scheme-mode
X-Git-Tag: emacs-29.0.90~1447^2~1648
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f01213bc20fd7d1a0d24c061892cc0fdda9ea0bc;p=emacs.git

Define docstring element for more forms in scheme-mode

* lisp/progmodes/scheme.el: Define docstring element for more
forms.  (Bug#33117)
---

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 9b24c2155dc..e0453c3b2f4 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -388,12 +388,18 @@ See `run-hooks'."
     st))
 
 (put 'lambda 'scheme-doc-string-elt 2)
+(put 'lambda* 'scheme-doc-string-elt 2)
 ;; Docstring's pos in a `define' depends on whether it's a var or fun def.
 (put 'define 'scheme-doc-string-elt
      (lambda ()
        ;; The function is called with point right after "define".
        (forward-comment (point-max))
        (if (eq (char-after) ?\() 2 0)))
+(put 'define* 'scheme-doc-string-elt 2)
+(put 'case-lambda 'scheme-doc-string-elt 1)
+(put 'case-lambda* 'scheme-doc-string-elt 1)
+(put 'define-syntax-rule 'scheme-doc-string-elt 2)
+(put 'syntax-rules 'scheme-doc-string-elt 2)
 
 (defun scheme-syntax-propertize (beg end)
   (goto-char beg)