| Current Path : /usr/share/emacs/24.3/lisp/textmodes/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/textmodes/underline.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:52 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/underline.el ;;; in Emacs version 24.3.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 (#$ . 563) "*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 (#$ . 965) "*r"]) (provide 'underline)