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