From 9c8d9df1acd19753fdba3efcab52416a392ddb1c Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Sat, 4 Jun 2022 18:32:56 -0700 Subject: [PATCH] Rmk45 testupf to internal, tedit pathnames, minor doc changes (#787) * TESTUPF: Moved to internal * CLIPBOARD.TXT, MODERNIZE.TEDIT, WHEELSCROLL.TXT: Minor edits * TEDIT, TEXTOFD: CL:PATHNAMES are recognized as file names for opening --- {sources => internal}/TESTUPF | 0 {sources => internal}/TESTUPF.LCOM | Bin {sources => internal}/TESTUPF.TXT | 0 library/CLIPBOARD.TXT | 8 ++-- library/TEDIT | 55 +++++++++++++++------------- library/TEDIT.LCOM | Bin 39212 -> 39187 bytes library/TEXTOFD | 57 +++++++++++++++-------------- library/TEXTOFD.LCOM | Bin 39277 -> 39325 bytes lispusers/MODERNIZE.TEDIT | Bin 7476 -> 7825 bytes lispusers/WHEELSCROLL.TXT | 2 +- 10 files changed, 64 insertions(+), 58 deletions(-) rename {sources => internal}/TESTUPF (100%) rename {sources => internal}/TESTUPF.LCOM (100%) rename {sources => internal}/TESTUPF.TXT (100%) diff --git a/sources/TESTUPF b/internal/TESTUPF similarity index 100% rename from sources/TESTUPF rename to internal/TESTUPF diff --git a/sources/TESTUPF.LCOM b/internal/TESTUPF.LCOM similarity index 100% rename from sources/TESTUPF.LCOM rename to internal/TESTUPF.LCOM diff --git a/sources/TESTUPF.TXT b/internal/TESTUPF.TXT similarity index 100% rename from sources/TESTUPF.TXT rename to internal/TESTUPF.TXT diff --git a/library/CLIPBOARD.TXT b/library/CLIPBOARD.TXT index 78f0002a..d8370382 100644 --- a/library/CLIPBOARD.TXT +++ b/library/CLIPBOARD.TXT @@ -4,13 +4,13 @@ Written by Ron Kaplan, 2020-2021 A small package that implements copy and paste to the system clipboard. -It arms meta-C for copy to the clipboard from the current selection of an application that has been armed (Tedit, Sedit), and also meta-X for extraction (copy followed by delete). +For Tedit, Sedit, and perhaps other applications, meta-C is armed for copy to the clipboard from the current selection, and also meta-X is armed for extraction (copy followed by delete). -Meta-V is defined as an interrupt character that pastes the current clipboard contents into whatever process curent has input focus. +Meta-V is defined as an interrupt character that pastes the current clipboard contents into whatever process currently has input focus. -The information in the clipboard can be provided from or provided to external (non-Medley) applications (mail, emacs, etc.) in the usual way. For example, a form cselected in SEDIT can be copied to the clipboard and pasted into an email message. +The information in the clipboard can be provided from or provided to external (non-Medley) applications (mail, emacs, etc.) in the usual way. For example, a form selected in SEDIT can be copied to the clipboard and pasted into an email message. -It assumes that the clipboard is a utf-8/unicode stream, and uses the UNICODE package to convert to and from the Medley internal character encoding (XCCS). +It assumes that the clipboard is a UTF-8/Unicode stream, and uses the UNICODE package to convert to and from the Medley internal character encoding (XCCS). The name of the clipboard stream may differ from platform to platform. On the Mac, the paste stream is "pbpaste" and the copy stream is "pbcopy". Those names are used if "darwin" is a substring of (UNIX-GETENV "ostype"). Otherwise both stream-names default to "xclip". The functions CLIPBOARD-COPY-STREAM and CLIPBOARD-PASTE-STREAM perform this selection. diff --git a/library/TEDIT b/library/TEDIT index 171ec86d..50666dd2 100644 --- a/library/TEDIT +++ b/library/TEDIT @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-May-2022 22:46:25"  -{DSK}kaplan>Local>medley3.5>working-medley>library>TEDIT.;37 143285 +(FILECREATED " 4-Jun-2022 15:43:05"  +{DSK}kaplan>local>medley3.5>working-medley>library>TEDIT.;39 143317 - :CHANGES-TO (FNS TEDITSTRING) + :CHANGES-TO (FNS TEDIT) - :PREVIOUS-DATE " 5-May-2022 15:19:42" -{DSK}kaplan>Local>medley3.5>working-medley>library>TEDIT.;34) + :PREVIOUS-DATE "23-May-2022 15:52:33" +{DSK}kaplan>local>medley3.5>working-medley>library>TEDIT.;38) (* ; " @@ -253,6 +253,8 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (TEDIT [LAMBDA (TEXT WINDOW DONTSPAWN PROPS) + (* ;; "Edited 4-Jun-2022 15:42 by rmk") + (* ;; "Edited 31-Jan-2022 17:19 by rmk: String TEXT is a file name") (* ;; "Edited 30-Dec-2021 20:50 by rmk") @@ -272,7 +274,8 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (PROG (PROC TEDITCREATEDWINDOW) [COND ((AND TEXT (OR (LITATOM TEXT) - (STRINGP TEXT))) (* ; + (STRINGP TEXT) + (CL:PATHNAMEP TEXT))) (* ;  "Make sure the file exists before trying to open the window.") (SETQ TEXT (OPENSTREAM TEXT 'INPUT 'OLD '((TYPE TEXT] (CL:WHEN (AND WINDOW (OR (LITATOM WINDOW) @@ -347,12 +350,12 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (TEDITSTRING [LAMBDA (TEXT WINDOW DONTSPAWN PROPS) +(* ;;; "Edited 23-May-2022 15:52 by rmk") + (* ;;; "Edited 19-May-2022 22:46 by rmk: An interface function to replace calls to TEDIT when the text argument may be the string to be edited rather than the name of a file. This enables the transition that gets TEDIT aligned with the convention that strings, as well as litatoms, are file names") (TEDIT (IF (STRINGP TEXT) - THEN (LET ((TSTRM (OPENTEXTSTREAM NIL NIL NIL PROPS))) - (PRIN3 TEXT TSTRM) - TSTRM) + THEN (OPENSTRINGSTREAM TEXT) ELSE TEXT) WINDOW DONTSPAWN PROPS]) @@ -2264,7 +2267,7 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (* ; "TEDIT Support information") -(RPAQQ TEDITSYSTEMDATE "19-May-2022 22:46:25") +(RPAQQ TEDITSYSTEMDATE " 4-Jun-2022 15:43:05") (RPAQ TEDITSUPPORT "TEditSupport.PA") (DEFINEQ @@ -2290,20 +2293,20 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (PUTPROPS TEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1995 1999 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4355 118455 (\TEDIT2 4365 . 7116) (COERCETEXTOBJ 7118 . 15894) (TEDIT 15896 . 20924) ( -TEDITSTRING 20926 . 21540) (TEDIT-SEE 21542 . 24131) (TEDIT.CHARWIDTH 24133 . 26157) (TEDIT.COPY 26159 - . 34595) (TEDIT.DELETE 34597 . 35287) (TEDIT.DO.BLUEPENDINGDELETE 35289 . 38356) (TEDIT.INSERT 38358 - . 43888) (TEDIT.KILL 43890 . 45447) (TEDIT.MAPLINES 45449 . 46848) (TEDIT.MAPPIECES 46850 . 47806) ( -TEDIT.MOVE 47808 . 57592) (TEDIT.QUIT 57594 . 59594) (TEDIT.STRINGWIDTH 59596 . 60267) (TEDIT.\INSERT -60269 . 62294) (TEXTOBJ 62296 . 63421) (TEXTSTREAM 63423 . 65038) (\TEDIT.INCLUDE 65040 . 68940) ( -\TEDIT.INSERT.PIECES 68942 . 78857) (\TEDIT.MOVE.PIECEMAPFN 78859 . 80938) (\TEDIT.OBJECT.SHOWSEL -80940 . 84569) (\TEDIT.RESTARTFN 84571 . 86566) (\TEDIT.CHARDELETE 86568 . 90530) ( -\TEDIT.COPY.PIECEMAPFN 90532 . 93757) (\TEDIT.DELETE 93759 . 101277) (\TEDIT.DIFFUSE.PARALOOKS 101279 - . 104043) (\TEDIT.FOREIGN.COPY? 104045 . 107772) (\TEDIT.QUIT 107774 . 110920) (\TEDIT.WORDDELETE -110922 . 115755) (\TEDIT1 115757 . 118453)) (118569 118685 (\CREATE.TEDIT.RESTART.MENU 118579 . 118683 -)) (118784 122473 (PLCHAIN 118794 . 119068) (PRINTLINE 119070 . 121834) (SEEFILE 121836 . 122471)) ( -122514 142157 (TEDIT.INSERT.OBJECT 122524 . 131601) (TEDIT.EDIT.OBJECT 131603 . 133859) ( -TEDIT.FIND.OBJECT 133861 . 134754) (TEDIT.FIND.OBJECT.SUBTREE 134756 . 135562) (TEDIT.PUT.OBJECT -135564 . 137223) (TEDIT.GET.OBJECT 137225 . 140424) (TEDIT.OBJECT.CHANGED 140426 . 142155)) (142435 -142798 (MAKETEDITFORM 142445 . 142796))))) + (FILEMAP (NIL (4349 118487 (\TEDIT2 4359 . 7110) (COERCETEXTOBJ 7112 . 15888) (TEDIT 15890 . 21011) ( +TEDITSTRING 21013 . 21572) (TEDIT-SEE 21574 . 24163) (TEDIT.CHARWIDTH 24165 . 26189) (TEDIT.COPY 26191 + . 34627) (TEDIT.DELETE 34629 . 35319) (TEDIT.DO.BLUEPENDINGDELETE 35321 . 38388) (TEDIT.INSERT 38390 + . 43920) (TEDIT.KILL 43922 . 45479) (TEDIT.MAPLINES 45481 . 46880) (TEDIT.MAPPIECES 46882 . 47838) ( +TEDIT.MOVE 47840 . 57624) (TEDIT.QUIT 57626 . 59626) (TEDIT.STRINGWIDTH 59628 . 60299) (TEDIT.\INSERT +60301 . 62326) (TEXTOBJ 62328 . 63453) (TEXTSTREAM 63455 . 65070) (\TEDIT.INCLUDE 65072 . 68972) ( +\TEDIT.INSERT.PIECES 68974 . 78889) (\TEDIT.MOVE.PIECEMAPFN 78891 . 80970) (\TEDIT.OBJECT.SHOWSEL +80972 . 84601) (\TEDIT.RESTARTFN 84603 . 86598) (\TEDIT.CHARDELETE 86600 . 90562) ( +\TEDIT.COPY.PIECEMAPFN 90564 . 93789) (\TEDIT.DELETE 93791 . 101309) (\TEDIT.DIFFUSE.PARALOOKS 101311 + . 104075) (\TEDIT.FOREIGN.COPY? 104077 . 107804) (\TEDIT.QUIT 107806 . 110952) (\TEDIT.WORDDELETE +110954 . 115787) (\TEDIT1 115789 . 118485)) (118601 118717 (\CREATE.TEDIT.RESTART.MENU 118611 . 118715 +)) (118816 122505 (PLCHAIN 118826 . 119100) (PRINTLINE 119102 . 121866) (SEEFILE 121868 . 122503)) ( +122546 142189 (TEDIT.INSERT.OBJECT 122556 . 131633) (TEDIT.EDIT.OBJECT 131635 . 133891) ( +TEDIT.FIND.OBJECT 133893 . 134786) (TEDIT.FIND.OBJECT.SUBTREE 134788 . 135594) (TEDIT.PUT.OBJECT +135596 . 137255) (TEDIT.GET.OBJECT 137257 . 140456) (TEDIT.OBJECT.CHANGED 140458 . 142187)) (142467 +142830 (MAKETEDITFORM 142477 . 142828))))) STOP diff --git a/library/TEDIT.LCOM b/library/TEDIT.LCOM index b02f8eae5d43d17a6f6b90a0f6202c1fdfa5b0b2..dbbc0e2d8a117b77a0868f49ee109a73c1c713ac 100644 GIT binary patch delta 757 zcmZ`%y>HV%6pteoA|Qbj1gOKqQzEcs-}zfrh#OxLgJT=pNffCa0*O!|q=>ddg-}6= zg(=mEvLkgsu(a7&I`AJb@z0=gNt+5#xZ!==z4w0a{qB7|Ow+^ksGSEzxVJSFkc1G( zs-<8{+I@2K($+@*#YX9A_xYeZEDh){PP}dwfk#+qbhl5VktG?Hr0@P*+<~kY3ROP_R@+UAkg>vuwA`Q>3l78krzh1?k%jSp;3f=k z#`sQp{~|}}kL-JHKv#21;y7PEpJL~8`TInDIylzLk0;httWT^96Y(&0ba1>#k8=Ah z6OyDOhEY%W1D-f`pIAPQ^fc+l* zc6pRFW$=jIA`Aequ2FgKDvvb`ZP#~#Hedz8gJ!@+$4Hu45~iao3p)lxBu?xosRj`% zXkw__k;Cpt0?0UfwU<4@e9SoQt!)C*4e;#-yV7Q*k)p!NlyL+Iu{J#ikZgkMhfP*W zVuRU9eVQce8bhtQfiKW&`5|Z0cX^e5$lf-Jkh;NGJ9k3v-idl$wwEhYHgl;0Th}QF X$Y{od>(|D27dmg}?ezG|$2Z(>8YsgK delta 750 zcmaJ<&ubGw6y6P98hv$M_OW_P+fn;7UN7{RI(v0hX} z#fvCN+dX&{p$EZ>33&0~&A-8a!@odZOzIC>oXfoT=DqiQ-Y_0g|cfE49UV_5k*~GFbu?gM%c78Edkr%AN z<`xv(#P@+%d-@r9M7C8ZWs9!oi&iAK63)LZX9UawWFI;4)yK<+XZ7_!*UQ&TD>uw^8=UYNvX2Z5jf<{zQNw2{3*|AV6&W612E)L*4v=U?i> zbUn9x{C#sy!}IRrk1Ofh+>(AF{hZtH5>TpNkx|$ZaSW{9fDJCC2pozIgH|Z}z-k0$ z8F)!xh6UVlepgXigAi+wyx<+6Rg!*M*m=@m;0xXr2!Jgb@JnFD5iU=BH7S+|XqwRT z0w?SNV+O1zA*yAB&Maz~uraNRM67tE+yJOmg##~)5D&-M=8=Ojq0pPXVlrR#1<<;Q z(8JC9XjLKL9SoTVP?XhY0JuN|W%v%>1iU~dD$VB~>Lh)gH|Hc&Ve&bh^u_#TSpw~n zu4%`n6CItqIUKf5OoqFlYt43cVtr{ZK5g>VX*j19nKji9I4gkaplan>Local>medley3.5>my-medley>library>TEXTOFD.;18 183046 +(FILECREATED " 4-Jun-2022 15:43:05"  +{DSK}kaplan>local>medley3.5>working-medley>library>TEXTOFD.;19 183223 - :CHANGES-TO (FNS \TEXTINIT) + :CHANGES-TO (FNS OPENTEXTSTREAM) - :PREVIOUS-DATE "31-Jan-2022 22:04:01" -{DSK}kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;14) + :PREVIOUS-DATE " 5-May-2022 15:12:26" +{DSK}kaplan>local>medley3.5>working-medley>library>TEXTOFD.;18) (* ; " @@ -107,8 +108,9 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor (RETURN NEWSTREAM]) (OPENTEXTSTREAM - [LAMBDA (TEXT WINDOW START END PROPS) (* ; - "Edited 31-Jan-2022 17:25 by rmk: A string TEXT is converted here to a stream") + [LAMBDA (TEXT WINDOW START END PROPS) (* ; "Edited 4-Jun-2022 15:42 by rmk") + (* ; + "Edited 31-Jan-2022 17:25 by rmk: A string TEXT is converted here to a stream") (* ; "Edited 4-May-93 14:38 by jds") (* ;  "Create a text-type STREAM to describe TEXT. Optionally, connect that to WINDOW for display.") @@ -207,7 +209,8 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor (T (* ;  "Otherwise, create a TEXTOFD to describe the text we're editing.-") (CL:WHEN (AND TEXT (OR (LITATOM TEXT) - (STRINGP TEXT))) (* ; "rmk: Strings are now file names") + (STRINGP TEXT) + (CL:PATHNAMEP TEXT)))(* ; "rmk: Strings are now file names") [SETQ TEXT (OPENSTREAM TEXT 'INPUT 'OLD '((TYPE TEXT]) (SETQ TEXTSTREAM (replace (TEXTOBJ STREAMHINT) of TEXTOBJ with (create TEXTSTREAM @@ -2722,25 +2725,25 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor (PUTPROPS TEXTOFD COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1993 1994 1995 1999 2000 2001 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2980 53411 (COPYTEXTSTREAM 2990 . 6112) (OPENTEXTSTREAM 6114 . 21173) (REOPENTEXTSTREAM - 21175 . 21597) (TEDIT.STREAMCHANGEDP 21599 . 21897) (TEXTSTREAMP 21899 . 22213) (TXTFILE 22215 . -22660) (\DELETECH 22662 . 33918) (\SETUPGETCH 33920 . 41199) (\TEDIT.REOPEN.STREAM 41201 . 43051) ( -\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 43053 . 45491) (\TEXTINIT 45493 . 51304) (\TEXTMARK 51306 . 52054) ( -\TEXTTTYBOUT 52056 . 53409)) (53412 78844 (\INSERTCH 53422 . 77148) (\INSERTCR 77150 . 78842)) (78910 -99226 (\CHTOPC 78920 . 80109) (\CHTOPCNO 80111 . 81373) (\CLEARPCTB 81375 . 82171) ( -\CREATEPIECEORSTREAM 82173 . 85147) (\DELETEPIECE 85149 . 86062) (\FINDPIECE 86064 . 86430) ( -\INSERTPIECE 86432 . 89442) (\MAKEPCTB 89444 . 91359) (\SPLITPIECE 91361 . 98320) (\INSERT.FIRST.PIECE - 98322 . 99224)) (99278 123516 (\TEXTCLOSEF 99288 . 100515) (\TEXTCLOSEF-SUBTREE 100517 . 101223) ( -\TEXTDSPFONT 101225 . 102217) (\TEXTEOFP 102219 . 103578) (\TEXTGETEOFPTR 103580 . 103790) ( -\TEXTGETFILEPTR 103792 . 105855) (\TEXTOPENF 105857 . 106687) (\TEXTOPENF-SUBTREE 106689 . 107490) ( -\TEXTOUTCHARFN 107492 . 107840) (\TEXTBACKFILEPTR 107842 . 113743) (\TEXTBOUT 113745 . 117093) ( -\TEDITOUTCCODEFN 117095 . 118361) (\TEXTSETEOF 118363 . 118872) (\TEXTSETFILEPTR 118874 . 120099) ( -\TEXTDSPXPOSITION 120101 . 120958) (\TEXTDSPYPOSITION 120960 . 121505) (\TEXTLEFTMARGIN 121507 . -121990) (\TEXTRIGHTMARGIN 121992 . 122928) (\TEXTDSPCHARWIDTH 122930 . 123168) (\TEXTDSPSTRINGWIDTH -123170 . 123410) (\TEXTDSPLINEFEED 123412 . 123514)) (123517 161354 (\TEXTBIN 123527 . 144406) ( -\TEDIT.TEXTBIN.STRINGSETUP 144408 . 150121) (\TEDIT.TEXTBIN.FILESETUP 150123 . 156509) ( -\TEDIT.TEXTBIN.NEW.PAGE 156511 . 161352)) (161355 177117 (\TEXTPEEKBIN 161365 . 172858) ( -\TEDIT.PEEKBIN.NEW.PAGE 172860 . 177115)) (177155 182373 (CGETTEXTPROP 177165 . 177641) (CTEXTPROP -177643 . 179987) (GETTEXTPROP 179989 . 180584) (PUTTEXTPROP 180586 . 181911) (TEXTPROP 181913 . 182371 + (FILEMAP (NIL (2996 53588 (COPYTEXTSTREAM 3006 . 6128) (OPENTEXTSTREAM 6130 . 21350) (REOPENTEXTSTREAM + 21352 . 21774) (TEDIT.STREAMCHANGEDP 21776 . 22074) (TEXTSTREAMP 22076 . 22390) (TXTFILE 22392 . +22837) (\DELETECH 22839 . 34095) (\SETUPGETCH 34097 . 41376) (\TEDIT.REOPEN.STREAM 41378 . 43228) ( +\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 43230 . 45668) (\TEXTINIT 45670 . 51481) (\TEXTMARK 51483 . 52231) ( +\TEXTTTYBOUT 52233 . 53586)) (53589 79021 (\INSERTCH 53599 . 77325) (\INSERTCR 77327 . 79019)) (79087 +99403 (\CHTOPC 79097 . 80286) (\CHTOPCNO 80288 . 81550) (\CLEARPCTB 81552 . 82348) ( +\CREATEPIECEORSTREAM 82350 . 85324) (\DELETEPIECE 85326 . 86239) (\FINDPIECE 86241 . 86607) ( +\INSERTPIECE 86609 . 89619) (\MAKEPCTB 89621 . 91536) (\SPLITPIECE 91538 . 98497) (\INSERT.FIRST.PIECE + 98499 . 99401)) (99455 123693 (\TEXTCLOSEF 99465 . 100692) (\TEXTCLOSEF-SUBTREE 100694 . 101400) ( +\TEXTDSPFONT 101402 . 102394) (\TEXTEOFP 102396 . 103755) (\TEXTGETEOFPTR 103757 . 103967) ( +\TEXTGETFILEPTR 103969 . 106032) (\TEXTOPENF 106034 . 106864) (\TEXTOPENF-SUBTREE 106866 . 107667) ( +\TEXTOUTCHARFN 107669 . 108017) (\TEXTBACKFILEPTR 108019 . 113920) (\TEXTBOUT 113922 . 117270) ( +\TEDITOUTCCODEFN 117272 . 118538) (\TEXTSETEOF 118540 . 119049) (\TEXTSETFILEPTR 119051 . 120276) ( +\TEXTDSPXPOSITION 120278 . 121135) (\TEXTDSPYPOSITION 121137 . 121682) (\TEXTLEFTMARGIN 121684 . +122167) (\TEXTRIGHTMARGIN 122169 . 123105) (\TEXTDSPCHARWIDTH 123107 . 123345) (\TEXTDSPSTRINGWIDTH +123347 . 123587) (\TEXTDSPLINEFEED 123589 . 123691)) (123694 161531 (\TEXTBIN 123704 . 144583) ( +\TEDIT.TEXTBIN.STRINGSETUP 144585 . 150298) (\TEDIT.TEXTBIN.FILESETUP 150300 . 156686) ( +\TEDIT.TEXTBIN.NEW.PAGE 156688 . 161529)) (161532 177294 (\TEXTPEEKBIN 161542 . 173035) ( +\TEDIT.PEEKBIN.NEW.PAGE 173037 . 177292)) (177332 182550 (CGETTEXTPROP 177342 . 177818) (CTEXTPROP +177820 . 180164) (GETTEXTPROP 180166 . 180761) (PUTTEXTPROP 180763 . 182088) (TEXTPROP 182090 . 182548 ))))) STOP diff --git a/library/TEXTOFD.LCOM b/library/TEXTOFD.LCOM index 034c769b91a17c42f0e4c391432f6390e535e7c5..f240e82ad6ec3a8ee741f601781f4187e9b9c6a3 100644 GIT binary patch delta 1408 zcmbVMOKTff6pm#Rh#J~}la@efPEyl-*AzgLTLV9N8)FT=QREyC)_dDNtelu^Lmwp_T zo~+Dj)usD8RjN`7M0YgisQS^?<-z^^ZhybF)!FNHc51!dJDpx_ySvfr9xz3(J>2bY zZSLHyj&Ewc&Gmk#e^8TrMGD_jZW4PADwI`Qor9Ce)KM)*H7ihF?|1L)ZtrdOx*O2_ zZm++8%>fbfC?lsb;cg2ycVJNQ+hGXB7>c4)V54&nc^`;PSY@t!-48k2MIyVw5s)nu~6Q%;$TearO-U#FA)~v%|&u@zl4&zse7$UJv`9 zJZ6mzR{vu(TR)e9ztmr5e?K3;+pgcuPWfXuJDtxS>t|jZze`4y^FNj5i4JQim+g3g z%jP0bln<==L6XWycpNA(RanC%1X8&jM4q^<| z5i|3;q1zY$Yi_tH_k)!fC2wfJmtCwv*Nj|?4IPhiXj)KvmhW!hi@p&EqTmxz!_ zifR@7h;0>7V>ea}!%96DBKGMr<+>YGBzDu`J6hk}cB&Pek9~#w;Tz;-SzRZkIxF zuNEVdHdUb^+L0&SM#zy&*uR4zmP!YJFZ6rRwDnWaM1@G6v~nWu(liS;n#SpbiK(l3 z91(@62U9ELFmM`≫>ObM460n16kUszF6aer~)@VyMGsvzKpT&IW#_crJ9Jn}r-Y lLj{E%N(oyGqPUGS(P`GLT#Vcne}3`z>5@i9uf8~X^bZX=dgK5A delta 1271 zcma)4OHUI~6sCok2qa*DL?g;cjS)gx=H7WvNW-*q3!~GS$;>Se!=^x^NO`2Fk%(zr zxN{+PtqbEqm)IZR&b4df!arc*$}OHw!A_%z&SElWzVn^e_q}Q+zkf)+SRRqn#qvR# z3X}qo4MGj79Bo~iDD78j``NAXUbVcFb#~Xw)$DdRyqss71=?XY~nOwKGwfvo>Ic?up|;jJgL|DOJG9r}qT3X%dwe!+C-S(xS?Ocva* zGwKu=e!v!OuN0;&Yzrxoq;HmY+6z-^2vW3g|9^E&w-1=DZm!kJwZ?REFd;Ryy3 z+vd!<&wYuzF9${wL1S#-Vd87!`M|SjV?&(#@qX@n4?b^>Pae$OX?;bn-PYG&>$TSN z@%ZF+(;9r8oE2194H+-_^Ni;gfD&DT)q)*_-1RJmu|iwhSvJos*{R5CrVJl4oq7kpXCY);36!~ZO;WN;4$K%q;*mSiF9Ei0dz%xB&yWA z5Tby?3LFvAO%a4x9?`WpN_0GYr#H$Xc7-%P8PQ2ssk)|j)zVZwPSzA1EYH1x(r8LV zY$?~-4P7olTtJPA-7%q%^GdG8&78xKEXcnPLsVU=1L|=Gs+t-D(F&Xe#fXSns!A-z zP>xNZN;InDxy}kgVyuUP*EsC!jjR?Ki?8_X+98?<9l=@S+sK%qcRWC3Y@0)qu*lRz gR$^^riY9U_bPsN6yMBo`h0!m)Nl|PLUOamG3$(gT)&Kwi diff --git a/lispusers/MODERNIZE.TEDIT b/lispusers/MODERNIZE.TEDIT index c0b99631f4270d861db39776a935ec3594cb2eb5..257c013450e96e8402ba2bd251814890607b337d 100644 GIT binary patch delta 744 zcmZXQ%`XE%7{+%>i#Aj$=x&QQb&;r#h=>pgi5?sf9}$rt({`}2AMB1$k@V)^Adxxw zBP6~~PLA%5{2SsV%)7C&Tbt}V&;H)$nRjL%C$6S$?~~Q|{Nik3d0}p&0Mu}8phvqV zv$zXm2r3rD#*93?g#!0o#G4Bc1>DX>DJ&SD3*{9A*q7{&1K4j3yGw zpduggq7aen7jk1_yA z4}v-@(orubjiL+yWjzE$gO*F7uP=-zwH%3xElnjcaiWdNdZR7M`sL}7%vmZXL)XDj zOgv}M_>swxI+4!idLy!Z7_=b3d;A?JCN{HbRc@sWA;vyd1eYlNgCl6G1)T_jk?mSX zy4Df;8@MTvZ#6Wg$AbC*xTQ?VEezN8@;~8pBMtI&1mtGcy;le9ge;! H7pG4@>Mv@D delta 478 zcmbPeyTxk5CjQOw0^e8}xi+_m-C<(nnw%(U#>hGOqNL5_E0U%{91IK$TtLjg1|k@k z7&w4Z@{?^OxhB_2@lTeLvJ7Jfit~XaK@5-*kWy_B6G?zk9wfjFB7iD@G@}WKi6p=f zfg&*Zk(81UNSy|%u$Z)xGz(D386?aE#Ec*Y%pBIq!O|v-tdl#W{ek2SFq>DVMu-)t zZYHY2*)kx77i5$enI?ahQK|=-Q;4htBmnY0!f+t_3`_uQEy#Y5D}cr`=tGzYfj$ru y?l2%*7+pXdBmgzT4Qxm}x)KQ_C14dO!3MHd0Hgx!8jwRK$H*D5>M>MT?E(Nsa44Vv diff --git a/lispusers/WHEELSCROLL.TXT b/lispusers/WHEELSCROLL.TXT index 752293c4..1262a1da 100644 --- a/lispusers/WHEELSCROLL.TXT +++ b/lispusers/WHEELSCROLL.TXT @@ -10,7 +10,7 @@ It is toggled on and off by (ENABLEWHEELSCROLL ON) (initially (ENABLEWHEELSCROLL T)) -The scrolling speed is controlled by the variable +The vertical scrolling speed is controlled by the variable WHEELSCROLLDELTA (initially 20) The number of points to scroll for each click of the wheel. Higher values give faster scrolling. A negative value reverses the scrolling direction.