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

SEDIT-TOPLEVEL: added GET-WINDOW function

Browse Source 
So window is available without declarations.   Also, there was an extra-argument error in SEDIT:SEDIT, in the calls to START-PROCESS.  Now fixed
This commit is contained in:
rmkaplan
2021-12-01 17:41:33 -08:00
parent e3f043b40d
commit 50ce484c1b
4 changed files with 67 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
sources/SEDIT-EXPORTS
View File

@@ -1,13 +1,15 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)))
(IL:FILECREATED "17-May-90 11:01:36" IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-EXPORTS.;2| 2834
(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10)
(IL:FILECREATED " 1-Dec-2021 17:38:50" 
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-EXPORTS.;2| 2883
IL:|changes| IL:|to:| (IL:VARS IL:SEDIT-EXPORTSCOMS)
IL:|previous| IL:|date:| " 5-Feb-88 11:38:07"
IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-EXPORTS.;1|)
IL:|previous| IL:|date:| "17-May-90 11:01:36"
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-EXPORTS.;1|)
; Copyright (c) 1987, 1988, 1990 by Venue & Xerox Corporation. All rights reserved.
; Copyright (c) 1987-1988, 1990 by Venue & Xerox Corporation.
(IL:PRETTYCOMPRINT IL:SEDIT-EXPORTSCOMS)
@@ -18,7 +20,7 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-EXPORTS.;1|)
(IL:* IL:|;;| "REGION MANAGER")
(IL:P (EXPORT '(GET-WINDOW-REGION SAVE-WINDOW-REGION))
(IL:P (EXPORT '(GET-WINDOW-REGION SAVE-WINDOW-REGION GET-WINDOW))
(EXPORT '(KEEP-WINDOW-REGION)))
(IL:* IL:|;;| "PROGRAMMERS INTERFACE")
@@ -41,8 +43,8 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-EXPORTS.;1|)
(IL:PUTPROPS IL:SEDIT-EXPORTS IL:FILETYPE :COMPILE-FILE)
(IL:PUTPROPS IL:SEDIT-EXPORTS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE
(DEFPACKAGE IL:SEDIT
(:USE IL:LISP IL:XCL))))
(DEFPACKAGE IL:SEDIT (:USE IL:LISP
IL:XCL))))
(IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE
(IL:FILESLOAD IL:SEDIT-DECLS)
@@ -53,7 +55,7 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-EXPORTS.;1|)
(IL:* IL:|;;| "REGION MANAGER")
(EXPORT '(GET-WINDOW-REGION SAVE-WINDOW-REGION))
(EXPORT '(GET-WINDOW-REGION SAVE-WINDOW-REGION GET-WINDOW))
(EXPORT '(KEEP-WINDOW-REGION))