(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!