Handle longlines mode.

drag-stuff.el

@@ -85,23 +85,33 @@
                (list drag-stuff-modifier))))
     (vector (append mod (list key)))))
 
+(defmacro drag-stuff--execute (&rest body)
+  "Execute BODY without conflicting modes."
+  `(let ((auto-fill-function nil)
+         (electric-indent-mode nil)
+         (longlines-mode-active
+          (and (boundp 'longlines-mode) longlines-mode)))
+     (when longlines-mode-active
+       (longlines-mode -1))
+     ,@body
+     (when longlines-mode-active
+       (longlines-mode 1))))
+
 (defun drag-stuff-up (arg)
   "Drag stuff ARG lines up."
   (interactive "p")
-  (let ((auto-fill-function nil)
-        (electric-indent-mode nil))
-    (if mark-active
-        (drag-stuff-lines-up (- arg))
-      (drag-stuff-line-up (- arg)))))
+  (drag-stuff--execute
+   (if mark-active
+       (drag-stuff-lines-up (- arg))
+     (drag-stuff-line-up (- arg)))))
 
 (defun drag-stuff-down (arg)
   "Drag stuff ARG lines down."
   (interactive "p")
-  (let ((auto-fill-function nil)
-        (electric-indent-mode nil))
-    (if mark-active
-        (drag-stuff-lines-down arg)
-      (drag-stuff-line-down arg))))
+  (drag-stuff--execute
+   (if mark-active
+       (drag-stuff-lines-down arg)
+     (drag-stuff-line-down arg))))
 
 (defun drag-stuff-right (arg)
   "Drag stuff ARG lines to the right."

features/conflicting-modes.feature

@@ -47,3 +47,49 @@ Feature: Drag Stuff
       | direction | line |
       | down      |    2 |
       | up        |    3 |
+
+  Scenario: Longlines mode down
+    Given I insert:
+      """
+      Move me down please
+      Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed tristique sollicitudin massa, ut porta diam pellentesque et. Sed porttitor tempor egestas. Morbi accumsan quam sed elit auctor nec interdum mi tincidunt.
+      """
+    And I turn on drag-stuff
+    And I turn on longlines-mode
+    And I drag line "1" down
+    Then I should see:
+      """
+      Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed tristique
+      sollicitudin massa, ut porta diam pellentesque et. Sed porttitor
+      tempor egestas. Morbi accumsan quam sed elit auctor nec interdum mi
+      tincidunt.
+      Move me down please
+      """
+
+  Scenario: Longlines mode up
+    Given I insert:
+      """
+      Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed tristique sollicitudin massa, ut porta diam pellentesque et. Sed porttitor tempor egestas. Morbi accumsan quam sed elit auctor nec interdum mi tincidunt.
+      Move me down please
+      """
+    And I turn on drag-stuff
+    And I turn on longlines-mode
+    And I drag line "5" up
+    Then I should see:
+      """
+      Move me down please
+      Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed tristique
+      sollicitudin massa, ut porta diam pellentesque et. Sed porttitor
+      tempor egestas. Morbi accumsan quam sed elit auctor nec interdum mi
+      tincidunt.
+      """
+
+  Scenario: Do not activate longlines if not previously active
+    Given I insert:
+      """
+      Lorem
+      Ipsum
+      """
+    And I turn on drag-stuff
+    And I drag line "1" down
+    Then longlines-mode should not be active

features/support/env.el

@@ -29,6 +29,7 @@
 
  (auto-fill-mode -1)
  (electric-indent-mode -1)
+ (longlines-mode -1)
 
  ;; Remove all bindings
  (dolist (direction '(up down left right))