
(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))