github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

Masterscope OUTPUT TEDIT uses atom word-bound table (#2096)

Browse Source 
Use atom boundtable for OUTPUT TEDIT
This commit is contained in:
rmkaplan 2025-04-14 11:00:40 -07:00 committed by GitHub
parent cd3889874f
commit b0551fb953
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
library/MASTERSCOPE
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "14-Jul-2024 08:42:20" {WMEDLEY}<library>MASTERSCOPE.;28 197707
(FILECREATED " 5-Apr-2025 11:49:04" {WMEDLEY}<library>MASTERSCOPE.;29 197994
:EDIT-BY rmk
:CHANGES-TO (FNS MSOUTPUT)
:PREVIOUS-DATE " 5-Jul-2024 11:54:48" {WMEDLEY}<library>MASTERSCOPE.;27)
:PREVIOUS-DATE "14-Jul-2024 08:42:20" {WMEDLEY}<library>MASTERSCOPE.;28)
(PRETTYCOMPRINT MASTERSCOPECOMS)
@ -2577,7 +2577,7 @@
(* ; "interactive routines")
(RPAQ MASTERSCOPEDATE "14-Jul-2024")
(RPAQ MASTERSCOPEDATE " 5-Apr-2025")
(ADDTOVAR HISTORYCOMS %.)
(DEFINEQ
@ -3526,7 +3526,8 @@
(ERROR!])
(MSOUTPUT
[LAMBDA (FILE) (* ; "Edited 14-Jul-2024 08:41 by rmk")
[LAMBDA (FILE) (* ; "Edited 5-Apr-2025 11:48 by rmk")
(* ; "Edited 14-Jul-2024 08:41 by rmk")
(* ; "Edited 5-Jul-2024 11:54 by rmk")
(* ; "Edited 12-Jun-90 20:43 by teruuchi")
(LET ((LLENGTH FILELINELENGTH))
@ -3536,10 +3537,12 @@
'(TEDIT :TEDIT))
(GETD (FUNCTION TEDIT)))
(* ;; "If no TEDIT, leave the current OUTPUT")
(* ;;
 "If no TEDIT, leave the current OUTPUT. The readtable for seprs etc is the current readtable.")
[SETQ FILE (TEXTSTREAM (TEDIT NIL 'Masterscope NIL `(LEAVETTY T TITLE Masterscope FONT
,DEFAULTFONT]
,DEFAULTFONT BOUNDTABLE
,(TEDIT.ATOMBOUND.READTABLE]
(SETQ LLENGTH T)
(TEDIT.DEFER.UPDATES FILE '(READONLY QUIET))
(RESETSAVE NIL (LIST 'CLOSEF FILE)))
@ -3778,7 +3781,7 @@ CHANGEI.S. 118360 . 119693) (CHANGERECORD 119695 . 120566) (MSNEEDUNSAVE 120568
125313 . 126181) (MASTERSCOPEXEC 126183 . 128121)) (128162 167812 (MSINTERPRETSET 128172 . 156706) (
MSINTERPA 156708 . 157242) (MSGETBLOCKDEC 157244 . 159757) (LISTHARD 159759 . 160977) (MSMEMBSET
160979 . 161124) (MSLISTSET 161126 . 161491) (MSHASHLIST 161493 . 161660) (MSHASHLIST1 161662 . 161988
) (CHECKPATHS 161990 . 162630) (ONFILE 162632 . 167810)) (167813 191885 (MSINTERPRET 167823 . 184676)
(VERBNOTICELIST 184678 . 185788) (MSOUTPUT 185790 . 187013) (MSCHECKEMPTY 187015 . 188219) (
CHECKFORCHANGED 188221 . 188741) (MSSOLVE 188743 . 191883)))))
) (CHECKPATHS 161990 . 162630) (ONFILE 162632 . 167810)) (167813 192172 (MSINTERPRET 167823 . 184676)
(VERBNOTICELIST 184678 . 185788) (MSOUTPUT 185790 . 187300) (MSCHECKEMPTY 187302 . 188506) (
CHECKFORCHANGED 188508 . 189028) (MSSOLVE 189030 . 192170)))))
STOP

BIN
library/MASTERSCOPE.DFASL
View File

Binary file not shown.