[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 236ec5f 096/284: Guile: define-module forms a
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 236ec5f 096/284: Guile: define-module forms are now individually evaluable (e.g. using C-M-x or C-x C-e). |
Date: |
Sun, 1 Aug 2021 18:29:23 -0400 (EDT) |
branch: elpa/geiser-guile
commit 236ec5f042d70836db8eeba819b528989b477fac
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Guile: define-module forms are now individually evaluable (e.g. using C-M-x
or C-x C-e).
---
elisp/geiser-guile.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 849fabf..fca4b01 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -95,8 +95,11 @@ This function uses `geiser-guile-init-file' if it exists."
(defun geiser-guile-get-module (&optional module)
(cond ((null module)
(save-excursion
- (goto-char (point-min))
- (if (re-search-forward geiser-guile--module-re nil t)
+ (ignore-errors
+ (backward-sexp)
+ (while (not (zerop (geiser-syntax--nesting-level)))
+ (backward-up-list)))
+ (if (re-search-backward geiser-guile--module-re nil t)
(geiser-guile-get-module (match-string-no-properties 1))
:f)))
((listp module) module)
@@ -152,9 +155,9 @@ This function uses `geiser-guile-init-file' if it exists."
;;; Trying to ascertain whether a buffer is Guile Scheme:
(defun geiser-guile-guess ()
- "Return `t' if the current buffer looks like a Guile file."
- (listp (geiser-guile-get-module)))
-
+ (save-excursion
+ (goto-char (point-min))
+ (re-search-forward geiser-guile--module-re nil t)))
(provide 'geiser-guile)
;;; geiser-guile.el ends here
- [nongnu] elpa/geiser-guile 48e2b00 239/284: Scheme version checks, (continued)
- [nongnu] elpa/geiser-guile 48e2b00 239/284: Scheme version checks, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6cef62b 250/284: Follow suit and complete quoted symbols in all schemes, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile b57f4bb 258/284: Make guile's load-file happier with ~ abrevs, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 8dda28f 284/284: Version bump, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile e1e77ab 067/284: Guile: use the compiler by default to perform evaluations., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4afe5ff 098/284: Guile: bug fix: evaluation works again (1.9.3 or better required)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c8d63ff 073/284: Guile: bug fix (missing module import)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 936a20e 074/284: Fixing the mess during initialization., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4bc26f8 086/284: kludgy fix for opt/key/rest markers in autodoc, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile d5840a0 093/284: BSD relicensing: elisp code., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 236ec5f 096/284: Guile: define-module forms are now individually evaluable (e.g. using C-M-x or C-x C-e).,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile e8d1ca5 113/284: Guile: switch to REPL and module activated., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c6248c4 119/284: Guile: evaluation output collection reactivated., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 503e239 137/284: Guile: tweaks to the previous fix., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6212ff6 128/284: Guile: real fix for symbol locations (needs Guile's git head)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 90835ae 127/284: Guile: new evaluation strategy that really delimits stack frames., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a15f00a 156/284: Dead code elimination, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 7ecebbc 160/284: Guile: xref commands working again, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile d5252a1 189/284: Guile: fix for the argument shortening algorithm, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a77bf8b 193/284: Elisp buggettes and warnings, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 1eebcce 197/284: Guile reconnected (but not debuggable (yet)), Philip Kaludercic, 2021/08/01