[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f01213bc20: Define docstring element for more forms in scheme-mod
From: |
Stefan Kangas |
Subject: |
master f01213bc20: Define docstring element for more forms in scheme-mode |
Date: |
Sat, 18 Jun 2022 03:15:43 -0400 (EDT) |
branch: master
commit f01213bc20fd7d1a0d24c061892cc0fdda9ea0bc
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 9b24c2155d..e0453c3b2f 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f01213bc20: Define docstring element for more forms in scheme-mode,
Stefan Kangas <=