PDP-10 Archive: emacs/bshack.emacs from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/bshack.emacs

There are no other files named bshack.emacs in the archive.

!* -*-TECO-*-!
!* <EMACS>BSHACK.EMACS.4,  8-Jan-83 14:48:39, Edit by GERGELY!
!~Filename~:! !Backspace hack.!
BSHACK

!Unbackspacify:! !C Convert ^Hs in the buffer to bare CRs and spaces.!

0,fszM(m.M &_Save_For_Undo)Unbackspacify
    [1 [2 [3 [4 [5 j		    !* Start at beginning of buffer.!
    <:s ;			    !* Find the next one.!
      :i* u1 0u3		    !* And init the new line.!
    !next!
      r ^ f f( f(  u5	    !* Get size of area to do.!
        ) k ) fx2		    !* Delete the ^Hs and get the other guys.!
      .,. f			    !* Report what we've munged.!
      fs hpos-q3-q5 ,32 : i4	    !* Get enough spaces to move over.!
      :i1 1 4 2	    !* Now put them all together.!
      fs hpos u3		    !* Update where we are.!
      :fb "l onext '	    !* More this line?!
1 .):l.,( i!* Insert new stuff and report changes.!
    >				    !* More lines?!
    0				    !* Already reported damage.!

!Transpose Overwritten Line:! !C Command to transpose overwritten lines
created by M-X Unbackspacify, so that underlines come before letters.!

0,fszM(m.M &_Save_For_Undo) Transposing_Overwritten

J <:S
;			    !* FIND ALL SOLITARY CR!
   R -D W :FXA			    !* PICK UP REST OF LINE DELETING CR!
   0L GA 13I> 		    !* PUT AT BEGINNING AND REPLACE CR!

!^R Overprint Line:! !^R Overprint current line with itself.
This makes it print darker on a LPT.!

.,(:s'.)M(m.M &SaveForUndo)Overprint
[a
.(0l .,(:s)xa
:l fqa"G <13i ga>' )j

!* 
/ Local Modes: \
/ MM Compile: 1:<M(M.MDate Edit)>
M(M.M^R Save File)
M(M.MGenerate Library)BSHACKBSHACK
1:<M(M.MDelete File)BSHACK.COMPRS>W \
/ End: \
!