Underline instead of box for overly long lines.

init.el

@@ -156,13 +156,19 @@
   (set-frame-parameter nil 'buffer-predicate 'my/buffer-predicate)
 
   :hook
-  (text-mode . auto-fill-mode))      ; Enable word-wrapping at fill-column.
+  (text-mode . auto-fill-mode)          ; Enable word-wrapping at fill-column.
+  )
 
 ;; Save cursor position.
 (use-package saveplace
   :config
   (save-place-mode t))
 
+;; Show and select buffers.
+(use-package bs
+  :bind
+  ("C-x C-b" . bs-show))
+
 ;;;;;;;;;;;;;;;;;;;; Keybindings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (use-package bind-key
   :init
@@ -670,7 +676,8 @@ With argument, do this that many times."
                                        :weight normal
                                        :foreground nil
                                        :background nil
-                                       :box (:line-width 1 :color "dark red")
+                                       ;; :box (:line-width 1 :color "dark red")
+                                       :underline (:color "dark red")
                                        )))))
     (custom-set-faces                   ; else
      '(whitespace-line ((t (:inherit whitespace-line
@@ -823,10 +830,6 @@ With argument, do this that many times."
   :hook
   (find-file . auto-insert))
 
-(use-package bs
-  :bind
-  ("C-x C-b" . bs-show))
-
 ;;;;;;;;;;;;;;;;;;;; LaTeX ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (if (executable-find "xetex")
     (use-package tex-site