branch: elpa/raku-mode
commit bc61245db1f1f1d0ca7dd2f39aaa2814cfa12b15
Author: Matias Linares <matiasl...@gmail.com>
Commit: Matias Linares <matiasl...@gmail.com>
Better region handling
---
perl6-repl.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/perl6-repl.el b/perl6-repl.el
index db78020bb6..4d1bd84e76 100644
--- a/perl6-repl.el
+++ b/perl6-repl.el
@@ -70,23 +70,23 @@
(goto-char pos))
(message "Cannot execute %s" perl6-exec-path)))
-(defun perl6-send-region-to-repl ()
- (interactive)
- (if (perl6-exec-path-exists-p)
+(defun perl6-send-region-to-repl (begin end)
+ (interactive (if (use-region-p)
+ (list (region-beginning)
+ (region-end))
+ (list nil nil)))
+ (if (and begin end (perl6-exec-path-exists-p))
(let ((jbuf (get-buffer (perl6-repl--buffer-name-earmuf)))
(cbuf (current-buffer))
(cwin (selected-window))
(pos (mark))
- (contents (buffer-substring (mark)
- (point))))
+ (contents (buffer-substring-no-properties begin end)))
(if jbuf (switch-to-buffer jbuf)
;;if there is not a perl6 REPl open, open it and wait for prompt
(perl6-create-new-repl))
- (set-text-properties 0 (length contents) nil contents)
(mapc 'perl6-repl-send-line (split-string contents "\n+"))
(select-window cwin)
- (switch-to-buffer cbuf)
- (goto-char pos))
+ (switch-to-buffer cbuf))
(message "Cannot execute %s" perl6-exec-path)))
(defun perl6-send-buffer-to-repl ()
