;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:19:04 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/textmodes/underline.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


#@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 (#$ . 554) "*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 (#$ . 956) "*r"])
(provide 'underline)
