| Server IP : 217.160.0.212 / Your IP : 216.73.216.15 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/textmodes/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@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 (#$ . 85) "*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 (#$ . 481) "*r"]) (provide 'underline)