Edit file

File name : underline.elc

Content :;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)

Save