emacs copy current line

;;copy current line

(global-set-key (kbd “C-c C-w”) ‘copy-lines)

(defun copy-lines(&optional arg)

(interactive “p”)

(save-excursion

(beginning-of-line)

(set-mark (point))

(next-line arg)

(kill-ring-save (mark) (point))

)

)