github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 23:47:27 +00:00
Code Issues Projects Releases Wiki Activity

rmk6 2nd change to EDITINTERFACE

Browse Source
This commit is contained in:
Larry Masinter 2021-12-07 16:35:25 -08:00
parent 9af86df169
commit c0e020f033
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
sources/EDITINTERFACE
View File

@ -1,7 +1,7 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 4-Dec-2021 09:08:18" 
{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;20 46022
(FILECREATED " 4-Dec-2021 10:40:27" 
{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;21 46036
changes to%: (FNS EDITDATE?)
@ -758,7 +758,7 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
(RETURN EXPR)))])
(EDITDATE?
[LAMBDA (COMMENT RESTOK) (* ; "Edited 4-Dec-2021 09:07 by rmk")
[LAMBDA (COMMENT RESTOK) (* ; "Edited 4-Dec-2021 10:39 by rmk")
(* ;;; "This determines whether this is a dated or initialed comment that is potentially reusable in the current context. Unless RESTOK, this only recognizes modern-format configurations of the form %"Edited <date> by <initials>%", and returns a parsed pair (DATE INITIALS).")
@ -789,8 +789,8 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
(* ;; "Could be %"<INITIALS>: abc%" to be upgraded with a date")
(SETQ RESTPOS (STRPOS " " STRING))
(SETQ I (SUBSTRING STRING 1 (SUB1 RESTPOS))))
(CL:WHEN (SETQ RESTPOS (STRPOS " " STRING))
(SETQ I (SUBSTRING STRING 1 (SUB1 RESTPOS)))))
(CL:WHEN (AND I (ILESSP (NCHARS I)
12)) (* ;
 "Sanity check: Initials should be short.")
@ -906,6 +906,6 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
18758) (EDITLOADFNS? 18760 . 22560) (EDITMODE 22562 . 24572) (EDITP 24574 . 25085) (EDITV 25087 .
25726) (DC 25728 . 26409) (DF 26411 . 27453) (DP 27455 . 28539) (DV 28541 . 29113) (EDITPROP 29115 .
29334) (EF 29336 . 29665) (EP 29667 . 29850) (EV 29852 . 30031) (EDITE 30033 . 30911) (EDITL 30913 .
31139)) (31491 45167 (NEW/EDITDATE 31501 . 31723) (FIXEDITDATE 31725 . 39112) (EDITDATE? 39114 . 41913
) (EDITDATE 41915 . 43170) (SETINITIALS 43172 . 45165)))))
31139)) (31491 45181 (NEW/EDITDATE 31501 . 31723) (FIXEDITDATE 31725 . 39112) (EDITDATE? 39114 . 41927
) (EDITDATE 41929 . 43184) (SETINITIALS 43186 . 45179)))))
STOP

BIN
sources/EDITINTERFACE.LCOM
View File

Binary file not shown.