my first emacs custom key binding

(defun comment-this-level ()
  (interactive)
  (move-beginning-of-line 1)
  (set-mark-command nil)
  (forward-sexp nil)
  (comment-dwim nil))

(global-set-key (kbd "C-;") 'comment-this-level)

 

;;I feels good!