;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 409) "*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 (#$ . 811) "*r"])
(provide 'underline)
|