;; Copy the current line function
(defun copy-the-current-line ()
    "Copy the current line into kill-ring"
    (interactive)
    (copy-region-as-kill (line-beginning-position) (line-end-position))
    (message "Copied"))

;; Copy the current line bind
(global-set-key (kbd "M-k") 'copy-the-current-line)