;ELC ;;; compiled by jwz@thalidomide on Thu Mar 24 13:24:39 1994 ;;; from file /th/jwz/emacs19/lisp/packages/underline.el ;;; emacs version 19.10 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'underline-region #[(start end) " \n ]ē\n ^b` W!cun*" [make-marker end1 start end nil looking-at "[_- ]" "_" 1] 4 "\ 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." "*r"]) (fset 'ununderline-region #[(start end) " \n ]ē\n ^b #!s*" [make-marker end1 start end nil re-search-forward "_\\|_" t delete-char -2] 5 "\ Remove all underlining (overstruck underscores) in the region. Called from program, takes two arguments START and END which specify the range to operate on." "*r"]) (fset 'unoverstrike-region #[(start end) " \n ]ē\n ^b #!s*" [make-marker end1 start end nil re-search-forward "\\(.\\)\\1" t delete-char -2] 5 "\ Remove all overstriking (character-backspace-character) in the region. Called from program, takes two arguments START and END which specify the range to operate on." "*r"]) (fset 'overstrike-region #[(start end) " \n ]ē\n ^b` W!`fDZuk*" [make-marker end1 start end nil looking-at "[_- ]" 8 1] 4 "\ Overstrike (character-backspace-character) all nonblank characters in the region. Called from program, takes two arguments START and END which specify the range to operate on." "*r"]) (fset 'ununderline-and-unoverstrike-region #[(start end) "eb\n ]#`ZfgU!U!U`S`T|*F)" [search-forward "" start end t 2 preceding following delete-char -2 95] 4 "\ Remove underlining and overstriking in the region. Called from a program, takes two arguments START and END which specify the range to operate on." "*r"])