diff --git a/doctools/IMTEDIT b/doctools/IMTEDIT index b5539ee0d..387d6ef03 100644 --- a/doctools/IMTEDIT +++ b/doctools/IMTEDIT @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 6-Mar-2024 21:18:02" {WMEDLEY}IMTEDIT.;4 116622 +(FILECREATED "12-Apr-2024 19:58:59" {WMEDLEY}IMTEDIT.;5 117369 :EDIT-BY rmk - :CHANGES-TO (FNS TRANSLATE.DUMPOUT MAKE.IM.DOCUMENT) + :CHANGES-TO (FNS MAKE.IM.DOCUMENT) - :PREVIOUS-DATE "20-Jul-2022 15:10:53" {WMEDLEY}IMTEDIT.;2) + :PREVIOUS-DATE " 6-Mar-2024 21:18:02" {WMEDLEY}IMTEDIT.;4) (PRETTYCOMPRINT IMTEDITCOMS) @@ -15,16 +15,17 @@ ((FNS IM.TEDIT DUMP DUMP.HEADERS.FOOTERS DUMP.HRULE CHANGE.FONT IM.BOUT.IMAGEOBJ IM.TEDIT.DUMP.COMMANDS IM.TEDIT.DUMP.FOOTNOTES IM.TEDIT.DUMP.PARA INDEXX.PARSE.TYPE FORMAT.DEF FORMAT.LISPWORD MAKE.IM.DOCUMENT PRINT.NOTE SEND.INFO) - (COMS (* fns for drawing vrules to the left of definition text -- an unused, never-fully - debuged feature) + (COMS (* ; + "fns for drawing vrules to the left of definition text -- an unused, never-fully debuged feature") (FNS IM.VRULE.DISPLAYFN CREATE.VRULE.OBJECT PRINT.VRULES.ON.PAGE) (VARS (IM.VRULE.STATE.LIST)) (INITVARS (IM.VRULE.OBJECT.IMAGEFNS NIL) (IM.PRINT.VRULE.FLG NIL))) - (COMS (* fns for printing page numbers) + (COMS (* ; "fns for printing page numbers") (FNS IM.FOLIO.DISPLAYFN IM.FOLIO.SIZEFN CREATE.FOLIO.OBJECT GET.FOLIO.STRING) (INITVARS (IM.FOLIO.OBJECT.IMAGEFNS NIL))) - (COMS (* TOPROG functions, used to define the translating actions of IM text objects.) + (COMS (* ; + "TOPROG functions, used to define the translating actions of IM text objects.") (FNS ARG#TOPROG BIGLISPCODE#TOPROG BRACKET#TOPROG CHAPTER#TOPROG COMMENT#TOPROG DEF#TOPROG FIGURE#TOPROG FN#TOPROG FNDEF#TOPROG FOOT#TOPROG INCLUDE#TOPROG INDEX#TOPROG INDEXX#TOPROG IT#TOPROG LBRACKET#TOPROG LISP#TOPROG LISPCODE#TOPROG @@ -54,104 +55,112 @@ (IM.TEXT.FONT '(FAMILY MODERN FACE MRR SIZE 10)) (IM.HEADER.FOOTER.FONT '(FAMILY MODERN FACE MRR SIZE 8)) (IM.XEROX.LOGO.FONT '(FAMILY MODERN FACE BRR SIZE 30] - (COMS (* the following variables specify all of the lengths used for possitioning IM text, - headers, etc. on the page. All of these are measured with respect to the page - *margins* or with - respect to the page *edges* .) - (* Note%: The formatting and printing does not always position the image on the page - exactly as specified. It will probably be necessary to adjust any variables based on - the page edges until they come out correctly on your printer.) - (* indentation of 1st line of definitian header, measured in points from left page - margin. Also used for indentation of hrule under defn header.) + (COMS + (* ;; "the following variables specify all of the lengths used for possitioning IM text, headers, etc. on the page. All of these are measured with respect to the page *margins* or with respect to the page *edges* .") + + + (* ;; "Note: The formatting and printing does not always position the image on the page exactly as specified. It will probably be necessary to adjust any variables based on the page edges until they come out correctly on your printer.") + + + (* ;; "indentation of 1st line of definitian header, measured in points from left page margin. Also used for indentation of hrule under defn header.") + (INITVARS (IM.DEF.TITLE.1STLEFTMARGIN 75)) - (* indentation of 2nd and other overflow lines of definition header, measured in points - from left page margin.) + + (* ;; "indentation of 2nd and other overflow lines of definition header, measured in points from left page margin.") + (INITVARS (IM.DEF.TITLE.LEFTMARGIN 204)) - (* indentation of vertical rule to the left of definition text, measured in points from - left page margin. This is a never-used, never-debugged feature.) + + (* ;; "indentation of vertical rule to the left of definition text, measured in points from left page margin. This is a never-used, never-debugged feature.") + (INITVARS (IM.VRULE.X 194)) - (* y-pos of top-left corner of top text line, measured in points from bottom page edge. - ) + (* ; + "y-pos of top-left corner of top text line, measured in points from bottom page edge.") (INITVARS (IM.TEXT.TOPMARGIN 738)) - (* y-pos of bottom-left corner of bottom text line, measured in points from bottom page - edge.) + (* ; + "y-pos of bottom-left corner of bottom text line, measured in points from bottom page edge.") (INITVARS (IM.TEXT.BOTTOMMARGIN 54)) - (* x-pos of left edge of text, measured in points from the left page margin.) + (* ; + "x-pos of left edge of text, measured in points from the left page margin.") (INITVARS (IM.TEXT.LEFTMARGIN 204)) - (* x-pos of right edge of text, measured in points from the left page margin.) + (* ; + "x-pos of right edge of text, measured in points from the left page margin.") (INITVARS (IM.TEXT.RIGHTMARGIN 504)) - (* X-pos and Y-pos of the lower-left corner of the - "[This page intentionally left blank]" message printed on blank pages, measured in - points from the left and bottom page edges.) + + (* ;; "X-pos and Y-pos of the lower-left corner of the '[This page intentionally left blank]' message printed on blank pages, measured in points from the left and bottom page edges.") + (INITVARS (IM.BLANKPAGE.SPECIALX 258) (IM.BLANKPAGE.SPECIALY 400)) - (* In the table of contents, indentation of first and second-level subsection headers, - measured in points from the left page margin.) + + (* ;; "In the table of contents, indentation of first and second-level subsection headers, measured in points from the left page margin.") + (INITVARS (IM.TOC.SUBSEC.ONE.LEFTMARGIN 120) (IM.TOC.SUBSEC.TWO.LEFTMARGIN 216)) - (* in the index, the indentation of the first line and remaining lines of a top-level - entry, of a subentry, and of a subsubentry, measured in points from the left page - margin .) + + (* ;; "in the index, the indentation of the first line and remaining lines of a top-level entry, of a subentry, and of a subsubentry, measured in points from the left page margin .") + (INITVARS (IM.INDEX.1STLEFTMARGIN 0) (IM.INDEX.LEFTMARGIN 75) (IM.INDEX.SUB.1STLEFTMARGIN 25) (IM.INDEX.SUB.LEFTMARGIN 75) (IM.INDEX.SUBSUB.1STLEFTMARGIN 50) (IM.INDEX.SUBSUB.LEFTMARGIN 75)) - (* on the title page, the y-pos of the lower-left corner of the first line in the title - , measured in points from the bottom page margin. The X-pos - is always 0 for the XEROX logo, and the normal text indentation for the title.) + + (* ;; "on the title page, the y-pos of the lower-left corner of the first line in the title , measured in points from the bottom page margin. The X-pos is always 0 for the XEROX logo, and the normal text indentation for the title.") + (INITVARS (IM.TITLEPAGE.TITLE.Y 258)) - (* on the title page, the y-pos of the lower-left corner of the first line in the - document number, measured in points from the bottom page margin. The Y-pos is always - the normal text indentation.) + + (* ;; "on the title page, the y-pos of the lower-left corner of the first line in the document number, measured in points from the bottom page margin. The Y-pos is always the normal text indentation.") + (INITVARS (IM.TITLEPAGE.DOCNUMBER.Y 45)) - (* Tedit tab setting used for subsection heading text. "(40 . LEFT)" determines the - indentation of the title after the subsec number, measured in points from the left - page margin. "18" is the tab used if the subsec number is wider than 40 pts.) + + (* ;; "Tedit tab setting used for subsection heading text. '(40 . LEFT)' determines the indentation of the title after the subsec number, measured in points from the left page margin. '18' is the tab used if the subsec number is wider than 40 pts.") + [INITVARS (IM.SUBSEC.TITLE.TABS '(18 (40 . LEFT] - (* Tedit tab setting used for chapter titles, headers, and footers to right-justify - text. "(504 . RIGHT)" specifies a right tab at the right-hand edge of the text, - measured in points from the left page margin.) + + (* ;; "Tedit tab setting used for chapter titles, headers, and footers to right-justify text. '(504 . RIGHT)' specifies a right tab at the right-hand edge of the text, measured in points from the left page margin.") + [INITVARS (IM.RIGHT.MARGIN.TABS '(0 (504 . RIGHT] - (* Tedit tab setting used for labeled lists, numbered lists, bullet-ed lists. - "(186 . RIGHT)" right-justifies the label on the left of the center space. - "(204 . LEFT)" starts the first line of the list item with the same indentation as - normal text. Both measurements are measured in points from the left page margin.) + + (* ;; "Tedit tab setting used for labeled lists, numbered lists, bullet-ed lists. '(186 . RIGHT)' right-justifies the label on the left of the center space. '(204 . LEFT)' starts the first line of the list item with the same indentation as normal text. Both measurements are measured in points from the left page margin.") + [INITVARS (IM.LABELED.LIST.TABS '(18 (186 . RIGHT) (204 . LEFT] - (* left, right, top, and bottom margins of the "page region" %, measured in points from - the four edges of the page.) + + (* ;; "left, right, top, and bottom margins of the 'page region' , measured in points from the four edges of the page.") + (INITVARS (IM.PAGE.LEFTMARGIN 58) (IM.PAGE.RIGHTMARGIN 54) (IM.PAGE.TOPMARGIN 54) (IM.PAGE.BOTTOMMARGIN 54)) - (* top margin of the page region for the first page of a chapter , measured in points from the top page edge.) + + (* ;; "top margin of the page region for the first page of a chapter , measured in points from the top page edge.") + (INITVARS (IM.PAGE.FIRST.TOPMARGIN 12)) - (* top margin of the page region for the first page of the index, measured in points - from the top page edge. Note that in the case of the index, because it uses two - columns, the index title is implemented as a Tedit header, instead of as the first - paragraph of the document.) + + (* ;; "top margin of the page region for the first page of the index, measured in points from the top page edge. Note that in the case of the index, because it uses two columns, the index title is implemented as a Tedit header, instead of as the first paragraph of the document.") + (INITVARS (IM.INDEX.PAGE.FIRST.TOPMARGIN 144)) - (* y-pos of lower-left corner of footer text, measured in points from the bottom page - edge.) + (* ; + "y-pos of lower-left corner of footer text, measured in points from the bottom page edge.") (INITVARS (IM.FOOTER.Y 22)) - (* y-pos of the footer hrule, measured in points from the bottom page edge.) + (* ; + "y-pos of the footer hrule, measured in points from the bottom page edge.") (INITVARS (IM.FOOTER.RULE.Y 30)) - (* y-pos of lower-left corner of header text, measured in points from the bottom page - edge.) + (* ; + "y-pos of lower-left corner of header text, measured in points from the bottom page edge.") (INITVARS (IM.HEADER.Y 761)) - (* y-pos of the header hrule, measured in points from the bottom page edge.) + (* ; + "y-pos of the header hrule, measured in points from the bottom page edge.") (INITVARS (IM.HEADER.RULE.Y 757)) - (* y-pos of lower-left corner of bottom draft message, measured in points from the - bottom page edge.) + (* ; + "y-pos of lower-left corner of bottom draft message, measured in points from the bottom page edge.") (INITVARS (IM.DRAFT.MESSAGE.BOTTOM.Y 5)) - (* y-pos of lower-left corner of top draft message, measured in points from the bottom - page edge.) + (* ; + "y-pos of lower-left corner of top draft message, measured in points from the bottom page edge.") (INITVARS (IM.DRAFT.MESSAGE.TOP.Y 775)) - (* x-pos of lower-left corner of both top and bottom draft messages, measured in points - from the left page edge.) + + (* ;; "x-pos of lower-left corner of both top and bottom draft messages, measured in points from the left page edge.") + (INITVARS (IM.DRAFT.MESSAGE.X 200))) (FILES TEDIT IMTRAN HRULE IMINDEX) (FNS TRANSLATE.DUMPOUT TRANSLATE.SAVE.DUMPOUT) @@ -491,6 +500,8 @@ (MAKE.IM.DOCUMENT [LAMBDA (FORM OUTFILE.FLG PAGE.LAYOUT OUTPUT.MESSAGE DEFAULT.PARALOOKS PTRFILENAME) + (* ;; "Edited 12-Apr-2024 19:58 by rmk") + (* ;; "Edited 6-Mar-2024 21:17 by rmk: Fixed backquote commas. Also put IM.INDEX.CLOSEF calls in TEXTPROPs so advice in IMINDEX can be eliminated.") (* ;; "Edited 20-Jul-2022 15:10 by rmk") @@ -506,9 +517,7 @@ (* ;;; "PTRFILENAME is the name to be used if an index pointer file is generated during hardcopy ") - (PROG ([IM.OUTFILE (OPENTEXTSTREAM NIL NIL NIL NIL `(IM.INDEX.PTRFILENAME ,PTRFILENAME - AFTERHARDCOPYFN (FUNCTION - IM.INDEX.INIT] + (PROG ([IM.OUTFILE (OPENTEXTSTREAM NIL NIL NIL NIL `(IM.INDEX.PTRFILENAME ,PTRFILENAME] (FONT.STACK (CONS)) (IM.TEDIT.LAST.PARA.BEGIN 1) (IM.TEDIT.LAST.FONT.BEGIN 1) @@ -650,7 +659,8 @@ -(* fns for drawing vrules to the left of definition text -- an unused, never-fully debuged feature) +(* ; "fns for drawing vrules to the left of definition text -- an unused, never-fully debuged feature" +) (DEFINEQ @@ -735,7 +745,7 @@ -(* fns for printing page numbers) +(* ; "fns for printing page numbers") (DEFINEQ @@ -831,7 +841,7 @@ -(* TOPROG functions, used to define the translating actions of IM text objects.) +(* ; "TOPROG functions, used to define the translating actions of IM text objects.") (DEFINEQ @@ -2062,75 +2072,78 @@ -(* the following variables specify all of the lengths used for possitioning IM text, headers, etc. on -the page. All of these are measured with respect to the page *margins* or with respect to the page *edges* . +(* ;; +"the following variables specify all of the lengths used for possitioning IM text, headers, etc. on the page. All of these are measured with respect to the page *margins* or with respect to the page *edges* ." ) -(* Note%: The formatting and printing does not always position the image on the page exactly as -specified. It will probably be necessary to adjust any variables based on the page edges until they -come out correctly on your printer.) +(* ;; +"Note: The formatting and printing does not always position the image on the page exactly as specified. It will probably be necessary to adjust any variables based on the page edges until they come out correctly on your printer." +) -(* indentation of 1st line of definitian header, measured in points from left page margin. Also used -for indentation of hrule under defn header.) +(* ;; +"indentation of 1st line of definitian header, measured in points from left page margin. Also used for indentation of hrule under defn header." +) (RPAQ? IM.DEF.TITLE.1STLEFTMARGIN 75) -(* indentation of 2nd and other overflow lines of definition header, measured in points from left page - margin.) +(* ;; +"indentation of 2nd and other overflow lines of definition header, measured in points from left page margin." +) (RPAQ? IM.DEF.TITLE.LEFTMARGIN 204) -(* indentation of vertical rule to the left of definition text, measured in points from left page -margin. This is a never-used, never-debugged feature.) +(* ;; +"indentation of vertical rule to the left of definition text, measured in points from left page margin. This is a never-used, never-debugged feature." +) (RPAQ? IM.VRULE.X 194) -(* y-pos of top-left corner of top text line, measured in points from bottom page edge.) +(* ; "y-pos of top-left corner of top text line, measured in points from bottom page edge.") (RPAQ? IM.TEXT.TOPMARGIN 738) -(* y-pos of bottom-left corner of bottom text line, measured in points from bottom page edge.) +(* ; "y-pos of bottom-left corner of bottom text line, measured in points from bottom page edge.") (RPAQ? IM.TEXT.BOTTOMMARGIN 54) -(* x-pos of left edge of text, measured in points from the left page margin.) +(* ; "x-pos of left edge of text, measured in points from the left page margin.") (RPAQ? IM.TEXT.LEFTMARGIN 204) -(* x-pos of right edge of text, measured in points from the left page margin.) +(* ; "x-pos of right edge of text, measured in points from the left page margin.") (RPAQ? IM.TEXT.RIGHTMARGIN 504) -(* X-pos and Y-pos of the lower-left corner of the "[This page intentionally left blank]" message -printed on blank pages, measured in points from the left and bottom page edges.) +(* ;; +"X-pos and Y-pos of the lower-left corner of the '[This page intentionally left blank]' message printed on blank pages, measured in points from the left and bottom page edges." +) (RPAQ? IM.BLANKPAGE.SPECIALX 258) @@ -2139,8 +2152,9 @@ printed on blank pages, measured in points from the left and bottom page edges.) -(* In the table of contents, indentation of first and second-level subsection headers, measured in -points from the left page margin.) +(* ;; +"In the table of contents, indentation of first and second-level subsection headers, measured in points from the left page margin." +) (RPAQ? IM.TOC.SUBSEC.ONE.LEFTMARGIN 120) @@ -2149,8 +2163,9 @@ points from the left page margin.) -(* in the index, the indentation of the first line and remaining lines of a top-level entry, of a -subentry, and of a subsubentry, measured in points from the left page margin .) +(* ;; +"in the index, the indentation of the first line and remaining lines of a top-level entry, of a subentry, and of a subsubentry, measured in points from the left page margin ." +) (RPAQ? IM.INDEX.1STLEFTMARGIN 0) @@ -2167,45 +2182,45 @@ subentry, and of a subsubentry, measured in points from the left page margin , measured in points from the bottom page margin. The X-pos is always 0 for the XEROX logo, - and the normal text indentation for the title.) +(* ;; +"on the title page, the y-pos of the lower-left corner of the first line in the title , measured in points from the bottom page margin. The X-pos is always 0 for the XEROX logo, and the normal text indentation for the title." +) (RPAQ? IM.TITLEPAGE.TITLE.Y 258) -(* on the title page, the y-pos of the lower-left corner of the first line in the document number, -measured in points from the bottom page margin. The Y-pos is always the normal text indentation.) +(* ;; +"on the title page, the y-pos of the lower-left corner of the first line in the document number, measured in points from the bottom page margin. The Y-pos is always the normal text indentation." +) (RPAQ? IM.TITLEPAGE.DOCNUMBER.Y 45) -(* Tedit tab setting used for subsection heading text. "(40 . LEFT)" determines the indentation of the - title after the subsec number, measured in points from the left page margin. "18" is the tab used if -the subsec number is wider than 40 pts.) +(* ;; +"Tedit tab setting used for subsection heading text. '(40 . LEFT)' determines the indentation of the title after the subsec number, measured in points from the left page margin. '18' is the tab used if the subsec number is wider than 40 pts." +) (RPAQ? IM.SUBSEC.TITLE.TABS '(18 (40 . LEFT))) -(* Tedit tab setting used for chapter titles, headers, and footers to right-justify text. -"(504 . RIGHT)" specifies a right tab at the right-hand edge of the text, measured in points from the -left page margin.) +(* ;; +"Tedit tab setting used for chapter titles, headers, and footers to right-justify text. '(504 . RIGHT)' specifies a right tab at the right-hand edge of the text, measured in points from the left page margin." +) (RPAQ? IM.RIGHT.MARGIN.TABS '(0 (504 . RIGHT))) -(* Tedit tab setting used for labeled lists, numbered lists, bullet-ed lists. "(186 . RIGHT)" -right-justifies the label on the left of the center space. "(204 . LEFT)" starts the first line of the - list item with the same indentation as normal text. Both measurements are measured in points from the - left page margin.) +(* ;; +"Tedit tab setting used for labeled lists, numbered lists, bullet-ed lists. '(186 . RIGHT)' right-justifies the label on the left of the center space. '(204 . LEFT)' starts the first line of the list item with the same indentation as normal text. Both measurements are measured in points from the left page margin." +) (RPAQ? IM.LABELED.LIST.TABS '(18 (186 . RIGHT) @@ -2213,8 +2228,9 @@ right-justifies the label on the left of the center space. "(204 . LEFT)" starts -(* left, right, top, and bottom margins of the "page region" %, measured in points from the four edges - of the page.) +(* ;; +"left, right, top, and bottom margins of the 'page region' , measured in points from the four edges of the page." +) (RPAQ? IM.PAGE.LEFTMARGIN 58) @@ -2227,67 +2243,70 @@ right-justifies the label on the left of the center space. "(204 . LEFT)" starts -(* top margin of the page region for the first page of a chapter , measured in points from the top page edge.) +(* ;; +"top margin of the page region for the first page of a chapter , measured in points from the top page edge." +) (RPAQ? IM.PAGE.FIRST.TOPMARGIN 12) -(* top margin of the page region for the first page of the index, measured in points from the top page - edge. Note that in the case of the index, because it uses two columns, the index title is implemented - as a Tedit header, instead of as the first paragraph of the document.) +(* ;; +"top margin of the page region for the first page of the index, measured in points from the top page edge. Note that in the case of the index, because it uses two columns, the index title is implemented as a Tedit header, instead of as the first paragraph of the document." +) (RPAQ? IM.INDEX.PAGE.FIRST.TOPMARGIN 144) -(* y-pos of lower-left corner of footer text, measured in points from the bottom page edge.) +(* ; "y-pos of lower-left corner of footer text, measured in points from the bottom page edge.") (RPAQ? IM.FOOTER.Y 22) -(* y-pos of the footer hrule, measured in points from the bottom page edge.) +(* ; "y-pos of the footer hrule, measured in points from the bottom page edge.") (RPAQ? IM.FOOTER.RULE.Y 30) -(* y-pos of lower-left corner of header text, measured in points from the bottom page edge.) +(* ; "y-pos of lower-left corner of header text, measured in points from the bottom page edge.") (RPAQ? IM.HEADER.Y 761) -(* y-pos of the header hrule, measured in points from the bottom page edge.) +(* ; "y-pos of the header hrule, measured in points from the bottom page edge.") (RPAQ? IM.HEADER.RULE.Y 757) -(* y-pos of lower-left corner of bottom draft message, measured in points from the bottom page edge.) +(* ; +"y-pos of lower-left corner of bottom draft message, measured in points from the bottom page edge.") (RPAQ? IM.DRAFT.MESSAGE.BOTTOM.Y 5) -(* y-pos of lower-left corner of top draft message, measured in points from the bottom page edge.) +(* ; "y-pos of lower-left corner of top draft message, measured in points from the bottom page edge.") (RPAQ? IM.DRAFT.MESSAGE.TOP.Y 775) -(* x-pos of lower-left corner of both top and bottom draft messages, measured in points from the left -page edge.) +(* ;; +"x-pos of lower-left corner of both top and bottom draft messages, measured in points from the left page edge." +) (RPAQ? IM.DRAFT.MESSAGE.X 200) @@ -2388,23 +2407,23 @@ page edge.) (PUTPROPS SAVE.DUMPOUT MACRO (X (TRANSLATE.SAVE.DUMPOUT X))) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (10668 38115 (IM.TEDIT 10678 . 12359) (DUMP 12361 . 14656) (DUMP.HEADERS.FOOTERS 14658 - . 17024) (DUMP.HRULE 17026 . 18177) (CHANGE.FONT 18179 . 19373) (IM.BOUT.IMAGEOBJ 19375 . 19698) ( -IM.TEDIT.DUMP.COMMANDS 19700 . 23253) (IM.TEDIT.DUMP.FOOTNOTES 23255 . 23696) (IM.TEDIT.DUMP.PARA -23698 . 24472) (INDEXX.PARSE.TYPE 24474 . 25769) (FORMAT.DEF 25771 . 27902) (FORMAT.LISPWORD 27904 . -28055) (MAKE.IM.DOCUMENT 28057 . 36970) (PRINT.NOTE 36972 . 37186) (SEND.INFO 37188 . 38113)) (38224 -42242 (IM.VRULE.DISPLAYFN 38234 . 38558) (CREATE.VRULE.OBJECT 38560 . 40340) (PRINT.VRULES.ON.PAGE -40342 . 42240)) (42400 47155 (IM.FOLIO.DISPLAYFN 42410 . 43088) (IM.FOLIO.SIZEFN 43090 . 43939) ( -CREATE.FOLIO.OBJECT 43941 . 45487) (GET.FOLIO.STRING 45489 . 47153)) (47287 93527 (ARG#TOPROG 47297 . -47436) (BIGLISPCODE#TOPROG 47438 . 48674) (BRACKET#TOPROG 48676 . 48840) (CHAPTER#TOPROG 48842 . 51523 -) (COMMENT#TOPROG 51525 . 52077) (DEF#TOPROG 52079 . 55414) (FIGURE#TOPROG 55416 . 56760) (FN#TOPROG -56762 . 57159) (FNDEF#TOPROG 57161 . 61053) (FOOT#TOPROG 61055 . 61596) (INCLUDE#TOPROG 61598 . 61913) - (INDEX#TOPROG 61915 . 63005) (INDEXX#TOPROG 63007 . 65088) (IT#TOPROG 65090 . 65231) (LBRACKET#TOPROG - 65233 . 65387) (LISP#TOPROG 65389 . 65530) (LISPCODE#TOPROG 65532 . 66651) (LISPWORD#TOPROG 66653 . -67393) (LIST#TOPROG 67395 . 71817) (MACDEF#TOPROG 71819 . 72997) (NOTE#TOPROG 72999 . 73679) ( -PRINT.SPECIAL.CHARS#TOPROG 73681 . 74658) (PROPDEF#TOPROG 74660 . 74937) (RBRACKET#TOPROG 74939 . -75093) (REF#TOPROG 75095 . 82934) (RM#TOPROG 82936 . 83074) (SUB#TOPROG 83076 . 83224) (SUBSEC#TOPROG -83226 . 87729) (SUPER#TOPROG 87731 . 87885) (TABLE#TOPROG 87887 . 91839) (TAG#TOPROG 91841 . 92108) ( -TERM#TOPROG 92110 . 92423) (VAR#TOPROG 92425 . 92828) (VARDEF#TOPROG 92830 . 93525)) (111173 116115 ( -TRANSLATE.DUMPOUT 111183 . 115714) (TRANSLATE.SAVE.DUMPOUT 115716 . 116113))))) + (FILEMAP (NIL (11391 38703 (IM.TEDIT 11401 . 13082) (DUMP 13084 . 15379) (DUMP.HEADERS.FOOTERS 15381 + . 17747) (DUMP.HRULE 17749 . 18900) (CHANGE.FONT 18902 . 20096) (IM.BOUT.IMAGEOBJ 20098 . 20421) ( +IM.TEDIT.DUMP.COMMANDS 20423 . 23976) (IM.TEDIT.DUMP.FOOTNOTES 23978 . 24419) (IM.TEDIT.DUMP.PARA +24421 . 25195) (INDEXX.PARSE.TYPE 25197 . 26492) (FORMAT.DEF 26494 . 28625) (FORMAT.LISPWORD 28627 . +28778) (MAKE.IM.DOCUMENT 28780 . 37558) (PRINT.NOTE 37560 . 37774) (SEND.INFO 37776 . 38701)) (38817 +42835 (IM.VRULE.DISPLAYFN 38827 . 39151) (CREATE.VRULE.OBJECT 39153 . 40933) (PRINT.VRULES.ON.PAGE +40935 . 42833)) (42997 47752 (IM.FOLIO.DISPLAYFN 43007 . 43685) (IM.FOLIO.SIZEFN 43687 . 44536) ( +CREATE.FOLIO.OBJECT 44538 . 46084) (GET.FOLIO.STRING 46086 . 47750)) (47888 94128 (ARG#TOPROG 47898 . +48037) (BIGLISPCODE#TOPROG 48039 . 49275) (BRACKET#TOPROG 49277 . 49441) (CHAPTER#TOPROG 49443 . 52124 +) (COMMENT#TOPROG 52126 . 52678) (DEF#TOPROG 52680 . 56015) (FIGURE#TOPROG 56017 . 57361) (FN#TOPROG +57363 . 57760) (FNDEF#TOPROG 57762 . 61654) (FOOT#TOPROG 61656 . 62197) (INCLUDE#TOPROG 62199 . 62514) + (INDEX#TOPROG 62516 . 63606) (INDEXX#TOPROG 63608 . 65689) (IT#TOPROG 65691 . 65832) (LBRACKET#TOPROG + 65834 . 65988) (LISP#TOPROG 65990 . 66131) (LISPCODE#TOPROG 66133 . 67252) (LISPWORD#TOPROG 67254 . +67994) (LIST#TOPROG 67996 . 72418) (MACDEF#TOPROG 72420 . 73598) (NOTE#TOPROG 73600 . 74280) ( +PRINT.SPECIAL.CHARS#TOPROG 74282 . 75259) (PROPDEF#TOPROG 75261 . 75538) (RBRACKET#TOPROG 75540 . +75694) (REF#TOPROG 75696 . 83535) (RM#TOPROG 83537 . 83675) (SUB#TOPROG 83677 . 83825) (SUBSEC#TOPROG +83827 . 88330) (SUPER#TOPROG 88332 . 88486) (TABLE#TOPROG 88488 . 92440) (TAG#TOPROG 92442 . 92709) ( +TERM#TOPROG 92711 . 93024) (VAR#TOPROG 93026 . 93429) (VARDEF#TOPROG 93431 . 94126)) (111920 116862 ( +TRANSLATE.DUMPOUT 111930 . 116461) (TRANSLATE.SAVE.DUMPOUT 116463 . 116860))))) STOP diff --git a/doctools/IMTEDIT.LCOM b/doctools/IMTEDIT.LCOM index 68d91551f..c5da1a02a 100644 Binary files a/doctools/IMTEDIT.LCOM and b/doctools/IMTEDIT.LCOM differ