From f01213bc20fd7d1a0d24c061892cc0fdda9ea0bc Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 18 Jun 2022 09:13:06 +0200 Subject: [PATCH] Define docstring element for more forms in scheme-mode * lisp/progmodes/scheme.el: Define docstring element for more forms. (Bug#33117) --- lisp/progmodes/scheme.el | 6 ++++++ 1 file changed, 6 insertions(+) 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) -- 2.39.2