;;; compiled by eric@geech.gnu.ai.mit.edu on Fri Mar 26 21:07:26 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/underline.el ;;; emacs version 19.0.509. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (fset 'underline-region #[(start end) "ŠÀ  ]\"ˆ ^bˆ` W…&ÅÆ!„ÇcˆÈÉ!ˆ‚*‡" [make-marker end1 move-marker start end looking-at "[_- ]" "_" forward-char 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) "ŠÀ  ]\"ˆ ^bˆÅÆ Ç#…ÈÉ!ˆ‚*‡" [make-marker end1 move-marker start end re-search-forward "_\\|_" t delete-char -2] 4 "\ 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"])