duplicate-line for emacs

gistfile1.txt

(defun duplicate-line(arg)
  (interactive "nTimes:")
  (or (and (numberp arg) (> arg 0)) (setq arg 1))
  (beginning-of-line)
  (kill-whole-line)
  (yank)
  (multi-yank (- arg 1)))
(defun multi-yank(arg)
  "yank [arg] times."
  (interactive "p")
  (or (and (numberp arg) (> arg 0)) (setq arg 1))
  (if (= arg 1)
      (yank)
    (progn (yank)
	   (recur-multi-yank (- arg 1))))
  (defun recur-multi-yank(arg)
    (if(= arg 1)
	(yank)
      (progn (yank)
	     (recur-multi-yank (- arg 1))))))
(global-set-key (kbd "C-S-y") 'duplicate-line)