Underline the current line (function inside)

[Jean Louis]

This function is handy to underline the current line:

(defun underline-line ()
  "Underline the current line."
  (interactive)
  (let* ((start (line-beginning-position))
         (end (line-end-position))
         (length (- end start)))
    (end-of-line)
    (newline)
    (insert (make-string length ?=))
    (newline)))


When there is a line like this, a key binding or M-x underline-line
===================================================================

does that underlining as above.



Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/