4.4BSD/usr/src/contrib/emacs-18.57/lisp/underline.elc

(defun underline-region (start end) "\
Underline all nonblank characters in the region.
Works by overstriking underscores.
Called from program, takes two arguments START and END
which specify the range to operate on." (interactive "r") (byte-code "ÈŠÄ Å	
]\"ˆ	
^bˆ`W…(ÆÇ!† ÈcˆÉÊ!ˆ‚))‡" [end1 start end nil make-marker move-marker looking-at "[_- ]" "_" forward-char 1] 6))

(defun ununderline-region (start end) "\
Remove all underlining (overstruck underscores) in the region.
Called from program, takes two arguments START and END
which specify the range to operate on." (interactive "r") (byte-code "ĈŠÅ Æ	
]\"ˆ	
^bˆÇÈÃ#…!ÉÊ!ˆ‚))‡" [end1 start end t nil make-marker move-marker search-forward "_" delete-char -2] 6))