(defun omp/mark-line () (interactive) (move-beginning-of-line nil) (push-mark (point) nil t) (move-end-of-line nil))