Merge (rebase) Cleanup-character-IO-interfaces with master

.gitignore

@@ -27,3 +27,4 @@ core
 
 # set up by install-diff-filter.sh script
 .gitattributes
+sources/LLREAD.LCOM.~1~

library/CLIPBOARD

@@ -1,11 +1,11 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "23-Feb-2021 22:13:09" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;52
 9082   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+
(FILECREATED " 3-Jul-2021 13:16:26" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;6
 9185   
 
-      changes to%:  (FNS CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM)
+      changes to%:  (VARS CLIPBOARDCOMS)
 
-      previous date%: "23-Feb-2021 11:34:57" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;50)
+      previous date%: "24-Jun-2021 21:14:38" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;5)
 
 
 (PRETTYCOMPRINT CLIPBOARDCOMS)
@@ -16,7 +16,7 @@
              CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM)
         (FNS TEDIT.COPYTOCLIPBOARD TEDIT.EXTRACTTOCLIPBOARD)
         (FNS SEDIT.COPYTOCLIPBOARD)
-        (INITVARS (CLIPBOARD-FORMAT :UTF8))
+        (INITVARS (CLIPBOARD-FORMAT :UTF-8))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILES (SYSLOAD)
                                                               UNIXCOMM UNICODE)
                (P (INSTALL-CLIPBOARD)))
@@ -30,49 +30,49 @@
 
 (DEFINEQ
 
-(INSTALL-CLIPBOARD
-  [LAMBDA NIL                                               (* ; "Edited  8-Aug-2020 07:59 by rmk:")
-                                                            (* ; "Edited 19-Apr-2020 12:15 by rmk:")
-                                                            (* ; "Edited 18-Apr-2018 23:00 by rmk:")
+(INSTALL-CLIPBOARD

+  [LAMBDA NIL
                                           (* ; "Edited 24-Jun-2021 21:14 by rmk:")


+                                                            (* ; "Edited 19-Apr-2020 12:15 by rmk:")


+                                                            (* ; "Edited 18-Apr-2018 23:00 by rmk:")

     (CL:WHEN (GETD 'LISPINTERRUPTS.PASTE)
         (MOVD? 'LISPINTERRUPTS 'LISPINTERRUPTS.ORIG)
         (MOVD 'LISPINTERRUPTS.PASTE 'LISPINTERRUPTS))
-    (INTERRUPTCHAR (CHARCODE "1,v")
-           '(PASTEFROMCLIPBOARD))
-    (INTERRUPTCHAR (CHARCODE "1,V")
-           '(PASTEFROMCLIPBOARD))
-    (CL:WHEN (BOUNDP 'TEDIT.READTABLE)                       (* ; "TEDIT")
+    (INTERRUPTCHAR (CHARCODE "Meta,v")
+           '(PASTEFROMCLIPBOARD
))
+    (INTERRUPTCHAR (CHARCODE "Meta,V")
+           '(PASTEFROMCLIPBOARD
))
+    (CL:WHEN (BOUNDP 'TEDIT.READTABLE)                       (* ; "TEDIT")

 
-        (* ;; "Paste")
+        (* ;; "Paste")

 
-        (TEDIT.SETFUNCTION (CHARCODE "1,v")
+        (TEDIT.SETFUNCTION (CHARCODE "Meta,v")
                (FUNCTION PASTEFROMCLIPBOARD)
                TEDIT.READTABLE)
-        (TEDIT.SETFUNCTION (CHARCODE "1,V")
+        (TEDIT.SETFUNCTION (CHARCODE "Meta,V")
                (FUNCTION PASTEFROMCLIPBOARD)
                TEDIT.READTABLE)
 
-        (* ;; "Copy")
+        (* ;; "Copy")

 
-        (TEDIT.SETFUNCTION (CHARCODE "1,c")
+        (TEDIT.SETFUNCTION (CHARCODE "Meta,c")
                (FUNCTION TEDIT.COPYTOCLIPBOARD)
                TEDIT.READTABLE)
-        (TEDIT.SETFUNCTION (CHARCODE "1,C")
+        (TEDIT.SETFUNCTION (CHARCODE "Meta,C")
                (FUNCTION TEDIT.COPYTOCLIPBOARD)
                TEDIT.READTABLE)
 
-        (* ;; "Extract")
+        (* ;; "Extract")

 
-        (TEDIT.SETFUNCTION (CHARCODE "1,X")
+        (TEDIT.SETFUNCTION (CHARCODE "Meta,X")
                (FUNCTION TEDIT.EXTRACTTOCLIPBOARD)
                TEDIT.READTABLE)
-        (TEDIT.SETFUNCTION (CHARCODE "1,x")
+        (TEDIT.SETFUNCTION (CHARCODE "Meta,x")
                (FUNCTION TEDIT.EXTRACTTOCLIPBOARD)
                TEDIT.READTABLE))
-    (CL:WHEN (GETP 'SEDIT 'FILEDATES)                        (* ; 
-                                                             "SEDIT copy: INTERRUPTCHAR does paste")
-        (SEDIT:ADD-COMMAND "1,c" 'SEDIT.COPYTOCLIPBOARD)
-        (SEDIT:ADD-COMMAND "1,C" 'SEDIT.COPYTOCLIPBOARD)
+    (CL:WHEN (GETP 'SEDIT 'FILEDATES)                        (* ; 
+
                                                           "SEDIT copy: INTERRUPTCHAR does paste")

+        (SEDIT:ADD-COMMAND "Meta,c" 'SEDIT.COPYTOCLIPBOARD "M-c" "Copy to clipboard")
+        (SEDIT:ADD-COMMAND "Meta,C" 'SEDIT.COPYTOCLIPBOARD)
         (SEDIT:RESET-COMMANDS))])
 
 (GETCLIPBOARD

@@ -184,7 +184,7 @@
     T])
 )
 
-(RPAQ? CLIPBOARD-FORMAT
 :UTF8)
+(RPAQ? CLIPBOARD-FORMAT
 :UTF-8)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY 
 
 (FILESLOAD (SYSLOAD)
@@ -203,8 +203,8 @@
 )
 (PUTPROPS CLIPBOARD COPYRIGHT (NONE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1309 6429 (INSTALL-CLIPBOARD 1319 . 3141) (GETCLIPBOARD 3143 . 3517) (PUTCLIPBOARD 3519
- . 3924) (PASTEFROMCLIPBOARD 3926 . 4844) (LISPINTERRUPTS.PASTE 4846 . 5267) (CLIPBOARD-COPY-STREAM 
-5269 . 5769) (CLIPBOARD-PASTE-STREAM 5771 . 6427)) (6430 7189 (TEDIT.COPYTOCLIPBOARD 6440 . 6721) (
-TEDIT.EXTRACTTOCLIPBOARD 6723 . 7187)) (7190 8729 (SEDIT.COPYTOCLIPBOARD 7200 . 8727)))))
+  (FILEMAP (NIL (1301 6531 (INSTALL-CLIPBOARD 1311 . 3243) (GETCLIPBOARD 3245 . 3619) (PUTCLIPBOARD 3621
+ . 4026) (PASTEFROMCLIPBOARD 4028 . 4946) (LISPINTERRUPTS.PASTE 4948 . 5369) (CLIPBOARD-COPY-STREAM 
+5371 . 5871) (CLIPBOARD-PASTE-STREAM 5873 . 6529)) (6532 7291 (TEDIT.COPYTOCLIPBOARD 6542 . 6823) (
+TEDIT.EXTRACTTOCLIPBOARD 6825 . 7289)) (7292 8831 (SEDIT.COPYTOCLIPBOARD 7302 . 8829)))))
 STOP