fix oklibrary and use to not fail when file has been renamed (#842)

lispusers/TEDITDORADOKEYS

@@ -1,22 +1,23 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
-
(FILECREATED "19-Apr-2018 12:27:21" 
-|{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>TEDITDORADOKEYS.;2|
 22264  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-      |changes| |to:|  (VARS TEDITDORADOKEYSCOMS)
+
(FILECREATED "16-Jul-2022 23:40:36" 
+|{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;2|
 22214  
 
-      |previous| |date:| "28-Oct-87 19:53:12" 
-|{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>TEDITDORADOKEYS.;1|)
+      :CHANGES-TO (VARS TEDITDORADOKEYSCOMS)
+
+      :PREVIOUS-DATE "19-Apr-2018 12:27:21" 
+|{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;1|)
 
 
-; Copyright (c) 1987, 2018 by Xerox Corporation.  All rights reserved.
+; Copyright (c) 1987, 2018 by Xerox Corporation.
 
 (PRETTYCOMPRINT TEDITDORADOKEYSCOMS)
 
 (RPAQQ TEDITDORADOKEYSCOMS

-       ((FILES TEDITDCL TEDITFNKEYS)
+       ((FILES TEDIT-DCL TEDIT-FNKEYS)
         (COMS 
-              (* |;;| 
-
       "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")

+              (* |;;| 
+
         "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")

 
               (FNS \\TEDIT.BOLD.SEL.OFF \\TEDIT.BOLD.SEL.ON \\TEDIT.CENTER.SEL \\TEDIT.CENTER.SEL.REV
                    \\TEDIT.DEFAULTS.CARET \\TEDIT.DEFAULTSSEL \\TEDIT.SETDEFAULT.FROM.SEL 
@@ -25,7 +26,7 @@
                    \\TEDIT.SUPERSCRIPTSEL \\TEDIT.UCASE.SEL \\TEDIT.UNDERLINE.SEL.OFF 
                    \\TEDIT.UNDERLINE.SEL.ON \\TEDIT.STRIKEOUT.SEL.ON \\TEDIT.STRIKEOUT.SEL.OFF))
         (COMS 
-              (* |;;| "Specialized functions for this module")

+              (* |;;| "Specialized functions for this module")

 
               (FNS \\TEDIT.DK.ABORT \\TEDIT.DK.FIND \\TEDIT.DK.SUBSTITUTE \\TEDIT.DK.INSERT-PARENS 
                    \\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES))
@@ -65,12 +66,11 @@
                                                        (TEDIT.SETSYNTAX (CAR ENTRY)
                                                               (CADR ENTRY)))))))
 
-(FILESLOAD TEDITDCL TEDITFNKEYS)
+(FILESLOAD TEDIT-DCL TEDIT-FNKEYS)
 
 
 
-(* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down."
-)

+(* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")

 
 (DEFINEQ
 
@@ -442,22 +442,22 @@
         ("1,'" FN \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES)))
 
 (FOR
 ENTRY IN
 \\TEDIT.DORADO.KEYS DO
 (SELECTQ (CADR ENTRY)
-                                                     (FN (TEDIT.SETFUNCTION (CAR ENTRY)
-                                                                (CADDR ENTRY)))
-                                                     (TEDIT.SETSYNTAX (CAR ENTRY)
-                                                            (CADR ENTRY))))
+                                         (FN (TEDIT.SETFUNCTION (CAR ENTRY)
+                                                    (CADDR ENTRY)))
+                                         (TEDIT.SETSYNTAX (CAR ENTRY)
+                                                (CADR ENTRY))))
 (PUTPROPS TEDITDORADOKEYS COPYRIGHT ("Xerox Corporation" 1987 2018))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (4082 15770 (\\TEDIT.BOLD.SEL.OFF 4092 . 4330) (\\TEDIT.BOLD.SEL.ON 4332 . 4566) (
-\\TEDIT.CENTER.SEL 4568 . 5638) (\\TEDIT.CENTER.SEL.REV 5640 . 6735) (\\TEDIT.DEFAULTS.CARET 6737 . 
-7029) (\\TEDIT.DEFAULTSSEL 7031 . 7369) (\\TEDIT.SETDEFAULT.FROM.SEL 7371 . 7828) (\\TEDIT.FIND 7830
- . 10691) (\\TEDIT.ITALIC.SEL.OFF 10693 . 10935) (\\TEDIT.ITALIC.SEL.ON 10937 . 11123) (
-\\TEDIT.LARGERSEL 11125 . 11420) (\\TEDIT.LCASE.SEL 11422 . 12138) (\\TEDIT.SHOWCARETLOOKS 12140 . 
-13523) (\\TEDIT.SMALLERSEL 13525 . 13823) (\\TEDIT.SUBSCRIPTSEL 13825 . 14032) (\\TEDIT.SUPERSCRIPTSEL
- 14034 . 14242) (\\TEDIT.UCASE.SEL 14244 . 15000) (\\TEDIT.UNDERLINE.SEL.OFF 15002 . 15193) (
-\\TEDIT.UNDERLINE.SEL.ON 15195 . 15384) (\\TEDIT.STRIKEOUT.SEL.ON 15386 . 15575) (
-\\TEDIT.STRIKEOUT.SEL.OFF 15577 . 15768)) (15828 20622 (\\TEDIT.DK.ABORT 15838 . 15905) (
-\\TEDIT.DK.FIND 15907 . 18936) (\\TEDIT.DK.SUBSTITUTE 18938 . 19195) (\\TEDIT.DK.INSERT-PARENS 19197
- . 19584) (\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 19586 . 20078) (\\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES 
-20080 . 20620)))))
+  (FILEMAP (NIL (4080 15768 (\\TEDIT.BOLD.SEL.OFF 4090 . 4328) (\\TEDIT.BOLD.SEL.ON 4330 . 4564) (
+\\TEDIT.CENTER.SEL 4566 . 5636) (\\TEDIT.CENTER.SEL.REV 5638 . 6733) (\\TEDIT.DEFAULTS.CARET 6735 . 
+7027) (\\TEDIT.DEFAULTSSEL 7029 . 7367) (\\TEDIT.SETDEFAULT.FROM.SEL 7369 . 7826) (\\TEDIT.FIND 7828
+ . 10689) (\\TEDIT.ITALIC.SEL.OFF 10691 . 10933) (\\TEDIT.ITALIC.SEL.ON 10935 . 11121) (
+\\TEDIT.LARGERSEL 11123 . 11418) (\\TEDIT.LCASE.SEL 11420 . 12136) (\\TEDIT.SHOWCARETLOOKS 12138 . 
+13521) (\\TEDIT.SMALLERSEL 13523 . 13821) (\\TEDIT.SUBSCRIPTSEL 13823 . 14030) (\\TEDIT.SUPERSCRIPTSEL
+ 14032 . 14240) (\\TEDIT.UCASE.SEL 14242 . 14998) (\\TEDIT.UNDERLINE.SEL.OFF 15000 . 15191) (
+\\TEDIT.UNDERLINE.SEL.ON 15193 . 15382) (\\TEDIT.STRIKEOUT.SEL.ON 15384 . 15573) (
+\\TEDIT.STRIKEOUT.SEL.OFF 15575 . 15766)) (15826 20620 (\\TEDIT.DK.ABORT 15836 . 15903) (
+\\TEDIT.DK.FIND 15905 . 18934) (\\TEDIT.DK.SUBSTITUTE 18936 . 19193) (\\TEDIT.DK.INSERT-PARENS 19195
+ . 19582) (\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 19584 . 20076) (\\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES 
+20078 . 20618)))))
 STOP