Trailing-Edge
-
PDP-10 ArchivesÃ_A>
-
mit_emacs_170_tecoq( g) 0
-
emactzjsglib.emacsÃ_strong>
There are no other files named jsglib.emacs in the archive.
À--/htdig_noindex-->!* -*- TECO -*- !
!* Reconstructed from a sourceless library.!
!~FILENAME~:! !Macros for assorted functions!
JSGLIB
g ^R Uppercase MACRO code:! !^R Capitalize a line of MACRO codV I
.[1 0L M(m.m^R_Set/Pop_Mark)
:S ;
:I*case_convert m(m.m&_Save_Region_and_Query)f"e q1 j '
:,.f f(@fc q1 j)
Ã_PRE>
!Date File:!S M C Write file with edit date line.
Follow b9 filename as string argument. "1+"+" says called b9 ^X^S< s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > ( èlŠ) < / s p a n > inhibits
calling & Set Mode Line and auta-save reinitialization. Also inhibits setting
filenames (in case the9 are _^RSV).
"-1," as argumen4 inhibits updating the buffer's file cdate as well.
If no4 at top level (can'4 switch files now), doesn't update anything about the
current buffer, but does return the written file's creation date so the caller
can store it.!
QBuffer_Index[2
0F[ VB 2 2 2 2 0F[VZW
:F "L Q.F - Q..F "E Q:.B(2 1 ( kp) ) F"N FS D FILE'''
5,1F Write_File [1 ET 1
F[ D FILE 0FS D VERS E! ? F] D FILE .m FS OF C DATE3 ¹p EFJ
qComment_Start[0
q0"e :i0 ; '
0fo..q Comment_Begin f"n u0'
G0 .3 1 FS O FILEF8
<
I
2 1 J 2 1 ,(S:.)K :L .[4
qComment_End u0
q0"n G0' Q4J ]2 2 2 9I 0,Q2 2 FS FD CONVERT 9! ? IEdit_by_ FS X UNAME F8
<
L c+.J 3 3 ]05 ¹po @EI FS OF C DATE [2
<
HP EF 0FS MODIFIED 0FS X MODIFIED +1"E FS R GETTY"E ONoPrint''
FS O FILE [1 FS R GETTY"E :FT'
:I*C FS ECHO DIS
@FTWritten:_ 1 FS ECHO LINES-1"N @FT
'
0FS ECHO ACTIVE Q..F - Q.F"N ê0Ã0È0ë0 '
FS Z U:.B(Q2 + )
FS ^R M DLY FS ^R M CNT
:"L Q2 2 U:.B(Q2 + 8) FS OF VERS F"G U:.B(2 1 + 9)
1FS MODE CH''
"N 0,100 '
FS D FILEU1
M(M.MSet_Visited_Filename) 1 0,100
Ã_PRE>
!^R Displa9 curren4 line number:! !^R Coun4 lines before this one (drs)!
.[..0 0l @ft_Line_ b,.m(m.m&_Count_lines) @:= q..0 j 0fs echo act
Ã_PRE>
!BBN Date:! ! Write BBN TECO style edit message a4 star4 of file.
Inserts name of presumed output file, time and date of edit and user.
If given non-zero argument, acts like newer BBN TECOs (includes site, etc.)!
j g( qComment_Begin f"e w qComment_Start f"e 7 :i* < s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > ( èlŠ) < / s p a n > '' )
f f"e i[ g( fs machine ) i]'
qBuffer_Filenames f"n f[ d file'
<i g( fs ds name ) >i g( fs d fn1 ) .i g( fs d f ¬ ) .i
fs d versi f"e 7 1:< e[ er e] >"e fs if vers' + 1' \i,_
0,-1fs fd conv fs x unam [0 f f"n i,_Edit_by 0 ' "# i,_Ed: 0' fqComment_End"g gComment_End'i
Ã_PRE>
!^R Uppercase Macro Region:!S M Uppercase a Region of Macro Code!
MM ^R_Narrow_Bounds_to_Region
BJ 1:<
< 1 MM ^R_Uppercase_Macro_Code
1L
.-Z < s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > ( èlŠ) < / s p a n > >> H @V
MM ^R_Set_Bounds_Full
Ã_html< / d i v > < d i v c l a s s = " n a k e d _ c t r l " >
< f o r m a c t i o n = " / i n d e x . c g i / l a r g e r - t e x t " m e t h o d = " g e t " n a m e = " g a t e " >
< p > < a h r e f = " h t t p : / / a l t s t y l e . a l f a s a d o . n e t " > A l t S t y l e < / a > k0ˆ0c0f0 YÛcU0Œ0_0Ú0ü0¸0 < a h r e f = " h t t p : / / p d p - 1 0 . t r a i l i n g - e d g e . c o m / m i t _ e m a c s _ 1 7 0 _ t e c o _ 1 2 2 0 / 0 1 / e m a c s / j s g l i b . e m a c s . h t m l " > ( - & g t ; ª0ê0¸0Ê0ë0) < / a >
/ < l a b e l > ¢0É0ì0¹0: < i n p u t t y p e = " t e x t " n a m e = " n a k e d _ p o s t _ u r l " v a l u e = " h t t p : / / p d p - 1 0 . t r a i l i n g - e d g e . c o m / m i t _ e m a c s _ 1 7 0 _ t e c o _ 1 2 2 0 / 0 1 / e m a c s / j s g l i b . e m a c s . h t m l " s i z e = " 2 2 " / > < / l a b e l > < l a b e l > â0ü0É0: < s e l e c t n a m e = " n a k e d _ p o s t _ m o d e " >
< o p t i o n v a l u e = " d e f a u l t " > Ç0Õ0©0ë0È0< / o p t i o n >
< o p t i o n v a l u e = " s p e e c h " > ó—ðXÖ0é0¦0¶0< / o p t i o n >
< o p t i o n v a l u e = " r u b y " > ë0Ó0ØNM0< / o p t i o n >
< o p t i o n v a l u e = " c o n t r a s t " > M‘r‚ÍSâŽ< / o p t i o n >
< o p t i o n v a l u e = " l a r g e r - t e x t " s e l e c t e d = " s e l e c t e d " > ‡eW[áb'Y< / o p t i o n >
< o p t i o n v a l u e = " m o b i l e " > â0Ð0¤0ë0< / o p t i o n >
< / s e l e c t >
< i n p u t t y p e = " s u b m i t " v a l u e = " hˆ:y" / >
< / p >
< / f o r m >
< / d i v >