Interlisp.medley/lispusers/tmax/TMAX-INDEX.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)

(FILECREATED "16-May-2026 09:19:48" ("compiled on " |{MEDLEY}<lispusers>tmax>TMAX-INDEX.;24|) 
"15-May-2026 14:49:15" |brecompiled| |exprs:| CREATE.INDEX.FILE GET.INDEX.FILE |in| 
"FULL 15-May-2026 ..." |dated| "15-May-2026 14:49:24")
(FILECREATED "16-May-2026 09:19:48" |{MEDLEY}<lispusers>tmax>TMAX-INDEX.;24| 46972 :EDIT-BY |rmk| 
:CHANGES-TO (FNS CREATE.INDEX.FILE GET.INDEX.FILE) :PREVIOUS-DATE "28-Feb-2025 23:36:19" 
|{MEDLEY}<lispusers>tmax>TMAX-INDEX.;22|)
INDEXOBJ :D8
(P 0 NEWOBJ I 1 INDEXENTRY.PARMS I 0 KEY F 1 \\INDEXOBJ.IMAGEFNS) )

AQ

Hg@HggH(37 IMAGEOBJPROP 21 IMAGEOBJPROP 6 IMAGEOBJCREATE)
(32 INDEXOBJ 27 TYPE 15 INDEX.KEY)
()
INDEXOBJP :D8
(I 0 OBJ) 
@dŸg
gð(12 IMAGEOBJPROP)
(17 INDEXOBJ 7 TYPE)
()
INDEX.DISPLAYFN :D8
(P 1 CURRENT.PAGE P 0 PGS/IMOBJS I 3 TSTREAM I 2 IMAGESTREAMTYPE I 1 IMAGESTREAM I 0 OBJ F 2 INDEXDISPLAYAPPEARANCE) ”
A	gð²URgð³J`A
Rdgð<>¿@A`gðš@Anÿÿ@A
@	A
h@A

Hd
²¿IH

µHd
Ih
Ih(139 \\APPEND2 126 MEMB 108 INDEX.PAGE.NUMBER 103 GETHASH.INDEX 93 PRIN3 87 INDEX.STRING 81 TMAX.SHADEOBJ 73 TMAX.SHADEOBJ 55 TMAX.SHADEOBJ 33 DSPFONT 5 IMAGESTREAMTYPE)
(61 HIGHLIGHT 50 GRAYSHADE 40 BOX 27 |GP.DefaultFont| 19 INVISIBLE 10 DISPLAY)
()
INDEX.IMAGEBOXFN :D8
(I 3 RIGHTMARGIN I 2 CURRENTX I 1 STREAM I 0 OBJ F 0 INDEXDISPLAYAPPEARANCE) }
A	gð™Pdgðš¿jdddhdgð¨dgð²¿l A
AÈ
âjdh¿@	`
`È
`È	jh(92 STRINGWIDTH 82 INDEX.STRING 58 CHARWIDTH 5 IMAGESTREAMTYPE)
(114 FONTDESCRIPTOR 109 |GP.DefaultFont| 102 FONTDESCRIPTOR 97 |GP.DefaultFont| 87 |GP.DefaultFont| 64 FONTDESCRIPTOR 46 HIGHLIGHT 38 BOX 19 INVISIBLE 10 DISPLAY)
()
INDEX.PUTFN :D8
(P 1 INDEX.PUT.ARG P 0 DATUM I 1 STREAM I 0 OBJ) 3@Ég@g
h
H™IHh
¿IA
(48 PRIN2 40 \\NCONC2 23 IMAGEOBJPROP)
(18 INDEX.KEY 12 |Index| 5 IMAGEOBJ)
()
INDEX.GETFN :D8
(I 1 COPY.OBJECT I 0 STREAM) gAµ	@	
(19 APPLY 13 READ)
(4 INDEXOBJ)
()
INDEX.COPYFN :D8
(I 2 TARGET.STREAM I 1 SOURCE.STREAM I 0 IMAGE.OBJ) K
B	gð²-@g

B@g
@ÉhlHoB	
(72 ERROR 67 IMAGESTREAMTYPE 39 IMAGEOBJPROP 24 IMAGEOBJPROP 5 IMAGESTREAMTYPE)
(45 IMAGEOBJ 34 INDEX.KEY 19 GETFN 10 TEXT)
( 61 "Unknown TARGET stream type")
INDEX.BUTTONEVENTINFN :D8
(P 4 NEW.INDEX P 0 DATUM I 7 BUTTON I 6 HOSTSTREAM I 5 WINDOW I 4 RELY I 3 RELX I 2 SEL I 1 STREAM I 0 OBJ) ·¿`kåjðhð´‚±¡@É1`@g
¹dI¿H•o„ohºdJ¿di¿dg ¿dg¿jdnÿdh»dK
¿	
L´6H—@A
†@A
\
´!@gL
Hš@L
g(162 IMAGEOBJPROP 145 CHANGE.INDEX 137 CHANGE.INDEXENTRY 122 MENU 50 IMAGEOBJPROP 4 GETMOUSESTATE)
(180 CHANGED 170 IMAGEOBJ 155 INDEX.KEY 97 DEFAULTMENUHELDFN 88 CLRPROMPT 45 INDEX.KEY 38 |MENUTYPE#| 28 IMAGEOBJ 10 LASTMOUSEBUTTONS)
( 69 (|Change Index| T "Change Index") 63 (|Change Extended Index| T "Change Extended Index"))
INSERT.INDEX :D8
(P 1 NEW.INDEX.OBJ P 0 NEWINDEX.KEY I 0 STREAM) :
@o
		
H²H	

I@
@oi(55 TEDIT.PROMPTPRINT 42 TEDIT.INSERT.OBJECT 32 INDEXOBJ 20 MKATOM 15 CONVERT.TABS.TO.SPACES 10 TEDIT.GETINPUT)
NIL
( 49 "" 5 "Index Key:")
INSERT.INDEXENTRY :D8
(P 2 NEW.INDEX.OBJ P 1 NEWINDEX.FONT P 0 NEWINDEX.KEY I 0 TSTREAM) ”
@o
		
H²mH@oH			µH
@oi¿`	Yµ
@o°æ@oi¿h

J@
@oi(145 TEDIT.PROMPTPRINT 132 TEDIT.INSERT.OBJECT 122 INDEXOBJ 113 GET.INDEXENTRY.NUMBER 107 TEDIT.PROMPTPRINT 83 GET.TSP.FONT 72 TEDIT.PROMPTPRINT 54 MKATOM 49 CONVERT.TABS.TO.SPACES 44 TEDIT.GETINPUT 39 MKSTRING 20 MKATOM 15 CONVERT.TABS.TO.SPACES 10 TEDIT.GETINPUT)
(78 |GP.DefaultFont|)
( 139 "" 101 "Extended Index Number option..." 92 "Invalid font specification...try again." 66 "Extended Index Entry font..."
 33 "Extended Index Entry:" 5 "Extended Index Key:")
INSERT.KNOWN.INDEX :D8
(P 4 NEWINDEX.OBJ P 3 NEWINDEX.KEY P 0 PREVINDICES I 0 TSTREAM) ´
o	@	!H²i`do¿dH¿H		jعdI¿di¿dg¿dg ¿dg¿jdnÿdhºdJ
¿	d²d³h<1A>@oi¿h
K´#gK

L@
@oi(177 TEDIT.PROMPTPRINT 165 TEDIT.INSERT.OBJECT 155 APPLY 136 TEDIT.PROMPTPRINT 114 MENU 52 SQRT 47 LENGTH 15 INDEX.LIST.REFS 9 HELP)
(149 INDEXOBJ 89 DEFAULTMENUHELDFN 80 CLRPROMPT 71 SUBITEM.SELECTFN 26 |MENUTYPE#|)
( 171 "" 130 "There are no Indices/Extended Indices in this document." 33 "Index Keys" 4 "NEED TO DO TEDIT.MAPPIECES INSTEAD OF INDEX.LIST.REFS")
SUBITEM.SELECTFN :D8
(P 2 SUBITEMS P 1 SUBMENU P 0 SUBMENUS I 2 KEY I 1 MENU I 0 ITEM) <00>Ag
1@dŸ¿g@Zµ@ABH
YµH`dJ¿di¿dg ¿dg¿jdnÿdh»dK
¿¹AgJIH¿I	(126 MENU 119 PUTMENUPROP 47 SASSOC 40 DEFAULTWHENSELECTEDFN 10 GETMENUPROP)
(109 SUBMENUS 82 DEFAULTMENUHELDFN 73 CLRPROMPT 56 |MENUTYPE#| 23 SUBITEMS 5 SUBMENUS)
()
ADD.NEW.INDEX :D8
(P 3 ENTRY.OBJS P 2 INDEX.OBJS P 1 HASH.VALUE P 0 CODE.ARRAY I 2 OBJ I 1 INDEXKEY I 0 IMAGESTREAM) <00>@g
1H	³<ld	¸@gH¿@g
	³@gld	¿AH
Yd
ZI
[BÉšKBh
»‰JBh
ºAhJKhH(140 PUTHASH 125 \\APPEND2 114 \\APPEND2 86 GETHASH 78 STREAMPROP 73 HASHARRAY 58 HASHARRAYP 53 STREAMPROP 41 STREAMPROP 28 HASHARRAY 19 HASHARRAYP 10 STREAMPROP)
(102 IMAGEOBJ 66 TSP.INDEX.ARRAY 48 TSP.INDEX.ARRAY 35 TSP.CODE.ARRAY 5 TSP.INDEX.ARRAY)
()
CHANGE.INDEX :D8
(I 1 STREAM I 0 OBJ) .Ao@g
o
		h(41 MKATOM 36 CONVERT.TABS.TO.SPACES 31 TEDIT.GETINPUT 26 CONCAT 16 IMAGEOBJPROP)
(11 INDEX.KEY)
( 21 "\" to:" 5 "Change Index key \"")
CHANGE.INDEXENTRY :D8
(I 1 STREAM I 0 OBJ) 2@A
@A
@A
@A
hhAoi¿(46 TEDIT.PROMPTPRINT 27 CHANGE.XINDEX.NUMBER 20 CHANGE.XINDEX.FONT 13 CHANGE.XINDEX.ENTRY 6 CHANGE.XINDEX.KEY)
NIL
( 40 "")
CHANGE.XINDEX.KEY :D8
(P 0 OLDINDEX.KEY I 1 STREAM I 0 OBJ) 3
@g

AoHo
		µH(45 MKATOM 40 CONVERT.TABS.TO.SPACES 35 TEDIT.GETINPUT 30 CONCAT 10 IMAGEOBJPROP)
(5 INDEX.KEY)
( 25 "\" to:" 19 "Change Extended Index Key \"")
CHANGE.XINDEX.ENTRY :D8
(P 0 OLDINDEX.ENTRY I 1 STREAM I 0 OBJ) 1
@É

AoHo
		µH(43 MKATOM 38 CONVERT.TABS.TO.SPACES 33 TEDIT.GETINPUT 28 CONCAT)
(5 IMAGEOBJ)
( 23 "\" to:" 17 "Change Extended Index Entry \"")
CHANGE.XINDEX.FONT :D8
(P 1 NEWINDEX.FONT P 0 OLDINDEX.FONT I 1 STREAM I 0 OBJ) P@É

AoH	oiA	Hµ`
YµAoi¿°Ý(74 TEDIT.PROMPTPRINT 59 GET.TSP.FONT 46 \\TEDIT.MAINW 40 TEDIT.PROMPTPRINT 34 CONCAT 24 ABBREVIATE.FONT)
(54 |GP.DefaultFont| 5 IMAGEOBJ)
( 68 "Invalid font specification...try again." 29 " to..." 18 "Change Extended Index Entry's font ")
CHANGE.XINDEX.NUMBER :D8
(P 0 OLDINDEX.NBR I 1 STREAM I 0 OBJ) -
@É

AoHoiH	(42 GET.INDEXENTRY.NUMBER 36 TEDIT.PROMPTPRINT 30 CONCAT)
(5 IMAGEOBJ)
( 25 "\" to..." 19 "Change Extended Index Number option \"")
GETHASH.INDEX :D8
(P 0 HARRAY I 1 IMAGESTREAM I 0 OBJ) Q
Ag
	
H³Agld	X¿@g
H
µA@g
@(78 ADD.NEW.INDEX 72 IMAGEOBJPROP 58 GETHASH 52 IMAGEOBJPROP 40 STREAMPROP 34 HASHARRAY 15 HASHARRAYP 10 STREAMPROP)
(67 INDEX.KEY 47 INDEX.KEY 27 TSP.INDEX.ARRAY 5 TSP.INDEX.ARRAY)
()
INDEX.PAGE.NUMBER :D8
(P 2 INDEX.TEMPLATE P 1 TEMPLATE.LIST P 0 INDEX.PAGE I 0 TSTREAM F 3 FORMATTINGSTATE) k

@	²\o@g
h
I
I¹ZªHS

°3HJ
µoJ
J

J
I

¸°ÁS
	(104 MKATOM 94 CONCAT 89 INDEX.MANUAL.DELIMITER 79 NGROUP.CHARTYPE.CONVERT 47 CONCAT 29 \\APPEND2 23 STREAMPROP 5 MANUALINDEX.ENABLED?)
(18 MANUALTEMPLATES)
( 66 "" 12 "")
INDEX.MANUAL.DELIMITER :D8
(I 1 NEXT.TEMPLATE I 0 AFTER.DELIMITER) *Aµ@œ@o
²oŒ
–oµ@(15 STREQUAL)
NIL
( 36 "" 22 "." 10 "")
INDEX.STRING :D8
(P 1 INDEXKEY P 0 OBJDATUM I 0 INDEX.OBJ) y
@É@g
	
H²KoIoH
H
dgð—¿o°#gð–o°oH
o
oIo(118 CONCAT 101 CONCAT 95 CONCAT 23 MKATOM 18 IMAGEOBJPROP)
(67 NO 52 YES 13 INDEX.KEY 5 IMAGEOBJ)
( 113 "}" 107 "{Index " 90 "}" 81 "," 74 ",No}" 60 ",Yes}" 40 ",Entry=" 34 "{Index Key=")
GET.INDEXENTRY.NUMBERA0004 :D8
(I 0 ITEM) !
@dgð²¿ohddi
	(30 NUMBERPAD.READ 25 CREATE.NUMBERPAD.READER)
(6 VALUE)
( 15 "NUMBER value?")
GET.INDEXENTRY.NUMBER :D8
(I 0 DEFAULTNUMBER) ^
`do¿di¿do¿dg¿dg ¿dg¿jdnÿdh
HdI
¿	µ
@µg(81 MENU)
(91 YES 52 DEFAULTMENUHELDFN 43 CLRPROMPT 34 GET.INDEXENTRY.NUMBERA0004 4 |MENUTYPE#|)
( 25 (YES NO VALUE) 11 "Number?")
INDEX.LIST.REFSA0001 :D8
(L (1 KY 0 VAL) F 0 INDEX.KEYLIST) 
APcNIL
NIL
()
INDEX.LIST.REFS :D8
(P 4 KEY P 3 INDEX.VALUE P 2 INDEX.KEYLIST P 1 INDEX.ITEMS P 0 INDEX.ARRAY I 0 IMAGESTREAM) y
@g
hh"Hg
Jg
°Kd

LH
[d
›¿ILh
¿K
²'ILhogLK

hh
¿µ¶I(110 \\NCONC2 97 LIST.OF.INDEXENTRIES 67 \\NCONC2 52 GETHASH 38 SORT 27 MAPHASH 10 STREAMPROP)
(87 SUBITEMS 33 UALPHORDER 22 INDEX.LIST.REFSA0001 5 TSP.INDEX.ARRAY)
( 82 "Select an Extended Index subitem.")
LIST.OF.INDEXENTRIESA0002 :D8
(I 1 B I 0 A) @



A




(20 UALPHORDER)
NIL
()
LIST.OF.INDEXENTRIES :D8
(P 3 OBJ P 1 DATUM P 0 ENTRY.LIST I 1 OBJLIST I 0 KEY) thh!A°Ud

KɹHI
oI
	oI

@IhZd´dið¬3µgJhhh
µ¬HH
g
(113 SORT 103 INTERSECTION 89 \\NCONC2 53 CONCAT 38 ABBREVIATE.FONT)
(108 LIST.OF.INDEXENTRIESA0002 75 QUOTE 19 IMAGEOBJ)
( 43 "  " 30 "  ")
CREATE.INDEX.FILE :D8
(P 3 INDEX.STREAM P 2 INDEX.LIST P 1 INDEX.ARRAY P 0 DUMMYSTREAM I 3 NOTITLE I 2 INDEX.FONT I 1 INDEX.FILE I 0 TSTREAM) ÿAµ@g
		µoA
	b@oAoigg
g
1@H
Hg
YH	ZH		J²kA²X[C³-o	K
¿oK
¿K	¿K	¿KJIBKA
	@o
AJ<>@oih@oih(251 TEDIT.PROMPTPRINT 237 TEDIT.PROMPTPRINT 221 TEDIT.PROMPTPRINT 210 CLOSEF? 205 TEDIT.PUT 198 WRITE.INDEX.FILE 188 TERPRI 181 TERPRI 174 PRIN1 162 DSPFONT 156 FONTCREATE 142 OPENTEXTSTREAM 131 DELFILE 126 CLOSEF? 119 INDEX.LIST.REFS 112 STREAMPROP 101 TEDIT.TO.IMAGEFILE 91 OPENIMAGESTREAM 81 UNIX-TMP-FILE-NAME 66 TEDIT.PROMPTPRINT 60 CONCAT 41 ERROR 36 CONCAT 23 OUTFILEP 18 GET.INDEX.FILE 13 STREAMPROP)
(107 TSP.INDEX.ARRAY 86 PDF 76 |pdf| 71 |tmax-index| 8 IMAGEOBJ.MENUW)
( 245 "There are no indexed terms in this document." 231 "Please specify a name for the index file" 216
 "done" 168 "Index" 151 (HELVETICA 14 BRR) 55 "..." 49 "Writing index on " 30 "Can't open index file")
DUMP.INDEX :D8
(P 0 TEXTFILE I 0 INDEXFILE F 1 TSTREAM F 2 IMAGESTREAM) ˜

Q	
H–H	¸QR@²6ghg@gHg
gHg

°?H² ghgggH
°Qg
	µo	hR
i
(149 CREATE.INDEX.FILE 142 DSPFONT 135 HELP 123 GET.INDEX.FILE 118 STREAMPROP 105 PACKFILENAME 72 PACKFILENAME 66 FILENAMEFIELD 50 FILENAMEFIELD 16 FULLNAME 5 TXTFILE)
(113 IMAGEOBJ.MENUW 98 BODY 93 INDEX 88 EXTENSION 82 VERSION 61 DIRECTORY 55 DIRECTORY 45 HOST 39 HOST 33 BODY 27 VERSION)
( 130 "No file for index")
VIEW.INDEX.FILE :D8
(P 0 INDEX.FILE I 0 TSTREAM) :

@	
H´.@gH@g

			H(54 STREAMPROP 49 WINDOWREGION 44 WFROMDS 39 TEXTSTREAM 34 TEDIT 29 STREAMPROP 5 CREATE.INDEX.FILE)
(24 INDEX.REGION 17 INDEX.REGION)
()
GET.INDEX.FILE :D8
(P 0 FILENAME I 0 MENUW) V

gh@Ã<00>gh@°ogh@
É
Ho
¦H	h(81 MKATOM 74 STREQUAL 53 ERROR 48 FM.GETITEM 29 FM.GETITEM 11 FM.GETITEM)
(58 FREEMENUITEM 41 INDEX.FILE 22 INDEX.FILE 16 FREEMENUITEM 4 INDEX.FILE)
( 69 "" 36 "Arg must be FreeMenuItem")
WRITE.INDEX.FILE :D8
(P 6 FONT P 5 INDEX.ENTRYARGS P 3 INDEX.SUBITEM P 2 PGS.AND.IMOBJS P 0 INDEX.ITEM I 4 PAGE.FONT I 3 INDEX.FONT I 2 INDEX.ARRAY I 1 INDEX.LIST I 0 INDEX.STREAM) ÍC§`b¿D£Cb¿o@
¿@	A°9d

Hµ5C@
¿H	@
¿@HB
hD¿@	¿µÈh
H
B
Iµ°ä
[

!LµIY°è
]
	^@
¿M
	@
¿@JM
D¿N@
¿@	¿L\°¹(197 TERPRI 190 DSPFONT 182 WRITE.INDEX.PAGENUMBERS 169 PRIN1 163 MKSTRING 155 DSPFONT 148 FONTCREATE 109 GETHASH 88 TERPRI 81 WRITE.INDEX.PAGENUMBERS 74 GETHASH 65 PRIN1 59 MKSTRING 52 DSPFONT 33 TERPRI 26 PRIN1)
(6 |GP.DefaultFont|)
( 20 "  ")
WRITE.INDEX.PAGENUMBERS :D8
(P 3 PAGE P 1 PAGE.STRING P 0 PAGE.NBRS I 3 PAGEFONT I 2 NUMBER.OPTION I 1 PAGES/IMOBJS I 0 STREAM) wC@
Bµ+A
o
H²RIH

YHJµ,I@
hgð–o°ÍBdgð’¿°¿	°º
»IoK¹JZ°ÁIH
@
(116 PRIN1 110 CONCAT 97 CONCAT 81 MKSTRING 48 PRIN1 31 CONCAT 6 DSPFONT)
(71 YES 55 NO)
( 91 ", " 62 "" 16 "    ")
RESET.INDEX.PAGENUMBERSA0001 :D8
(L (1 KEY 0 VAL)) @hNIL
NIL
()
RESET.INDEX.PAGENUMBERS :D8
(P 0 INDEX.ARRAY I 0 IMAGESTREAM) 

@g

Hd™g
(26 MAPHASH 10 STREAMPROP)
(21 RESET.INDEX.PAGENUMBERSA0001 5 TSP.INDEX.ARRAY)
()
SELECTION.TO.STRINGA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TEXTSTREAM F 3 SI::NLSETQ-VALUE) i@
R	hcg(10 TEDIT.SEL.AS.STRING)
(19 :NORMAL)
()
SELECTION.TO.STRING :D8
(P 14 *CONDITION-HANDLER-BINDINGS* P 13 SI::*NLSETQFLAG* P 12 *PROCEED-CASES* P 11 SI::NLSETQ-VALUE P 10 BC P 9 C P 6 ENDPOS P 5 STARTPOS P 4 NEXTESCAPE P 3 ENDPOS P 2 PREFIX P 1 POINT P 0 SEL I 0 TEXTSTREAM F 15 *PROCEED-CASES* F 16 *CONDITION-HANDLER-BINDINGS*) 
!
@	@	RHÉkÙ]HÉ
kÙ[HÉgð¢±<00>jMkÙ"
O½OMó¯@M
¿@ _
µ/MkÔ½@K
¿@	³I@ _
²AO	dlð²&¿i°.	dlð’¿iŠlð˜Ol-ðhð³»MmÿÔ°Ÿlð²¼Ol-ðhð²³@	»@	£KkÙ»MkØ]@MKkØMÕghig
`WioW O	gð´O
µ@oi(286 ERROR! 281 TEDIT.PROMPTPRINT 254 SELECTION.TO.STRINGA0001 224 TEDIT.SETSEL 189 EOFP 182 GETFILEPTR 135 TEDIT.WORDGET 120 TEDIT.WORDGET 103 EOFP 96 SETFILEPTR 76 SETFILEPTR 11 TEDIT.GETPOINT 5 TEDIT.GETSEL)
(260 :NORMAL 232 SI::NLSETQ-PROCEED-CASE 218 NORMAL 211 RIGHT 49 CHAR 42 SELECTION 31 SELECTION 20 SELECTION)
( 275 "Invalid index term--contains image object?" 241 (CL:ERROR . SI::NLSETQHANDLER))
SELECTION.TO.INDEX :D8
(P 1 OBJ P 0 NEWINDEX.KEY I 0 TSTREAM) <00>
o@		
	
Hµ@oi	jð³çH	

I@d	@d	kØjghig
@oH
i(126 TEDIT.PROMPTPRINT 120 CONCAT 108 TEDIT.SETSEL 87 TEDIT.GETPOINT 80 TEDIT.INSERT.OBJECT 75 TEDIT.GETPOINT 64 INDEXOBJ 54 NCHARS 48 ERROR! 43 TEDIT.PROMPTPRINT 25 MKATOM 20 CL:STRING-TRIM 15 CONVERT.TABS.TO.SPACES 10 SELECTION.TO.STRING)
(102 NORMAL 95 RIGHT)
( 114 "Index term: " 37 "No index term selected" 4 (#\Space))
(PRETTYCOMPRINT TMAX-INDEXCOMS)
(RPAQQ TMAX-INDEXCOMS ((* |;;| "Developed under support from NIH grant RR-00785.") (* |;;| 
"Written by Frank Gilmurray and Sami Shaio.  Modified by Ron Kaplan") (* |;;| 
"INDEX objects are simply inserted into the text stream.  Information about them is accumulated only when the displayfn is applied to a hardcopy imagestream, and it is accumulated as a property of the imagestream."
) (* |;;;| "TMAX-INDEX ImageObject functions") (INITVARS (INDEXDISPLAYAPPEARANCE (QUOTE BOX))) (FNS 
INDEXOBJ INDEXOBJP INDEX.DISPLAYFN INDEX.IMAGEBOXFN INDEX.PUTFN INDEX.GETFN INDEX.COPYFN 
INDEX.BUTTONEVENTINFN) (* |;;;| "Inserting indices") (FNS INSERT.INDEX INSERT.INDEXENTRY 
INSERT.KNOWN.INDEX SUBITEM.SELECTFN ADD.NEW.INDEX) (* |;;;| 
"Functions to change the Index/Extended Index") (FNS CHANGE.INDEX CHANGE.INDEXENTRY CHANGE.XINDEX.KEY 
CHANGE.XINDEX.ENTRY CHANGE.XINDEX.FONT CHANGE.XINDEX.NUMBER) (* |;;;| "Other misc functions") (FNS 
GETHASH.INDEX INDEX.PAGE.NUMBER INDEX.MANUAL.DELIMITER INDEX.STRING GET.INDEXENTRY.NUMBER 
INDEX.LIST.REFS LIST.OF.INDEXENTRIES) (* |;;;| "Index file functions") (FNS CREATE.INDEX.FILE 
DUMP.INDEX VIEW.INDEX.FILE GET.INDEX.FILE WRITE.INDEX.FILE WRITE.INDEX.PAGENUMBERS 
RESET.INDEX.PAGENUMBERS) (RECORDS INDEX.ENTRY.RECORD) (* |;;;| 
"Convenient interface--depress the props key to index the current selection") (FNS SELECTION.TO.STRING
 SELECTION.TO.INDEX) (MACROS MAKE.INDEXOBJ.IMAGEFNS) (VARS (\\INDEXOBJ.IMAGEFNS (
MAKE.INDEXOBJ.IMAGEFNS))) (ADDVARS (IMAGEOBJGETFNS (INDEX.GETFN))) (P (* \; 
"533 is the PROPS key on Sun keyboards") (TEDIT.SETSYNTAX "Function,^U" (QUOTE FN) TEDIT.READTABLE) (
TEDIT.SETFUNCTION "Function,^U" (FUNCTION SELECTION.TO.INDEX) TEDIT.READTABLE)) (* |;;;| 
"IMAGE OBJECT for causing the index to be written, without using the menu")))
(RPAQ? INDEXDISPLAYAPPEARANCE (QUOTE BOX))
(RECORD INDEX.ENTRY.RECORD (INDEX.ENTRY INDEX.ENTRYFONT INDEX.NUMBER))
(PUTPROPS MAKE.INDEXOBJ.IMAGEFNS MACRO (LAMBDA NIL (IMAGEFNSCREATE (FUNCTION INDEX.DISPLAYFN) (
FUNCTION INDEX.IMAGEBOXFN) (FUNCTION INDEX.PUTFN) (FUNCTION INDEX.GETFN) (FUNCTION INDEX.COPYFN) (
FUNCTION INDEX.BUTTONEVENTINFN) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (
FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL))))
(RPAQ \\INDEXOBJ.IMAGEFNS (MAKE.INDEXOBJ.IMAGEFNS))
(ADDTOVAR IMAGEOBJGETFNS (INDEX.GETFN))
(TEDIT.SETSYNTAX "Function,^U" (QUOTE FN) TEDIT.READTABLE)
(TEDIT.SETFUNCTION "Function,^U" (FUNCTION SELECTION.TO.INDEX) TEDIT.READTABLE)
NIL