XEROX EDITRECALL 2 4 1 EDITRECALL 1 4 By: Mitchell L Model 473 Edgell Road Framingham, MA 01701 Improved interfaces to editors Notice and Acknowledgement: This package was developed while the author was an employee of Applied Expert Systems, Inc. (Apex), Cambridge, MA. The author thanks the company for its support and assumes full responsibility for the contents and maintenance of this package. SOFTWARE REQUIRED EDITRECALL.DCOM Summary Editor functions are advised to keep track of all edited functions (on EDITEDFNS) and all edited variables (on EDITEDVARS). The function DOTEDIT (below) keeps track of the files edited with it (on EDITEDFILES). These lists support the following interface extensions. Users are free to modify them as desired, particularly if they get too long. Extension to EDITF and EDITV: [and therefore DF, EF, DV, EV, etc.] The argument T causes the most recently edited function or variable to be used. (The effect of NIL is unchanged: the function or variable whose name is the value of LASTWORD is edited.) Interface to TEDIT: (DOTEDIT FILNAM) [Function] Normally called by the TED LISPXMACRO below, DOTEDIT must be used in place of TEDIT to get features described here. LISPXMACROS: DSF Select a function to be edited from a menu listing all functions that have been edited. DSV Select a variable to be edited from a menu listing all variables that have been edited. TED FIL TEDIT FIL, using TEDITWIN as the TEDIT window. If TEDITWIN is NIL, a new window will be created using region TEDITWINREG if NIL. [TEDITWINREG is initialized to give a window 63 lines high and 74 GACHA10 characters wide. (This is about what will fit on a printer page with 6.5 inch margins.)] If the file doesn't exist, you will be asked if you want it created. TED Select a file to TEDIT from a menu listing all files that have been edited via the TED LISPXMACRO or DOTEDIT. In addition, DSF, DSV, and TED take integer arguments denoting the NTH most recent object edited. Finally, entries for DF and DV are added to the Background Menu, and the TEdit entry is replaced; these new entries are equivalent to typing DSF, DSV, and TED respectively. (LIST ((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))) (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)))))( ( D PAGEHEADING RUNNINGHEAD(8(8MODERN MODERN MODERN MODERNLOGOMODERN MODERN MODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN d% u YZgrIz