From c437b1eca906f9c06eb5acef49f84bc4a87d2b8b Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 16 Oct 2022 02:59:54 +0100 Subject: fallback autodoc inferred via cheap regexps same code that finds putative definitions, with all its caveats --- elisp/geiser-edit.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-edit.el') diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el index 165e0fc..ee85bdf 100644 --- a/elisp/geiser-edit.el +++ b/elisp/geiser-edit.el @@ -88,7 +88,7 @@ or following links in error buffers.") (regexp-opt '("define-syntaxes" "define-values"))) (defsubst geiser-edit--def-re (thing) - (format "(%s +(?%s\\_>" + (format "(%s *[( ]\\(%s\\_>[^)]*\\)[ )\n]" geiser-edit--def-re (regexp-quote (format "%s" thing)))) @@ -102,7 +102,7 @@ or following links in error buffers.") (goto-char (point-min)) (when (or (re-search-forward (geiser-edit--def-re symbol) nil t) (re-search-forward (geiser-edit--def-re* symbol) nil t)) - (cons (match-beginning 0) (match-string-no-properties 0))))) + (cons (match-beginning 0) (match-string 1))))) (defsubst geiser-edit--symbol-re (thing) (format "\\_<%s\\_>" (regexp-quote (format "%s" thing)))) -- cgit v1.2.3