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

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

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

!* -*-TECO-*-!

!~Filename~:! !Print uncontrolified buffers!
PRBUF

!Print Buffer:! !C Uncontrolify buffer and send it to the lineprinter.
^Ls at the beginnings of lines are left alone.!

 g(q..o(f[BBind))		    !* get a scratch buffer!
 e\ fne^			    !* save old output file!
 f[DFile			    !* save default file specs!
 jm(m.m Uncontrolify)

	    !* uncontrolify, leave ^Ls alone!
 j<:s

; -di^L>		    !* uncontrolify middle-line ^Ls!
 qBuffer_Name[0		    !* get buffer name!
 et LPT:0.LPT		    !* include it in lpt file name!
 ei hp ef 			    !* print the file and return!

!Dover Buffer:! !C Like Print Buffer, but sends it to the Dover.!

 g(q..o(f[BBind))		    !* get a scratch buffer!
 e\ fne^			    !* save old output file!
 f[DFile			    !* save default file specs!
 jm(m.m Uncontrolify)

	    !* uncontrolify, leave ^Ls alone!
 j<:s

; -di^L>		    !* uncontrolify middle-line ^Ls!
 j<:s^%; >		    !* change caret to SAIL caret!
 j<:s_; >		    !* change underbar to SAIL underbar!

 qBuffer_Name[0		    !* get buffer name!
 fs MS Name[1			    !* and connected directory!
 et 10.DOV ei hp ef	    !* make a temporary file!

 fs DFileu0			    !* get default filenames!
 
 f[Window			    !* dont mung window!
 0f[Lines 0f[Top Line f+	    !* clear whole screen!
 -(fz SYS:DOVER.EXE_0
)fz	    !* run DOVER and kill the fork!
 1:<@ed>			    !* delete the output file and expunge it!