From 11185bbdb497786eda4d8147204704b72ac650f2 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Tue, 2 Dec 2025 10:04:51 -0800
Subject: [PATCH] Add guards for beginning of first line and end of last line

---
 library/sketch/SKETCH-EDIT      |  38 +++++++++++++++++---------------
 library/sketch/SKETCH-EDIT.LCOM | Bin 27205 -> 27229 bytes
 2 files changed, 20 insertions(+), 18 deletions(-)

diff --git a/library/sketch/SKETCH-EDIT b/library/sketch/SKETCH-EDIT
index f910a3ce..998a52ec 100644
--- a/library/sketch/SKETCH-EDIT
+++ b/library/sketch/SKETCH-EDIT
@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 1-Dec-2025 23:22:35" {WMEDLEY}<library>SKETCH>SKETCH-EDIT.;20
 113366 
+
(FILECREATED " 2-Dec-2025 10:03:57" {WMEDLEY}<library>SKETCH>SKETCH-EDIT.;21
 113506 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \SKED.INSERT.UNDO \SKED.INSERT.ACTION \SKED.INSERT.CHARS.TO.STR \SKED.INSERT 
-                       CHAR.BEGIN \SKED.ARROWKEYS)
+      :CHANGES-TO (FNS \SKED.ARROWKEYS \SKED.INSERT.UNDO \SKED.INSERT.ACTION 
+                       \SKED.INSERT.CHARS.TO.STR \SKED.INSERT CHAR.BEGIN)
                   (VARS SKETCH-EDITCOMS)
 
       :PREVIOUS-DATE "30-Nov-2025 08:45:15" {WMEDLEY}<library>SKETCH>SKETCH-EDIT.;17)
@@ -1073,7 +1073,7 @@
                              (CDR CONTROLCHARTAIL])
 
 (\SKED.ARROWKEYS

-  [LAMBDA (ACTION SKW SELECTION)
                             (* ; "Edited  1-Dec-2025 22:24 by rmk")

+  [LAMBDA (ACTION SKW SELECTION)
                             (* ; "Edited  2-Dec-2025 10:03 by rmk")

 
     (* ;; "Move the caret left/right/up/down according to the arrow keys")

 
@@ -1098,9 +1098,11 @@
                                 (SETQ CHAR# 1)
                          else
 (add
 CHAR# 1)))
                   (:LINE.UP (add
 LINE# -1)
-                            (SETQ CHAR# (CLOSEST.CHAR
 SKLEFT LINE# TEXTELT SKW)))
+                            (CL:UNLESS (ILESSP LINE# 1)
+                                (SETQ CHAR# (CLOSEST.CHAR
 SKLEFT LINE# TEXTELT SKW))))
                   (:LINE.DOWN (add
 LINE# 1)
-                              (SETQ CHAR# (CLOSEST.CHAR
 SKLEFT LINE# TEXTELT SKW)))
+                              (CL:UNLESS (IGREATERP LINE# (LENGTH LINES))
+                                  (SETQ CHAR# (CLOSEST.CHAR
 SKLEFT LINE# TEXTELT SKW))))
                   (SHOULDNT))
               (CL:WHEN (<= 1 LINE# (LENGTH LINES))
                   (SKED.SELECTION.FEEDBACK
 SKW)
@@ -1929,17 +1931,17 @@ SKED.CLEAR.SELECTION 23612 . 24135) (SKETCH.CLEANUP 24137 . 26051) (SK.ENTER.EDI
 ) (SKED.REMOVE.OTHER.SELECTIONS 27600 . 28027) (SKED.EXTEND.SELECTION 28029 . 29494) (
 SKED.MOVE.SELECTION 29496 . 34566) (CREATE.TEXT.SELECTION 34568 . 35084) (SKED.SELECTION.FEEDBACK 
 35086 . 36742) (SKED.SET.EXTENDSELECTION 36744 . 37061) (SKED.SET.SELECTION 37063 . 37463) (LINE.BEGIN
- 37465 . 38019) (SELECTION.GREATERP 38021 . 38816) (SK.GETSYNTAX 38818 . 39633)) (40480 90869 (
+ 37465 . 38019) (SELECTION.GREATERP 38021 . 38816) (SK.GETSYNTAX 38818 . 39633)) (40480 91009 (
 WB.EDITOR 40490 . 41871) (SK.TTYENTRYFN 41873 . 42413) (SK.TTYEXITFN 42415 . 42941) (SKED.INSERT 42943
- . 43371) (\SKED.INSERT 43373 . 62845) (\SKED.ARROWKEYS 62847 . 65302) (\SKED.INSERT.ACTION 65304 . 
-65748) (\SKED.INSERT.UNDO 65750 . 68291) (FIRST.N.ELEMENTS 68293 . 68560) (SKED.CREATE.NEW.TEXTBOX 
-68562 . 75091) (SKED.CHARACTERPOSITION 75093 . 75880) (SKED.LINE.AND.CHAR# 75882 . 77513) (
-\SKED.DELETE.WORD.FROM.STRING 77515 . 78679) (\SKED.INSERT.CHARS.TO.STR 78681 . 87251) (JOINCHARS 
-87253 . 87640) (STRINGFROMCHARACTERS 87642 . 87967) (GETALLCHARS 87969 . 88310) (CLEANUP.EDIT 88312 . 
-88764) (SKED.NEW.TEXTELT 88766 . 90867)) (90908 111916 (MAP.SCREEN.POSITION.ONTO.GRID 90918 . 92367) (
-NEAREST.ON.GRID 92369 . 92913) (SK.MIDDLE.TITLEFN 92915 . 94858) (WB.BUTTON.HANDLER 94860 . 102682) (
-WB.ADD.NEW.POINT 102684 . 106013) (WB.DRAWLINE 106015 . 110249) (WB.RUBBERBAND.POSITION 110251 . 
-111168) (SK.RUBBERBAND.FEEDBACKFN 111170 . 111674) (RESET.LINE.BEING.INPUT 111676 . 111914)) (112102 
-113343 (NEAREST.EXISTING.POSITION 112112 . 112314) (WB.NEARPT 112316 . 113201) (LASTMOUSEPOSITION 
-113203 . 113341)))))
+ . 43371) (\SKED.INSERT 43373 . 62845) (\SKED.ARROWKEYS 62847 . 65442) (\SKED.INSERT.ACTION 65444 . 
+65888) (\SKED.INSERT.UNDO 65890 . 68431) (FIRST.N.ELEMENTS 68433 . 68700) (SKED.CREATE.NEW.TEXTBOX 
+68702 . 75231) (SKED.CHARACTERPOSITION 75233 . 76020) (SKED.LINE.AND.CHAR# 76022 . 77653) (
+\SKED.DELETE.WORD.FROM.STRING 77655 . 78819) (\SKED.INSERT.CHARS.TO.STR 78821 . 87391) (JOINCHARS 
+87393 . 87780) (STRINGFROMCHARACTERS 87782 . 88107) (GETALLCHARS 88109 . 88450) (CLEANUP.EDIT 88452 . 
+88904) (SKED.NEW.TEXTELT 88906 . 91007)) (91048 112056 (MAP.SCREEN.POSITION.ONTO.GRID 91058 . 92507) (
+NEAREST.ON.GRID 92509 . 93053) (SK.MIDDLE.TITLEFN 93055 . 94998) (WB.BUTTON.HANDLER 95000 . 102822) (
+WB.ADD.NEW.POINT 102824 . 106153) (WB.DRAWLINE 106155 . 110389) (WB.RUBBERBAND.POSITION 110391 . 
+111308) (SK.RUBBERBAND.FEEDBACKFN 111310 . 111814) (RESET.LINE.BEING.INPUT 111816 . 112054)) (112242 
+113483 (NEAREST.EXISTING.POSITION 112252 . 112454) (WB.NEARPT 112456 . 113341) (LASTMOUSEPOSITION 
+113343 . 113481)))))
 STOP
diff --git a/library/sketch/SKETCH-EDIT.LCOM b/library/sketch/SKETCH-EDIT.LCOM
index b4a6f2dd5e05f81b8f06a9f82eba7d82a6678a9b..9f6a8cd7d9a5c531457b86c90077190564b0ac15 100644
GIT binary patch
delta 352
zcmZvXyH3L}6o%^os#a_n2wm`2F*NceX=o*+USc&Skt4-Mq!Jrc3=z<Q_kiF>K<tG~
zotSuotZY009T=EOT0mmpOh@Pc^y@n>1$ZsMZDNp?H#uz)L>!1w7tyZcW@!iD?7^<}
z<2X7F*jQ$7{6A3lz+M$YjH!e46g0Ir+16K+4Sf$Rvwk82=2=`w7ArXP`>{1(BQEk!
zpfE7Bpk{qptCVy1SozRXI;dV>EQ@4zspoX}K=^67`@OUC74rVH^UTY1p7KR*2mG+V
zwK^xW=1<(<X)zAhb&K54n|AEF2(AqzQ<h{Q8!8?NNE`}7F4(sWBzF6c8zhwI8@tga
sCB(!?`H<kU#*dCdPbf$bg~KqCOe$;j5yTz*3t|`P!cM?`-f~Rm3!F!0S^xk5

delta 318
zcmcb6h4JVW#t9L^hPp1P$+|`cMy3iz##Tl~R>r0ivn?47CN4FZoT0-r@v#RsC6nzK
zHQ5am3=NHq%_iqDs)LkH-pHt@5fkj~>Z0fA7wj4oqQK?s;TWXn<m&F}rvQ;~3<~lO
z_jZj8-u#_0#E_9?vX8L@*9T4pAegj~;o0OoV<-01-2Yc1HpEZfZY-~7?~x5;TRNnq
zgOq&OB(mQVD7(|!)60<uBoeVf79umxGyBTU$-*W<Os1xj18qbUjf^c6d_4VJq1GE2
z8!8~V#>mio@<wh+9U}vvDpx=E5Dx`IOH+kl5C2df7rzh%LkkN9XCMDy*WeI6kTwNF
SGt<d$Od=SKH@lijm;wNY?_8Du