(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")

(FILECREATED "21-Oct-86 04:10:58" {ERIS}<TEDIT>TEDITHISTORY.;9
 29659  

      previous date%: " 6-Oct-86 13:05:59" {ERIS}<TEDIT>TEDITHISTORY.;8)


(* "
Copyright (c) 1983, 1984, 1985, 1986 by John Sybalsky & Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT TEDITHISTORYCOMS)

(RPAQQ TEDITHISTORYCOMS
 ((FILES TEDITDECLS)
                         (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64))
                                (FILES (LOADCOMP)
                                       TEDITDECLS))
                         (GLOBALVARS TEDIT.HISTORY.TYPELST TEDIT.HISTORYLST)
                         (INITVARS (TEDIT.HISTORY.TYPELST NIL)
                                (TEDIT.HISTORYLST NIL))
                         (FNS \TEDIT.HISTORYADD TEDIT.UNDO TEDIT.UNDO.INSERTION TEDIT.UNDO.DELETION 
                              TEDIT.REDO TEDIT.REDO.INSERTION TEDIT.UNDO.MOVE TEDIT.UNDO.REPLACE 
                              TEDIT.REDO.REPLACE TEDIT.REDO.MOVE)))
(FILESLOAD TEDITDECLS)
(DECLARE%: EVAL@COMPILE DONTCOPY 
(DECLARE%: EVAL@COMPILE 

(RPAQQ \SCRATCHLEN
 64)

(CONSTANTS (\SCRATCHLEN 64))
)

(FILESLOAD (LOADCOMP)
       TEDITDECLS)
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS TEDIT.HISTORY.TYPELST TEDIT.HISTORYLST)
)

(RPAQ? TEDIT.HISTORY.TYPELST
 NIL)

(RPAQ? TEDIT.HISTORYLST
 NIL)
(DEFINEQ

(\TEDIT.HISTORYADD

  (LAMBDA (TEXTOBJ EVENT)
                                    (* jds "10-Jan-84 16:26")

          
          (* Add a new event to the history list. For now, this just re-sets the whole 

          list to be the one event...)


    (replace
 TXTHISTORY of
 TEXTOBJ with
 EVENT)))

(TEDIT.UNDO

  (LAMBDA (TEXTOBJ)
                                          (* jds "21-May-84 14:10")

                                                             (* Undo the last thing this guy did.)

                                                             (* Format of the history list%:

                                                             (Selector-kind-of-last-op --info--))

    (PROG ((SEL (fetch
 SEL of
 TEXTOBJ))
           EVENT CH# LEN FIRSTPIECE)
          (COND
             ((SETQ EVENT (fetch
 TXTHISTORY of
 TEXTOBJ))
          
          (* There really is something to UNDO. Decide what, & fix it.)


              (SETQ LEN (fetch
 THLEN of
 EVENT))              (* Length of the text that was 

                                                             inserted/deleted/changed)

              (SETQ CH# (fetch
 THCH# of
 EVENT))              (* Starting CH# of the change)

              (SETQ FIRSTPIECE (fetch
 THFIRSTPIECE of
 EVENT))(* First piece affected by the change)

              (RESETLST (RESETSAVE (CURSOR WAITINGCURSOR))
                     (\SHOWSEL SEL NIL NIL)
                     (SELECTQ (fetch
 THACTION of
 EVENT)
                         ((Insert Copy Include)              (* It was an insertion)

                              (TEDIT.UNDO.INSERTION
 TEXTOBJ EVENT LEN CH# FIRSTPIECE))
                         (Delete                             (* It was a deletion)

                                 (TEDIT.UNDO.DELETION
 TEXTOBJ EVENT LEN CH# FIRSTPIECE))
                         (Looks                              (* It was a character-looks change)

                                (TEDIT.UNDO.LOOKS TEXTOBJ EVENT LEN CH# FIRSTPIECE))
                         (ParaLooks                          (* It was a PARA looks change)

                                    (TEDIT.UNDO.PARALOOKS TEXTOBJ EVENT LEN CH# FIRSTPIECE))
                         (Move (TEDIT.UNDO.MOVE
 TEXTOBJ EVENT LEN CH# FIRSTPIECE)
                                                             (* He moved some text)

                               )
                         (Replace (TEDIT.UNDO.REPLACE
 TEXTOBJ EVENT LEN CH# FIRSTPIECE)
                                                             (* He replaced one piece of text with 

                                                             another.)

                                  )
                         (Get                                (* He did a GET -- not undoable.)

                              (TEDIT.PROMPTPRINT TEXTOBJ "You can't UNDO a GET." T))
                         (Put                                (* He did a PUT -- not undoable.)

                              (TEDIT.PROMPTPRINT TEXTOBJ "You can't undo a Put." T))
                         (COND
                            ((AND (SETQ UNDOFN (ASSOC (fetch
 THACTION of
 EVENT)
                                                      TEDIT.HISTORY.TYPELST))
                                  (SETQ UNDOFN (CADDR UNDOFN)))
                                                             (* TEDIT.HISTORY.TYPELST is an ALST of 

                                                             form (type redofn undofn))

                             (APPLY* UNDOFN TEXTOBJ EVENT LEN CH# FIRSTPIECE))
                            (T (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "UNDO not implemented for "
                                                                 (fetch
 THACTION of
 EVENT))
                                      T))))
                     (\SHOWSEL SEL NIL T)))
             (T (TEDIT.PROMPTPRINT TEXTOBJ "Nothing to UNDO." T))))))

(TEDIT.UNDO.INSERTION

  (LAMBDA (TEXTOBJ EVENT LEN CH# FIRSTPIECE)
                 (* jds "27-Aug-85 15:04")

                                                             (* UNDO a prior Insert, Copy, or 

                                                             Include.)

    (PROG (OBJ DELETEFN)
          (replace
 \INSERTPCVALID of
 TEXTOBJ with
 NIL)
          
          (* Keep TEdit from reusing the current cache piece in the future --

          it is probably invalid)


          (\DELETECH CH# (IPLUS CH# LEN)
                 LEN TEXTOBJ)
          (\FIXDLINES (fetch
 LINES of
 TEXTOBJ)
                 (fetch
 SEL of
 TEXTOBJ)
                 CH#
                 (IPLUS CH# LEN)
                 TEXTOBJ)                                    (* Fix the line descriptors & 

                                                             selection)

          (TEDIT.UPDATE.SCREEN TEXTOBJ)                      (* Fix up the display for all this 

                                                             foofaraw)

          (replace
 POINT of
 (fetch
 SEL of
 TEXTOBJ) with
 'LEFT)
          (\FIXSEL (fetch
 SEL of
 TEXTOBJ)
                 TEXTOBJ)                                    (* Really fix the selection)

          (replace
 THACTION of
 EVENT with
 'Delete)
          
          (* Make the UNDO be UNDOable, by changing the event to a deletion.)


      )))

(TEDIT.UNDO.DELETION

  (LAMBDA (TEXTOBJ EVENT LEN CH# FIRSTPIECE)
                 (* jds "27-Aug-85 14:59")

                                                             (* UNDO a prior Deletion of text.)

    (PROG ((INSPC# (\CHTOPCNO CH# (fetch
 PCTB of
 TEXTOBJ)))
           (NPC (fetch
 NEXTPIECE of
 FIRSTPIECE))
           (PCTB (fetch
 PCTB of
 TEXTOBJ))
           (SEL (fetch
 SEL of
 TEXTOBJ))
           (OTEXTLEN (fetch
 TEXTLEN of
 TEXTOBJ))
           NEWPIECE INSPC OBJECT INSERTFN)
          (replace
 \INSERTPCVALID of
 TEXTOBJ with
 NIL)
          
          (* Keep future people from stepping on the current cache piece, which is 

          probably no longer valid.)


          (COND
             ((IGREATERP CH# (\EDITELT PCTB INSPC#))
              (SETQ INSPC (\SPLITPIECE (\EDITELT PCTB (ADD1 INSPC#))
                                 CH# TEXTOBJ INSPC#))
              (add
 INSPC# 1))
             (T (SETQ INSPC (\EDITELT PCTB (ADD1 INSPC#)))))
          (SETQ NEWPIECE (create
 PIECE using
 FIRSTPIECE))
          (replace
 THFIRSTPIECE of
 EVENT with
 NEWPIECE)
          (bind
 (TL _ 0) while
 (ILESSP TL LEN) do
 (\INSERTPIECE NEWPIECE INSPC TEXTOBJ) 
                                                             (* Insert the piece back in)

                                                  (COND
                                                     ((AND (SETQ OBJECT (fetch
 POBJ of
 NEWPIECE))
                                                           (SETQ INSERTFN (IMAGEOBJPROP OBJECT
                                                                                 'WHENINSERTEDFN)))
          
          (* If this is an imageobject, and it has an insertfn, call it.)


                                                      (APPLY* INSERTFN OBJECT (\TEDIT.PRIMARYW 
                                                                                     TEXTOBJ)
                                                             NIL
                                                             (TEXTSTREAM TEXTOBJ))))
                                                  (SETQ TL (IPLUS TL (fetch
 PLEN of
 FIRSTPIECE))) 
                                                             (* Keep track of how much we've 

                                                             re-inserted)

                                                  (SETQ FIRSTPIECE NPC) 
                                                             (* Move to the next piece to insert)

                                                  (AND NPC (SETQ NPC (fetch
 NEXTPIECE of
 NPC)))
                                                  (SETQ NEWPIECE (create
 PIECE using
 FIRSTPIECE)))
                                                             (* Done here because \INSERTPIECE 

                                                             creams the NEXTPIECE field.)

          (replace
 TEXTLEN of
 TEXTOBJ with
 (IPLUS (fetch
 TEXTLEN of
 TEXTOBJ)
                                                  LEN))
          
          (* Reset the text length and EOF ptr of the text stream.)


          (\FIXILINES TEXTOBJ SEL CH# LEN OTEXTLEN)          (* Fix the line descriptors & 

                                                             selection)

          (TEDIT.UPDATE.SCREEN TEXTOBJ)                      (* Fix up the display for all this 

                                                             foofaraw)

          (replace
 CH# of
 SEL with
 CH#)                      (* Make the selection point at the 

                                                             re-inserted text)

          (replace
 CHLIM of
 SEL with
 (IPLUS CH# LEN))
          (replace
 DCH of
 SEL with
 LEN)
          (replace
 POINT of
 SEL with
 (fetch
 THPOINT of
 EVENT))
          (\TEDIT.SET.SEL.LOOKS SEL 'NORMAL)
          (\FIXSEL SEL TEXTOBJ)                              (* Really fix the selection)

          (replace
 THACTION of
 EVENT with
 'Insert)
          
          (* Make the UNDO be UNDOable, by changing the event to a insertion.)


      )))

(TEDIT.REDO

  (LAMBDA (TEXTOBJ)
                                          (* jds " 4-Sep-85 16:30")

                                                             (* REDO the last thing this guy did.)

    (PROG ((SEL (fetch
 SEL of
 TEXTOBJ))
           EVENT CH)
          (COND
             ((SETQ EVENT (fetch
 TXTHISTORY of
 TEXTOBJ))
          
          (* There really is something to REDO Decide what, & do it.)


              (RESETLST (RESETSAVE (CURSOR WAITINGCURSOR))
                     (\SHOWSEL SEL NIL NIL)
                     (SELECTQ (fetch
 THACTION of
 EVENT)
                         ((Insert Copy Include)              (* It was an insertion)

                              (TEDIT.REDO.INSERTION
 TEXTOBJ EVENT
                                     (IMAX 1 (SELECTQ (fetch
 POINT of
 SEL)
                                                 (LEFT (fetch
 CH# of
 SEL))
                                                 (RIGHT (fetch
 CHLIM of
 SEL))
                                                 NIL))))
                         (Delete                             (* It was a deletion)

                                 (\TEDIT.DELETE SEL TEXTOBJ))
                         (Replace (TEDIT.REDO.REPLACE
 TEXTOBJ EVENT))
                         (Looks                              (* It was a looks change)

                                (TEDIT.REDO.LOOKS TEXTOBJ EVENT
                                       (IMAX 1 (SELECTQ (fetch
 POINT of
 SEL)
                                                   (LEFT (fetch
 CH# of
 SEL))
                                                   (RIGHT (fetch
 CHLIM of
 SEL))
                                                   NIL))))
                         (ParaLooks                          (* It was a Paragraph looks change)

                                    (TEDIT.REDO.PARALOOKS TEXTOBJ EVENT
                                           (IMAX 1 (SELECTQ (fetch
 POINT of
 SEL)
                                                       (LEFT (fetch
 CH# of
 SEL))
                                                       (RIGHT (fetch
 CHLIM of
 SEL))
                                                       NIL))))
                         (Find                               (* EXACT-MATCH CL:SEARCH COMMAND)

                               (RESETLST (RESETSAVE (CURSOR WAITINGCURSOR))
                                      (TEDIT.PROMPTPRINT TEXTOBJ "Searching..." T)
                                      (SETQ SEL (fetch
 SEL of
 TEXTOBJ))
                                      (\SHOWSEL SEL NIL NIL)
                                      (SETQ CH (TEDIT.FIND TEXTOBJ (fetch
 THAUXINFO of
 EVENT)))
                                      (COND
                                         (CH (TEDIT.PROMPTPRINT TEXTOBJ "done.")
                                             (replace
 CH# of
 SEL with
 CH)
                                             (replace
 CHLIM of
 SEL
                                                with
 (IPLUS CH (NCHARS (fetch
 THAUXINFO of
 EVENT))))
                                             (replace
 DCH of
 SEL with
 (NCHARS (fetch
 THAUXINFO
                                                                                 of
 EVENT)))
                                             (replace
 POINT of
 SEL with
 'RIGHT)
                                             (\FIXSEL SEL TEXTOBJ)
                                             (TEDIT.NORMALIZECARET TEXTOBJ)
                                             (\SHOWSEL SEL NIL T))
                                         (T (TEDIT.PROMPTPRINT TEXTOBJ "[Not found]"))))
                               (replace
 \INSERTPCVALID of
 TEXTOBJ with
 NIL)
                                                             (* Drop the cached piece.

                                                             WHY??)

                               )
                         ((Move ReplaceMove)                 (* He moved some text)

                              (TEDIT.REDO.MOVE
 TEXTOBJ EVENT (fetch
 THLEN of
 EVENT)
                                     (IMAX 1 (SELECTQ (fetch
 POINT of
 SEL)
                                                 (LEFT (fetch
 CH# of
 SEL))
                                                 (RIGHT (fetch
 CHLIM of
 SEL))
                                                 NIL))
                                     (fetch
 THFIRSTPIECE of
 EVENT)))
                         (Get                                (* He did a GET -- not undoable.)

                              (TEDIT.PROMPTPRINT TEXTOBJ "You can't REDO a GET." T))
                         (Put                                (* He did a PUT -- not undoable.)

                              (TEDIT.PROMPTPRINT TEXTOBJ "You can't REDO a PUT." T))
                         (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "REDO of the action "
                                                           (fetch
 THACTION of
 EVENT)
                                                           " isn't implemented.")
                                T))
                     (\SHOWSEL SEL NIL T)))
             (T (TEDIT.PROMPTPRINT TEXTOBJ "Nothing to REDO." T))))))

(TEDIT.REDO.INSERTION

  (LAMBDA (TEXTOBJ EVENT CH#)
                                (* jds " 4-Sep-85 16:27")

                                                             (* REDO a prior Insert/Copy/Include of 

                                                             text.)

    (PROG (INSPC INSPC# NPC (SEL (fetch
 SEL of
 TEXTOBJ))
                 (PCTB (fetch
 PCTB of
 TEXTOBJ))
                 (LEN (fetch
 THLEN of
 EVENT))
                 (FIRSTPIECE (create
 PIECE using
 (fetch
 THFIRSTPIECE of
 EVENT)
                                                 PNEW _ T))
                 (OTEXTLEN (fetch
 TEXTLEN of
 TEXTOBJ))
                 OBJ COPYFN ORIGFIRSTPC)
          (SETQ ORIGFIRSTPC FIRSTPIECE)
          (replace
 THFIRSTPIECE of
 EVENT with
 FIRSTPIECE)
          
          (* So we can UNDO this, and remove the right set of pieces.)


          (replace
 \INSERTPCVALID of
 TEXTOBJ with
 NIL)       (* Force any further insertions to 

                                                             make new pieces.)

          (SETQ NPC (fetch
 NEXTPIECE of
 FIRSTPIECE))
          (SETQ INSPC# (\CHTOPCNO CH# PCTB))
          
          (* Piece %# of the piece we're to insert inside or in front of)


          (SETQ INSPC (\EDITELT PCTB (ADD1 INSPC#)))
          (SETQ INSPC (COND
                         ((IEQP CH# (\EDITELT PCTB INSPC#))  (* We're inserting just before an 

                                                             existing piece)

                          INSPC)
                         (T 
          
          (* We must split this piece, and insert before the second part.)


                            (PROG1 (\SPLITPIECE INSPC CH# TEXTOBJ INSPC#)
                                   (add
 INSPC# \EltsPerPiece)))))
          (bind
 (TL _ 0) while
 (ILESSP TL LEN)
             do
 
          
          (* Loop thru the pieces of the prior insertion, inserting copies of enough of 

          them to cover the length of the insertion.)


                (COND
                   ((SETQ OBJ (fetch
 POBJ of
 FIRSTPIECE))    (* This piece describes an object)

                    (COND
                       ((SETQ COPYFN (IMAGEOBJPROP OBJ 'COPYFN))
                        (SETQ OBJ (APPLY* COPYFN OBJ (fetch
 STREAMHINT of
 TEXTOBJ)
                                         (fetch
 STREAMHINT of
 TEXTOBJ)))
                        (COND
                           ((EQ OBJ 'DON'T)
                            (TEDIT.PROMPTPRINT TEXTOBJ "COPY of this object not allowed." T)
                            (RETFROM 'TEDIT.COPY))
                           (T (replace
 POBJ of
 FIRSTPIECE with
 OBJ))))
                       (OBJ (replace
 POBJ of
 FIRSTPIECE with
 (COPY OBJ))))
                    (COND
                       ((SETQ COPYFN (IMAGEOBJPROP OBJ 'WHENCOPIEDFN))
                                                             (* If there's an eventfn for copying, 

                                                             use it.)

                        (APPLY* COPYFN OBJ (WINDOWPROP (CAR (fetch
 \WINDOW of
 TEXTOBJ))
                                                  'DSP)
                               (fetch
 STREAMHINT of
 TEXTOBJ)
                               (fetch
 STREAMHINT of
 TEXTOBJ))))))
                (\INSERTPIECE FIRSTPIECE INSPC TEXTOBJ)      (* Insert the piece back in)

                (SETQ TL (IPLUS TL (fetch
 PLEN of
 FIRSTPIECE))) 
                                                             (* Keep track of how much we've 

                                                             re-inserted)

                (SETQ FIRSTPIECE (create
 PIECE using
 NPC PNEW _ T)) 
                                                             (* Move to the next piece to insert)

                (AND NPC (SETQ NPC (fetch
 NEXTPIECE of
 NPC))) 
                                                             (* Done here because \INSERTPIECE 

                                                             creams the NEXTPIECE field.)
)
          (\TEDIT.DIFFUSE.PARALOOKS (fetch
 PREVPIECE of
 ORIGFIRSTPC)
                 INSPC)                                      (* propagate paragraph formatting into 

                                                             the new insertion)

          (replace
 TEXTLEN of
 TEXTOBJ with
 (IPLUS (fetch
 TEXTLEN of
 TEXTOBJ)
                                                  LEN))
          
          (* Reset the text length and EOF ptr of the text stream.)


          (\FIXILINES TEXTOBJ SEL CH# LEN OTEXTLEN)          (* Fix the line descriptors & 

                                                             selection)

          (TEDIT.UPDATE.SCREEN TEXTOBJ)                      (* Fix up the display for all this 

                                                             foofaraw)

          (replace
 CH# of
 SEL with
 CH#)                      (* Make the selection point at the 

                                                             re-inserted text)

          (replace
 CHLIM of
 SEL with
 (IPLUS CH# LEN))
          (replace
 DCH of
 SEL with
 LEN)
          (\TEDIT.SET.SEL.LOOKS SEL 'NORMAL)
          (\FIXSEL SEL TEXTOBJ)                              (* Really fix the selection)

          (replace
 THACTION of
 EVENT with
 'Insert)
          
          (* Make the UNDO be UNDOable, by changing the event to a insertion.)


      )))

(TEDIT.UNDO.MOVE

  (LAMBDA (TEXTOBJ EVENT LEN CH# FIRSTPIECE)
                 (* jds " 6-Mar-85 21:12")

                                                             (* UNDO a MOVE command)

    (PROG ((TOOBJ (fetch
 THAUXINFO of
 EVENT))
           (FROMOBJ (fetch
 THTEXTOBJ of
 EVENT))
           (SOURCECH# (fetch
 THOLDINFO of
 EVENT))
           (CH# (fetch
 THCH# of
 EVENT))
           TOSEL TOTEXTLEN)
          (\SHOWSEL (fetch
 SEL of
 TOOBJ)
                 NIL NIL)
          
          (* Turn off the selections in the old source and target documents)


          (\SHOWSEL (fetch
 SEL of
 FROMOBJ)
                 NIL NIL)
          (\DELETECH CH# (IPLUS CH# LEN)
                 LEN FROMOBJ)
          
          (* Delete the characters we moved, from the place we moved them to)


          (\FIXDLINES (fetch
 LINES of
 FROMOBJ)
                 (fetch
 SEL of
 FROMOBJ)
                 CH#
                 (IPLUS CH# LEN)
                 FROMOBJ)
          (replace
 CH# of
 (fetch
 SEL of
 FROMOBJ) with
 (replace
 CHLIM of
 (fetch
 SEL of
 FROMOBJ)
                                                         with
 CH#))
          
          (* Make this document's selection be a point sel at the place the text used to 

          be.)


          (replace
 DCH of
 (fetch
 SEL of
 FROMOBJ) with
 0)
          (replace
 POINT of
 (fetch
 SEL of
 FROMOBJ) with
 'LEFT)
                                                             (* Mark lines for update, and fix the 

                                                             selection)

          (SETQ TOTEXTLEN (fetch
 TEXTLEN of
 TOOBJ))
          
          (* The pre-insertion len of the place the text is returning to, for the line 

          udpater below)


          (\TEDIT.INSERT.PIECES TOOBJ SOURCECH# (fetch
 THFIRSTPIECE of
 EVENT)
                 LEN)
          
          (* Put the pieces we moved back where they came from

          (no need to copy them, since we did that on the original move.))


          (\FIXILINES TOOBJ (fetch
 SEL of
 TOOBJ)
                 SOURCECH# LEN TOTEXTLEN)
          
          (* Mark lines that need updating, and fix up the selection)


          (add
 (fetch
 TEXTLEN of
 TOOBJ)
               LEN)                                          (* Update the text length of the 

                                                             erstwhile move source)

          (TEDIT.UPDATE.SCREEN FROMOBJ)                      (* Update the erstwhile text 

                                                             location's image.)

          (COND
             ((NEQ FROMOBJ TOOBJ)
          
          (* If they aren't the same document, we need to update the other document image 

          as well.)


              (TEDIT.UPDATE.SCREEN TOOBJ)))
          (\FIXSEL (fetch
 SEL of
 TOOBJ)
                 TOOBJ)
          
          (* Fix up the selections so their images will be OK)


          (\FIXSEL (fetch
 SEL of
 FROMOBJ)
                 FROMOBJ)
          (\COPYSEL (fetch
 SEL of
 FROMOBJ)
                 TEDIT.SELECTION)
          
          (* It's handy to think of this as the last selection made, also.)


          (replace
 THACTION of
 EVENT with
 'Move)
          (replace
 THTEXTOBJ of
 EVENT with
 TOOBJ)
          (replace
 THAUXINFO of
 EVENT with
 FROMOBJ)
          (replace
 THOLDINFO of
 EVENT with
 CH#)
          (replace
 THCH# of
 EVENT with
 SOURCECH#)
          (\SHOWSEL (fetch
 SEL of
 TOOBJ)
                 NIL T)
          (\SHOWSEL (fetch
 SEL of
 FROMOBJ)
                 NIL T))))

(TEDIT.UNDO.REPLACE

  (LAMBDA (TEXTOBJ EVENT LEN CH# FIRSTPIECE)
                 (* jds " 6-Mar-85 21:12")

    (PROG ((OLDEVENT (fetch
 THOLDINFO of
 EVENT))
           (CH# (fetch
 THCH# of
 EVENT))
           (SEL (fetch
 SEL of
 TEXTOBJ)))
          (\SHOWSEL SEL NIL NIL)
          (TEDIT.UNDO.INSERTION
 TEXTOBJ EVENT LEN CH# FIRSTPIECE)
          (\SHOWSEL SEL NIL NIL)
          (TEDIT.UNDO.DELETION
 TEXTOBJ OLDEVENT (fetch
 THLEN of
 OLDEVENT)
                 CH#
                 (fetch
 THFIRSTPIECE of
 OLDEVENT))
          (replace
 THOLDINFO of
 OLDEVENT with
 EVENT)
          (replace
 THACTION of
 OLDEVENT with
 'Replace)
          (replace
 THOLDINFO of
 EVENT with
 NIL)
          (\TEDIT.HISTORYADD
 TEXTOBJ OLDEVENT)
          (replace
 CH# of
 SEL with
 CH#)
          (replace
 CHLIM of
 SEL with
 (IPLUS CH# (fetch
 THLEN of
 OLDEVENT)))
          (replace
 DCH of
 SEL with
 (fetch
 THLEN of
 OLDEVENT))
          (replace
 POINT of
 SEL with
 (fetch
 THPOINT of
 EVENT))
          (replace
 THPOINT of
 OLDEVENT with
 (fetch
 THPOINT of
 EVENT))
          (\FIXSEL SEL TEXTOBJ)
          (\SHOWSEL SEL NIL T))))

(TEDIT.REDO.REPLACE

  (LAMBDA (TEXTOBJ EVENT)
                                    (* jds " 6-Mar-85 22:04")

    (PROG ((OLDEVENT (fetch
 THOLDINFO of
 EVENT))
           (CH# (fetch
 CH# of
 (fetch
 SEL of
 TEXTOBJ)))
           (SEL (fetch
 SEL of
 TEXTOBJ)))
          (\SHOWSEL SEL NIL NIL)
          (\DELETECH (fetch
 CH# of
 SEL)
                 (fetch
 CHLIM of
 SEL)
                 (IDIFFERENCE (fetch
 CHLIM of
 SEL)
                        (fetch
 CH# of
 SEL))
                 TEXTOBJ)
          (\FIXDLINES (fetch
 LINES of
 TEXTOBJ)
                 SEL
                 (fetch
 CH# of
 SEL)
                 (fetch
 CHLIM of
 SEL)
                 TEXTOBJ)
          (replace
 POINT of
 SEL with
 'LEFT)
          (TEDIT.REDO.INSERTION
 TEXTOBJ EVENT CH#)
          (replace
 THOLDINFO of
 EVENT with
 (SETQ OLDEVENT (fetch
 TXTHISTORY of
 TEXTOBJ)))
          (replace
 THACTION of
 OLDEVENT with
 'Replace)
          (replace
 THACTION of
 EVENT with
 'Replace)
          (replace
 THCH# of
 EVENT with
 CH#)
          (\TEDIT.HISTORYADD
 TEXTOBJ EVENT))))

(TEDIT.REDO.MOVE

  (LAMBDA (TEXTOBJ EVENT LEN CH# FIRSTPIECE)
                 (* jds " 6-Mar-85 21:13")

    (PROG ((FROMOBJ TEXTOBJ)
           (SOURCECH# (fetch
 THOLDINFO of
 EVENT))
           (OLDCH# (fetch
 THCH# of
 EVENT))
           (SEL (fetch
 SEL of
 TEXTOBJ))
           (MOVESEL (fetch
 MOVESEL of
 TEXTOBJ))
           OLDCHLIM)
          (replace
 CH# of
 MOVESEL with
 OLDCH#)
          (replace
 CHLIM of
 MOVESEL with
 (IPLUS OLDCH# LEN))
          (replace
 DCH of
 MOVESEL with
 LEN)
          (replace
 SET of
 MOVESEL with
 T)
          (\FIXSEL MOVESEL TEXTOBJ)
          (\TEDIT.SET.SEL.LOOKS MOVESEL 'MOVE)
          (TEDIT.MOVE MOVESEL SEL))))
)
(PUTPROPS TEDITHISTORY COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1406 29544 (\TEDIT.HISTORYADD 1416 . 1741) (TEDIT.UNDO 1743 . 5494) (
TEDIT.UNDO.INSERTION 5496 . 6984) (TEDIT.UNDO.DELETION 6986 . 11291) (TEDIT.REDO 11293 . 16706) (
TEDIT.REDO.INSERTION 16708 . 22437) (TEDIT.UNDO.MOVE 22439 . 26299) (TEDIT.UNDO.REPLACE 26301 . 27587)
 (TEDIT.REDO.REPLACE 27589 . 28799) (TEDIT.REDO.MOVE 28801 . 29542)))))
STOP