ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/textmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/textmodes/underline.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 411) "*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 (#$ . 813) "*r"])
(provide 'underline)
Kontol Shell Bypass