allign with previous line when no selected text

tomlue · Dec 29, 2021 · 6c6d717 · 6c6d717
1 parent 1811a06
commit 6c6d717
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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]