;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:54:21 1995
;;; from file /gd/gnu/emacs/19.0/lisp/underline.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/underline.el' was compiled for Emacs 19"))


#@179 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.
(defalias 'underline-region #[(start end) "ŠÀ ‰\n]Ä“ˆ\n^bˆ`	W…% ÅÆ!„ ÇcˆÈuˆ‚ *‡" [make-marker end1 start end nil looking-at "[_ - ]" "_" 1] 4 (#$ . 488) "r"])
#@158 Remove all underlining (overstruck underscores) in the region.
Called from program, takes two arguments START and END
which specify the range to operate on.
(defalias 'ununderline-region #[(start end) "ŠÀ ‰\n]Ä“ˆ\n^bˆÅÆ	Ç#… ÈÉ!ˆ‚ *‡" [make-marker end1 start end nil re-search-forward "_\\|_" t delete-char -2] 5 (#$ . 838) "r"])