From e7657d6ba54ad5714657cff9be86ec416d342a4c Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 28 Apr 2013 20:54:18 +0100
Subject: Migrate repository from mercurial without history

---
 emacs/elisp/shuffle-lines.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 emacs/elisp/shuffle-lines.el

(limited to 'emacs/elisp/shuffle-lines.el')

diff --git a/emacs/elisp/shuffle-lines.el b/emacs/elisp/shuffle-lines.el
new file mode 100644
index 00000000..be0a98f9
--- /dev/null
+++ b/emacs/elisp/shuffle-lines.el
@@ -0,0 +1,20 @@
+;;;###autoload
+(defun move-line-down ()
+    (interactive)
+    (let ((col (current-column)))
+        (save-excursion
+            (forward-line)
+            (transpose-lines 1))
+        (forward-line)
+        (move-to-column col)))
+
+;;;###autoload
+(defun move-line-up ()
+    (interactive)
+    (let ((col (current-column)))
+        (save-excursion
+            (forward-line)
+            (transpose-lines -1))
+        (move-to-column col)))
+
+(provide 'shuffle-lines)
-- 
cgit 1.4.1