;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:25:26 2007
;;; from file /home/cyd/emacs/lisp/textmodes/underline.el
;;; in Emacs version 22.0.99
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`underline.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@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) "\212\303 \211	\n]\304\223\210	\n^b\210`W\205% \305\306!\204 \307c\210\310u\210\202 *\207" [end1 start end make-marker nil looking-at "[_ - ]" "_" 1] 4 (#$ . 576) "*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) "\212\303 \211	\n]\304\223\210	\n^b\210\305\306\307#\205 \310\311!\210\202 *\207" [end1 start end make-marker nil re-search-forward "_\\|_" t delete-char -2] 5 (#$ . 978) "*r"])
(provide 'underline)