   (interactive)
   (let ((col (current-column)))
     (transpose-lines 1)
-    (previous-line 2)
+    (forward-line -2)
     (move-beginning-of-line 1)
     (forward-char col)))
 

  (push-mark)
  (move-beginning-of-line 1)
  (newline-and-indent)
  (previous-line)
  (indent-for-tab-command))

(global-set-key (kbd "C-o") 'my/open-line-above)

  (let ((col (current-column)))
    (forward-line 1)
    (transpose-lines 1)
    (forward-line -1)
    (move-beginning-of-line 1)
    (forward-char col)))

