From 6c6d71760735ab5ad8d2733f1dc4d17700510110 Mon Sep 17 00:00:00 2001
From: Thomas Luechtefeld <tomluec@gmail.com>
Date: Wed, 29 Dec 2021 07:54:15 -0500
Subject: [PATCH] allign with previous line when no selected text

---
 R/align_assign.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/align_assign.R b/R/align_assign.R
index 368a48a..8e8b96f 100644
--- a/R/align_assign.R
+++ b/R/align_assign.R
@@ -5,8 +5,8 @@ capture <- function() {
 
 captureArea <- function(capture) {
   # Find range
-  range_start <- capture$selection[[1L]]$range$start[[1L]]
   range_end   <- capture$selection[[1L]]$range$end[[1L]]
+  range_start <- min(range_end-1,capture$selection[[1L]]$range$start[[1L]])
 
   # Dump contents and use highlighted lines as names.
   contents        <- capture$contents[range_start:range_end]