Emacs: Select Line 🚀
Select Current Line
This command selects current line.
If there's already a selection, extend selection downward by line.
(defun xah-select-line () "Select current line. If region is active, extend selection downward by line. If `visual-line-mode' is on, consider line as visual line. URL `http://xahlee.info/emacs/emacs/emacs_select_line.html' Version: 2017-11-01 2023-07-16 2023-11-14" (interactive) (if (region-active-p) (if visual-line-mode (let ((xp1 (point))) (end-of-visual-line 1) (when (eq xp1 (point)) (end-of-visual-line 2))) (progn (forward-line 1) (end-of-line))) (if visual-line-mode (progn (beginning-of-visual-line) (push-mark (point) t t) (end-of-visual-line)) (progn (push-mark (line-beginning-position) t t) (end-of-line)))))