4.3BSD/usr/contrib/emacs/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] 10))

(defun ununderline-region (start end) "\
Remove allunderlining (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] 9))