branch: elpa/geiser-gauche
commit adbd3c8d9031955c5941af459ea0e2bd60b7c925
Merge: 9eb8b35f0c3 0cbfe13ea1b
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
Merge branch 'Ignore_shebang_when_evaluating_buffer' into 'master'
Avoid sending the shebang line to REPL when doing C-c C-b
See merge request emacs-geiser/gauche!3
---
geiser-gauche.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/geiser-gauche.el b/geiser-gauche.el
index d8f91f8221c..3197abac868 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -250,6 +250,16 @@
(let ((form (mapconcat #'identity args " ")))
(format "(eval '(geiser:%s %s) (find-module 'geiser))" proc form)))))
+(defun geiser-gauche--eval-bounds ()
+ "Return the bounds for `geiser-eval-buffer' command."
+ (cons (if (equal "#!" (buffer-substring (point-min) (+ 2 (point-min))))
+ (save-excursion
+ (goto-char (point-min))
+ (forward-line 1)
+ (point))
+ (point-min))
+ (point-max)))
+
;;; Module handling
@@ -362,7 +372,8 @@ form."
(external-help geiser-gauche--manual-look-up)
(check-buffer geiser-gauche--guess)
(keywords geiser-gauche--keywords)
- (case-sensitive geiser-gauche-case-sensitive-p))
+ (case-sensitive geiser-gauche-case-sensitive-p)
+ (eval-bounds geiser-gauche--eval-bounds))
(geiser-implementation-extension 'gauche "scm")
