 true end of the line. The opposite of `doom/backward-to-bol-or-indent'."
   (interactive "d")
   (let ((pt (or point (point))))
+    (when (and shift-select-mode this-command-keys-shift-translated)
+      (set-mark pt)
+      (activate-mark))
     (cl-destructuring-bind (_bol _bot eot eol)
         (doom--bol-bot-eot-eol pt)
       (cond ((< pt eot)

`doom/forward-to-last-non-comment-or-eol'."
  (interactive "d")
  (let ((pt (or point (point))))
    (cl-destructuring-bind (bol bot _eot _eol)
        (doom--bol-bot-eot-eol pt)
      (cond ((> pt bot)

;;; Commands

(defun doom--bol-bot-eot-eol (&optional pos)
  (save-mark-and-excursion
    (when pos
      (goto-char pos))
    (let* ((bol (if visual-line-mode
