[nongnu] elpa/raku-mode bc61245db1 192/253: Better region handling

[ELPA Syncer]

branch: elpa/raku-mode
commit bc61245db1f1f1d0ca7dd2f39aaa2814cfa12b15
Author: Matias Linares <matiaslina@gmail.com>
Commit: Matias Linares <matiaslina@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 ()