Call next-line functions interactively for shift selection

Emacs/keybinds.el

@@ -101,32 +101,34 @@
 (global-set-key (kbd "<home>") 'back-to-indentation)
 
 (when (require 'multiple-cursors)
-  ;; Go to end of line if multiple-cursors is active. This is important because you
-  ;; might be editing lines which wrap without your knowledge
   (defun macoy-end-of-line ()
+	"Go to end of line if multiple-cursors is active. This is important because you might be editing
+ lines which wrap without your knowledge"
 	(interactive)
 	(if (bound-and-true-p multiple-cursors-mode)
 		(call-interactively 'end-of-line)
 	  (call-interactively 'end-of-visual-line)
-	  )
-	)
+	  ))
 
   (global-set-key (kbd "<end>") 'macoy-end-of-line)
 
-  (defun macoy-next-line (&optional arg)
-	"Go to next logical line if multiple-cursors is active. This is important because you might be 
+  ;; Although the documentation says use `forward-line`, we want the interactive versions because
+  ;; we still want it to be "visual", and we want to be able to hold Shift to highlight when hitting S-<down>
+  (defun macoy-next-line ()
+	"Go to next logical line if `multiple-cursors` is active. This is important because you might be 
 editing lines which wrap without your knowledge"
 	(interactive)
 	(if (bound-and-true-p multiple-cursors-mode)
-		(next-logical-line arg)
-	  (next-line arg)
-	  )
-	)
+		(call-interactively 'next-logical-line)
+	  (call-interactively 'next-line)
+	  ))
 
   (defun macoy-prev-line ()
 	(interactive)
-	(macoy-next-line -1)
-	)
+	(if (bound-and-true-p multiple-cursors-mode)
+		(call-interactively 'previous-logical-line)
+	  (call-interactively 'previous-line)
+	  ))
 
   (global-set-key (kbd "<down>") 'macoy-next-line)
   (global-set-key (kbd "<up>") 'macoy-prev-line)