github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-31 06:02:25 +00:00
Code Issues Projects Releases Wiki Activity

thie problem only shows when you switch EDITMODE but have some SEDIT windows open (#912)

Browse Source
This commit is contained in:
Larry Masinter
2022-08-24 07:24:08 -07:00
committed by GitHub
parent b90bf65be9
commit f5e48847c9
2 changed files with 27 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
sources/SEDIT-TOPLEVEL
View File

@@ -1,12 +1,10 @@
(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "SEDIT" (USE "LISP" "XCL")) READTABLE "XCL" BASE 10)
(IL:FILECREATED " 8-Dec-2021 14:01:58" 
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;19| 37986
(IL:FILECREATED "23-Aug-2022 20:43:35" IL:|{DSK}<home>larry>medley>sources>SEDIT-TOPLEVEL.;3| 38392
:CHANGES-TO (IL:FNS GET-WINDOW-REGION)
:CHANGES-TO (IL:FNS MARKASCHANGEDFN)
:PREVIOUS-DATE " 8-Dec-2021 11:50:57"
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|)
:PREVIOUS-DATE " 8-Dec-2021 14:01:58" IL:|{DSK}<home>larry>medley>sources>SEDIT-TOPLEVEL.;1|)
; Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
@@ -240,7 +238,8 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|)
)
(MARKASCHANGEDFN
(IL:LAMBDA (NAME TYPE REASON) (IL:* IL:\; "Edited 8-Dec-2021 11:49 by rmk")
(IL:LAMBDA (NAME TYPE REASON) (IL:* IL:\; "Edited 23-Aug-2022 20:41 by lmm")
(IL:* IL:\; "Edited 8-Dec-2021 11:49 by rmk")
(IL:* IL:\; "Edited 2-Dec-2021 22:57 by larry")
(IL:* IL:\; "Edited 3-Apr-91 15:42 by jds")
@@ -264,8 +263,15 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|)
(IL:* IL:|;;| "found a matching context elsewhere")
(IL:RESETFORM (IL:EDITMODE 'SEDIT)
(IL:EDITDEF NAME TYPE NIL NIL '(:DONTWAIT))))))))
(IL:RESETLST
(IL:* IL:|;;| " This isn't quite right because there is more context for editdef, e.g. if you're eding a definition loaded from a file")
(IL:* IL:|;;| " Rather than calling EDITDEF again lmm 8/23/22")
(IL:RESETSAVE (IL:TTY.PROCESS (IL:THIS.PROCESS)))
(IL:RESETSAVE (IL:EDITMODE 'SEDIT))
(IL:EDITDEF NAME TYPE NIL NIL '(:DONTWAIT))))))))
(new-function-body
(il:lambda (dummy-body) (il:* il:\; "Edited 7-Jul-87 12:59 by DCB") (if (il:neq (il:editmode) (quote sedit)) (il:copy dummy-body) (list (quote il:lambda) args-gap body-gap)))
@@ -574,17 +580,17 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|)
(IL:DEFPRINT 'GAP 'PRINT-GAP)
(IL:PUTPROPS IL:SEDIT-TOPLEVEL IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991))
(IL:DECLARE\: IL:DONTCOPY
(IL:FILEMAP (NIL (3174 8776 (SEDIT 3187 . 5173) (RESET 5175 . 5376) (GET-WINDOW-REGION 5378 . 6676) (
SAVE-WINDOW-REGION 6678 . 7692) (GET-WINDOW 7694 . 7998) (GET-PROP 8000 . 8304) (PUT-PROP 8306 . 8774)
) (8777 15717 (GET-CONTEXT 8790 . 10810) (DISINTEGRATE-CONTEXT 10812 . 11538) (AWAKE-COMMAND-PROCESS
11540 . 13133) (AWAKE-ME 13135 . 13518) (MARKASCHANGEDFN 13520 . 15513) (NEW-FUNCTION-BODY 15515 .
15715)) (15719 16702 (QUERY-THROW-AWAY-CHANGES 15719 . 16702)) (16704 17479 (SET-OPTIONS 16704 . 17479
)) (17481 20829 (SET-PROPS 17481 . 20829)) (20831 21502 (START-PROCESS 20831 . 21502)) (21818 34795 (
SEDITE 21831 . 27598) (SEDITL 27600 . 28745) (FN-CHANGED 28747 . 29042) (PROP-CHANGED 29044 . 29181) (
PROPLST-CHANGED 29183 . 29311) (VAR-CHANGED 29313 . 29425) (ALIST-COMPLETION 29427 . 30238) (
COMPLETION 30240 . 31620) (PROPS-COMPLETION 31622 . 32447) (TTYFN 32449 . 34287) (
LOCATE-NODE-FROM-EDITCHAIN 34289 . 34793)) (34941 35310 (SMART-TTYFN 34941 . 35310)) (35433 37118 (
PRETTY-PRINT 35446 . 36489) (MAP-FONT 36491 . 37116)) (37300 37403 (MAKE-BROKEN-ATOM 37300 . 37403)) (
37405 37563 (PRINT-BROKEN-ATOM 37405 . 37563)) (37565 37649 (MAKE-GAP 37565 . 37649)) (37651 37779 (
PRINT-GAP 37651 . 37779)))))
(IL:FILEMAP (NIL (3126 8728 (SEDIT 3139 . 5125) (RESET 5127 . 5328) (GET-WINDOW-REGION 5330 . 6628) (
SAVE-WINDOW-REGION 6630 . 7644) (GET-WINDOW 7646 . 7950) (GET-PROP 7952 . 8256) (PUT-PROP 8258 . 8726)
) (8729 16123 (GET-CONTEXT 8742 . 10762) (DISINTEGRATE-CONTEXT 10764 . 11490) (AWAKE-COMMAND-PROCESS
11492 . 13085) (AWAKE-ME 13087 . 13470) (MARKASCHANGEDFN 13472 . 15919) (NEW-FUNCTION-BODY 15921 .
16121)) (16125 17108 (QUERY-THROW-AWAY-CHANGES 16125 . 17108)) (17110 17885 (SET-OPTIONS 17110 . 17885
)) (17887 21235 (SET-PROPS 17887 . 21235)) (21237 21908 (START-PROCESS 21237 . 21908)) (22224 35201 (
SEDITE 22237 . 28004) (SEDITL 28006 . 29151) (FN-CHANGED 29153 . 29448) (PROP-CHANGED 29450 . 29587) (
PROPLST-CHANGED 29589 . 29717) (VAR-CHANGED 29719 . 29831) (ALIST-COMPLETION 29833 . 30644) (
COMPLETION 30646 . 32026) (PROPS-COMPLETION 32028 . 32853) (TTYFN 32855 . 34693) (
LOCATE-NODE-FROM-EDITCHAIN 34695 . 35199)) (35347 35716 (SMART-TTYFN 35347 . 35716)) (35839 37524 (
PRETTY-PRINT 35852 . 36895) (MAP-FONT 36897 . 37522)) (37706 37809 (MAKE-BROKEN-ATOM 37706 . 37809)) (
37811 37969 (PRINT-BROKEN-ATOM 37811 . 37969)) (37971 38055 (MAKE-GAP 37971 . 38055)) (38057 38185 (
PRINT-GAP 38057 . 38185)))))
IL:STOP

BIN
sources/SEDIT-TOPLEVEL.DFASL
View File

Binary file not shown.