Medley TEDIT-PF-SEE 2 4 1 TEDIT-PF-SEE 1 4 By: Ron Kaplan This document created in January 2022, last edited August 2024. This tiny package adds alternatives to the PF and SEE commands that produce their output in scrollable read-only TEDIT windows rather than the unscrollable EXEC window. The new commands are tf (for t(edit)f(unction) and ts for t(edit)s(ee) tf FUNCTION (FILELIST) (REPRINT) [command] prints the definitions of FUNCTION that appear in the files in FILELIST, with a separate TEDIT allocated for each definition. If FILELST is not provided, then WHEREIS is used to locate the defintions, just as with PF. By default the definition characters are simply copied from the source file to the TEDIT stream, but if REPRINT is T the definition is read and then reprinted. This produces useful output for definitions that were not pretty-printed. Also, if FUNCTION is not provided, definitions for the last invocation will be reprinted. ts FILE (WINDOW) [command] shows the contents of FILE in a scrollable read-only TEDIT WINDOW. This uses the function TEDIT-SEE (also used for the FILEBROWSER See command), which interprets any font changes if FILE is a Lisp source file. Meta,T Meta,t [Tedit command keys] are armed in the Tedit readtable to cause the definition of the function named in the document's current selection to be shown in a separate read-only Tedit window. TEDIT-PF-SEE loads the REGIONMANAGER package, and the default regions for tf and ts are of type PF-TEDIT and SEE-TEDIT respectively. The function SET-TYPED-REGIONS can be used to predefine the regions where the output for tf and ts (and the meta command-keys) will appear. (SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))))1$1$4È$È1È$1ŠŠ8$1ŠŠ8$JÈ$È PAGEHEADING RUNNINGHEADMODERN ‡y(DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (PDF (TERMINAL 8)) (TEXT (TERMINAL 12)) (POSTSCRIPT (TERMINAL 8))) TERMINALMODERN  TIMESROMAN$ HRULE.GETFN HRULE.GETFN HRULE.GETFN  HRULE.GETFN HRULE.GETFN@ðF$0U…I $ '#¥   <  šDATE:hâš Uzº