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

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


    (kill-ring-save (region-beginning) (region-end))
    (newline)
    (yank))
  (forward-line 1))

(global-set-key (kbd "C-c d") 'my/duplicate-the-line)

