github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-26 17:13:17 +00:00
Code Issues Projects Releases Wiki Activity

Switch (back to) SEDIT mode when reacting to a MARKASCHANGED (#597)

Browse Source
This commit is contained in:
Larry Masinter
2021-12-03 19:30:19 -08:00
committed by GitHub
parent 1f8c123184
commit 7d656006a6
2 changed files with 22 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
sources/SEDIT-TOPLEVEL
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "SEDIT" (USE "LISP" "XCL")) READTABLE "XCL" BASE 10)
(IL:FILECREATED " 1-Dec-2021 17:36:47" 
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;6| 35734
(IL:FILECREATED " 2-Dec-2021 23:05:22" IL:|{DSK}<home>larry>medley>sources>SEDIT-TOPLEVEL.;2| 36031
IL:|previous| IL:|date:| " 1-Dec-2021 17:36:14"
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;5|)
:CHANGES-TO (IL:FNS MARKASCHANGEDFN)
:PREVIOUS-DATE " 1-Dec-2021 17:36:47" IL:|{DSK}<home>larry>medley>sources>SEDIT-TOPLEVEL.;1|)
; Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
@@ -206,7 +206,10 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;5|)
)
(MARKASCHANGEDFN
(IL:LAMBDA (NAME TYPE REASON) (IL:* IL:\; "Edited 3-Apr-91 15:42 by jds")
(IL:LAMBDA (NAME TYPE REASON) (IL:* IL:\;
 "Edited 2-Dec-2021 22:57 by larry")
(IL:* IL:\;
 "Edited 3-Apr-91 15:42 by jds")
(IL:* IL:|;;;| "When a managed object is changed, we must check if we have an open edit on it. If so, calling SEdit again, with the fresh definition, will force the update. This is fairly tricky, though. Markaschanged is called as a result of editing a managed definition, so this markaschangedfn could be running in the sedit process under the completion-fn half way through completion. IDEALLY in this case we could say \"i know it changed, i just changed it!\" and ignore this call. BUT FOR NOW (1/14/91) since the manager can change the definition on completion (editdates, for one), we have to notify SEdit. Since calling editdef will restart the sedit process, the completion-fn will not finish, so do the verify-structure here.")
@@ -228,7 +231,8 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;5|)
(IL:* IL:|;;| "found a matching context elsewhere")
(IL:EDITDEF NAME TYPE NIL NIL '(:DONTWAIT)))))))
(IL:RESETFORM (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)))
@@ -534,16 +538,16 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;5|)
(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 (3118 7336 (SEDIT 3131 . 5117) (RESET 5119 . 5320) (GET-WINDOW-REGION 5322 . 6199) (
SAVE-WINDOW-REGION 6201 . 7028) (GET-WINDOW 7030 . 7334)) (7337 13998 (GET-CONTEXT 7350 . 9370) (
DISINTEGRATE-CONTEXT 9372 . 10098) (AWAKE-COMMAND-PROCESS 10100 . 11693) (AWAKE-ME 11695 . 12078) (
MARKASCHANGEDFN 12080 . 13794) (NEW-FUNCTION-BODY 13796 . 13996)) (14000 14983 (
QUERY-THROW-AWAY-CHANGES 14000 . 14983)) (14985 15760 (SET-OPTIONS 14985 . 15760)) (15762 18577 (
SET-PROPS 15762 . 18577)) (18579 19250 (START-PROCESS 18579 . 19250)) (19566 32543 (SEDITE 19579 .
25346) (SEDITL 25348 . 26493) (FN-CHANGED 26495 . 26790) (PROP-CHANGED 26792 . 26929) (PROPLST-CHANGED
26931 . 27059) (VAR-CHANGED 27061 . 27173) (ALIST-COMPLETION 27175 . 27986) (COMPLETION 27988 . 29368
) (PROPS-COMPLETION 29370 . 30195) (TTYFN 30197 . 32035) (LOCATE-NODE-FROM-EDITCHAIN 32037 . 32541)) (
32689 33058 (SMART-TTYFN 32689 . 33058)) (33181 34866 (PRETTY-PRINT 33194 . 34237) (MAP-FONT 34239 .
34864)) (35048 35151 (MAKE-BROKEN-ATOM 35048 . 35151)) (35153 35311 (PRINT-BROKEN-ATOM 35153 . 35311))
(35313 35397 (MAKE-GAP 35313 . 35397)) (35399 35527 (PRINT-GAP 35399 . 35527)))))
(IL:FILEMAP (NIL (3108 7326 (SEDIT 3121 . 5107) (RESET 5109 . 5310) (GET-WINDOW-REGION 5312 . 6189) (
SAVE-WINDOW-REGION 6191 . 7018) (GET-WINDOW 7020 . 7324)) (7327 14295 (GET-CONTEXT 7340 . 9360) (
DISINTEGRATE-CONTEXT 9362 . 10088) (AWAKE-COMMAND-PROCESS 10090 . 11683) (AWAKE-ME 11685 . 12068) (
MARKASCHANGEDFN 12070 . 14091) (NEW-FUNCTION-BODY 14093 . 14293)) (14297 15280 (
QUERY-THROW-AWAY-CHANGES 14297 . 15280)) (15282 16057 (SET-OPTIONS 15282 . 16057)) (16059 18874 (
SET-PROPS 16059 . 18874)) (18876 19547 (START-PROCESS 18876 . 19547)) (19863 32840 (SEDITE 19876 .
25643) (SEDITL 25645 . 26790) (FN-CHANGED 26792 . 27087) (PROP-CHANGED 27089 . 27226) (PROPLST-CHANGED
27228 . 27356) (VAR-CHANGED 27358 . 27470) (ALIST-COMPLETION 27472 . 28283) (COMPLETION 28285 . 29665
) (PROPS-COMPLETION 29667 . 30492) (TTYFN 30494 . 32332) (LOCATE-NODE-FROM-EDITCHAIN 32334 . 32838)) (
32986 33355 (SMART-TTYFN 32986 . 33355)) (33478 35163 (PRETTY-PRINT 33491 . 34534) (MAP-FONT 34536 .
35161)) (35345 35448 (MAKE-BROKEN-ATOM 35345 . 35448)) (35450 35608 (PRINT-BROKEN-ATOM 35450 . 35608))
(35610 35694 (MAKE-GAP 35610 . 35694)) (35696 35824 (PRINT-GAP 35696 . 35824)))))
IL:STOP

BIN
sources/SEDIT-TOPLEVEL.DFASL
View File

Binary file not shown.