;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul 6 00:12:52 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/underline.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; 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")) (defalias 'underline-region #[(start end) "Šΐ ‰\n ]Δ“ˆ\n ^bˆ` W…%ΕΖ!„ΗcˆΘuˆ‚*‡" [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"]) (defalias 'ununderline-region #[(start end) "Šΐ ‰\n ]Δ“ˆ\n ^bˆΕΖ Η#…ΘΙ!ˆ‚*‡" [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"])