Current File : //usr/local/share/emacs/27.2/lisp/textmodes/underline.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@195 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.
(fn START END)
(defalias 'underline-region #[514 "\212\300 \211]\301\223\210^b\210`W\205$ \302\303!\204 \304c\210\305u\210\202 \262)\207" [make-marker nil looking-at "[_ - ]" "_" 1] 6 (#$ . 409) "*r"])
#@174 Remove all underlining (overstruck underscores) in the region.
Called from program, takes two arguments START and END
which specify the range to operate on.
(fn START END)
(defalias 'ununderline-region #[514 "\212\300 \211]\301\223\210^b\210\302\303\304#\205 \305\306!\210\202 \262)\207" [make-marker nil re-search-forward "_\\|_" t delete-char -2] 7 (#$ . 806) "*r"])
(provide 'underline)
Mini Shell