diff options
| -rw-r--r-- | oni-scheme.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/oni-scheme.el b/oni-scheme.el index baf71d9..11175e5 100644 --- a/oni-scheme.el +++ b/oni-scheme.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2026.0714.000130 +;; Version: 2026.0714.001225 ;; Package-Requires: (oni-company oni-paredit rainbow-delimiters geiser geiser-guile) ;; This program is free software; you can redistribute it and/or modify @@ -66,8 +66,10 @@ (save-excursion (let (start end) (goto-char (point-min)) - (when (search-forward "(define-module" nil t) - (forward-char -14) + (when (re-search-forward (rx "(" (or "define-module" + "use-modules")) + nil t) + (forward-char (- (length (match-string 0)))) (setq start (line-end-position)) (forward-sexp) (setq end (1- (point))) |