From 724a9ad250c33a4e02b049b69265680bcda6a3c0 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 4 Feb 2026 18:06:15 -0800
Subject: [PATCH] TEDIT-ABBREV:  puts quotes around the strings reported in the
 prompt window

---
 library/tedit/TEDIT-ABBREV      |  25 +++++++++++++------------
 library/tedit/TEDIT-ABBREV.LCOM | Bin 6858 -> 6855 bytes
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/library/tedit/TEDIT-ABBREV b/library/tedit/TEDIT-ABBREV
index 5f3a3cc3..6c874eea 100644
--- a/library/tedit/TEDIT-ABBREV
+++ b/library/tedit/TEDIT-ABBREV
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Jan-2026 17:51:55" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;55
 18063  
+
(FILECREATED "23-Jan-2026 15:49:26" {WMEDLEY}<library>TEDIT>TEDIT-ABBREV.;58
 18256  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS \TEDIT.ABBREV.EXPAND)
-                  (VARS TEDIT-ABBREVCOMS)
 
-      :PREVIOUS-DATE " 8-Jan-2026 09:09:58" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;53)
+      :PREVIOUS-DATE "13-Jan-2026 17:51:55" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;55)
 
 
 (PRETTYCOMPRINT TEDIT-ABBREVCOMS)
@@ -87,7 +86,9 @@
 (DEFINEQ
 
 (\TEDIT.ABBREV.EXPAND

-  [LAMBDA (TSTREAM TEXTOBJ SEL)
                              (* ; "Edited 13-Jan-2026 17:51 by rmk")


+  [LAMBDA (TSTREAM TEXTOBJ SEL)
                              (* ; "Edited 23-Jan-2026 15:49 by rmk")


+                                                             (* ; "Edited 20-Jan-2026 09:56 by rmk")


+                                                             (* ; "Edited 13-Jan-2026 17:51 by rmk")


                                                              (* ; "Edited  8-Jan-2026 09:08 by rmk")


                                                              (* ; "Edited  3-Jan-2026 13:13 by rmk")


                                                              (* ; "Edited 20-Apr-2025 23:30 by rmk")


@@ -143,11 +144,11 @@
                    (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.FROM.STRING EXPANSION TEXTOBJ NIL
                                                     (PCHARLOOKS (\TEDIT.CHTOPC FIRSTCHNO TEXTOBJ)))
                           TSTREAM SEL)
-                   (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Replaced " (CL:IF BACKSLASH
-                                                                      (CONCAT (CAR ABBREV)
-                                                                             "\")
-                                                                      (CAR ABBREV))
-                                                     " with " EXPANSION)
+                   (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Replaced %"" (CL:IF BACKSLASH
+                                                                        (CONCAT (CAR ABBREV)
+                                                                               "\")
+                                                                        (CAR ABBREV))
+                                                     "%" with %"" EXPANSION "%"")
                           T)
             else
 (TEDIT.PROMPTPRINT TSTREAM "No abbreviation to expand" T])
 
@@ -362,7 +363,7 @@
          ("DATE" \TEDIT.EXPAND.DATE)
          (">>DATE<<" \TEDIT.EXPAND.DATE)))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4390 14959 (\TEDIT.ABBREV.EXPAND 4400 . 8930) (\TEDIT.ABBREV.EXPANSION 8932 . 11996) (
-\TEDIT.ABBREV.TREE 11998 . 13129) (\TEDIT.ABBREV.PARSE 13131 . 14283) (\TEDIT.ABBREV.PARSE.CHARCODE 
-14285 . 14957)) (14960 15605 (\TEDIT.EXPAND.DATE 14970 . 15603)))))
+  (FILEMAP (NIL (4348 15152 (\TEDIT.ABBREV.EXPAND 4358 . 9123) (\TEDIT.ABBREV.EXPANSION 9125 . 12189) (
+\TEDIT.ABBREV.TREE 12191 . 13322) (\TEDIT.ABBREV.PARSE 13324 . 14476) (\TEDIT.ABBREV.PARSE.CHARCODE 
+14478 . 15150)) (15153 15798 (\TEDIT.EXPAND.DATE 15163 . 15796)))))
 STOP
diff --git a/library/tedit/TEDIT-ABBREV.LCOM b/library/tedit/TEDIT-ABBREV.LCOM
index 5cf09f864e91ff210863c5bd7ea13bc239fefbb3..0d3e936ec46168defc98124f1c74fb4f820d9b5c 100644
GIT binary patch
delta 336
zcmX?QdfaqExQLOlu2*87u91O}nS!CIm5HU5k=ev-6}=Ew7tatoFsbY4<P_u@re|$x
zp{c;7WN3+`!`#Zi%*xbc;$G8wBw;;0Jtc*d#FEq$Eb4(;jFmLGG~7IWT%Chl9f5Wz
zC}DGkl0tR3ud9oXYh<lWPG(Y3Vo@c;K^V?bFtjjYGBulA%xK1E6##Urr+;X$t_#rU
z$-0aZj9e3IH75%)tz&fBe1OTAQ8%9f2zXgRWF|L=6kyOWHnda#`&KU?$lo_0Bp}Gs
xFGRuE(0H>H%WOt5a|I<;B_#!8149r)p**uBLqSz(@;+7xCRL@)*I2)Z005mTQh5LX

delta 322
zcmX?ZddhS{xQL;#u2*87u91O}nS!CYm8qeXsp-UQmC277#l;o4loTwHq%ExsEUXO8
zChj#2Hb4mL>FFscq$HN4rU2C&B1sq-TN#*GnVKkRa%s4E`nWm=xjKfpx+o}Nvr|c7
z@&!f>HU&cq12f~v#f)Y)8ext>!3sbPo*}x9PEJ9tVb1=(!I}zI0YIjwe`v6-3(z<P
zB?SwFTMU3sw6rp{n0%H|i_v)U561P3Hk(&488fQ$FaSX&H;5Eq&@eVMhM24u5ajP0
z5E2mN=@+74Y+$~bgJm|Oq9M@K^30M9AZ27>p`a84q|GfAl!8(VauSn)9^HJI^@|7q
DXn0Tr