github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

TEDIT-FNKEYS makes sure that the new caret-point after onechar forward/backward is always LEFT (#1988)

Browse Source 
Make sure that the new caret-point is always LEFT

I hope this fixes it
This commit is contained in:
rmkaplan 2025-01-27 11:51:05 -08:00 committed by GitHub
parent 188895c7e9
commit 4873590e22
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 30 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
library/tedit/TEDIT-FNKEYS
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "18-Jan-2025 23:38:11" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;108 39841
(FILECREATED "24-Jan-2025 15:31:33" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;109 40128
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.CALL.ED \TEDIT.MANPAGE)
:CHANGES-TO (FNS \TEDIT.ONECHAR.BACKWARD \TEDIT.ONECHAR.FORWARD)
:PREVIOUS-DATE "29-Dec-2024 08:47:57" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;102)
:PREVIOUS-DATE "18-Jan-2025 23:38:11" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;108)
(PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
@ -474,7 +474,8 @@
T T])
(\TEDIT.ONECHAR.BACKWARD
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 21-Nov-2024 20:31 by rmk")
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 24-Jan-2025 15:25 by rmk")
(* ; "Edited 21-Nov-2024 20:31 by rmk")
(* ; "Edited 1-Sep-2024 10:39 by rmk")
(TEXTOBJ! TEXTOBJ)
(SELECTION! SEL)
@ -482,12 +483,14 @@
(CL:UNLESS (ILEQ PT 1)
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
(\TEDIT.UPDATE.SEL SEL (SUB1 PT)
0)
0
'LEFT)
(\TEDIT.FIXSEL SEL TEXTOBJ)
(\TEDIT.SHOWSEL SEL T TEXTOBJ))])
(\TEDIT.ONECHAR.FORWARD
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 21-Nov-2024 20:31 by rmk")
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 24-Jan-2025 15:27 by rmk")
(* ; "Edited 21-Nov-2024 20:31 by rmk")
(* ; "Edited 1-Sep-2024 10:39 by rmk")
(* ;; "Moves caret to a point one character forward.")
@ -497,7 +500,8 @@
(CL:UNLESS (IGEQ PT (TEXTLEN TEXTOBJ))
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
(\TEDIT.UPDATE.SEL SEL (ADD1 PT)
0)
0
'LEFT)
(\TEDIT.FIXSEL SEL TEXTOBJ)
(\TEDIT.SHOWSEL SEL T TEXTOBJ))])
)
@ -726,23 +730,23 @@
(TEDIT.SETSYNTAX (CAR ENTRY)
(CADR ENTRY]
(DECLARE%: DONTCOPY
(FILEMAP (NIL (6234 29697 (\TEDIT.BOLD.SEL.OFF 6244 . 6582) (\TEDIT.BOLD.SEL.ON 6584 . 6912) (
\TEDIT.CENTER.SEL 6914 . 8430) (\TEDIT.CENTER.SEL.REV 8432 . 8728) (\TEDIT.DEFAULTS.CARET 8730 . 9223)
(\TEDIT.DEFAULTSSEL 9225 . 9672) (\TEDIT.SETDEFAULT.FROM.SEL 9674 . 10351) (\TEDIT.KEY.FIND 10353 .
15420) (\TEDIT.KEY.FIND.SEARCHSTRING 15422 . 16562) (\TEDIT.GET.TARGET.STRING 16564 . 18278) (
\TEDIT.KEY.FIND.BACKWARD 18280 . 18585) (\TEDIT.FINDAGAIN.BACKWARD 18587 . 18998) (\TEDIT.FINDAGAIN
19000 . 19291) (\TEDIT.ITALIC.SEL.OFF 19293 . 19545) (\TEDIT.ITALIC.SEL.ON 19547 . 19740) (
\TEDIT.LARGERSEL 19742 . 20030) (\TEDIT.LCASE.SEL 20032 . 21427) (\TEDIT.SHOWCARETLOOKS 21429 . 23029)
(\TEDIT.SMALLERSEL 23031 . 23322) (\TEDIT.SUBSCRIPTSEL 23324 . 23527) (\TEDIT.SUPERSCRIPTSEL 23529 .
23733) (\TEDIT.UCASE.SEL 23735 . 25074) (\TEDIT.UNDERLINE.SEL.OFF 25076 . 25274) (
\TEDIT.UNDERLINE.SEL.ON 25276 . 25472) (\TEDIT.STRIKEOUT.SEL.ON 25474 . 25670) (
\TEDIT.STRIKEOUT.SEL.OFF 25672 . 25870) (\TEDIT.SELECT.ALL 25872 . 26188) (\TEDIT.KEY.SUBSTITUTE 26190
. 26411) (\TEDIT.MANPAGE 26413 . 27660) (\TEDIT.CALL.ED 27662 . 28492) (\TEDIT.ONECHAR.BACKWARD 28494
. 29064) (\TEDIT.ONECHAR.FORWARD 29066 . 29695)) (29769 36280 (\TEDIT.BOLD.CARET.OFF 29779 . 30314) (
\TEDIT.BOLD.CARET.ON 30316 . 30848) (\TEDIT.ITALIC.CARET.OFF 30850 . 31387) (\TEDIT.ITALIC.CARET.ON
31389 . 31932) (\TEDIT.LARGER.CARET 31934 . 32469) (\TEDIT.SMALLER.CARET 32471 . 33008) (
\TEDIT.SUBSCRIPT.CARET 33010 . 33551) (\TEDIT.SUPERSCRIPT.CARET 33553 . 34095) (
\TEDIT.UNDERLINE.CARET.OFF 34097 . 34637) (\TEDIT.UNDERLINE.CARET.ON 34639 . 35177) (
\TEDIT.STRIKEOUT.CARET.OFF 35179 . 35719) (\TEDIT.STRIKEOUT.CARET.ON 35721 . 36278)) (36349 37051 (
\TK.DESCRIBEFONT 36359 . 37049)))))
(FILEMAP (NIL (6251 29984 (\TEDIT.BOLD.SEL.OFF 6261 . 6599) (\TEDIT.BOLD.SEL.ON 6601 . 6929) (
\TEDIT.CENTER.SEL 6931 . 8447) (\TEDIT.CENTER.SEL.REV 8449 . 8745) (\TEDIT.DEFAULTS.CARET 8747 . 9240)
(\TEDIT.DEFAULTSSEL 9242 . 9689) (\TEDIT.SETDEFAULT.FROM.SEL 9691 . 10368) (\TEDIT.KEY.FIND 10370 .
15437) (\TEDIT.KEY.FIND.SEARCHSTRING 15439 . 16579) (\TEDIT.GET.TARGET.STRING 16581 . 18295) (
\TEDIT.KEY.FIND.BACKWARD 18297 . 18602) (\TEDIT.FINDAGAIN.BACKWARD 18604 . 19015) (\TEDIT.FINDAGAIN
19017 . 19308) (\TEDIT.ITALIC.SEL.OFF 19310 . 19562) (\TEDIT.ITALIC.SEL.ON 19564 . 19757) (
\TEDIT.LARGERSEL 19759 . 20047) (\TEDIT.LCASE.SEL 20049 . 21444) (\TEDIT.SHOWCARETLOOKS 21446 . 23046)
(\TEDIT.SMALLERSEL 23048 . 23339) (\TEDIT.SUBSCRIPTSEL 23341 . 23544) (\TEDIT.SUPERSCRIPTSEL 23546 .
23750) (\TEDIT.UCASE.SEL 23752 . 25091) (\TEDIT.UNDERLINE.SEL.OFF 25093 . 25291) (
\TEDIT.UNDERLINE.SEL.ON 25293 . 25489) (\TEDIT.STRIKEOUT.SEL.ON 25491 . 25687) (
\TEDIT.STRIKEOUT.SEL.OFF 25689 . 25887) (\TEDIT.SELECT.ALL 25889 . 26205) (\TEDIT.KEY.SUBSTITUTE 26207
. 26428) (\TEDIT.MANPAGE 26430 . 27677) (\TEDIT.CALL.ED 27679 . 28509) (\TEDIT.ONECHAR.BACKWARD 28511
. 29216) (\TEDIT.ONECHAR.FORWARD 29218 . 29982)) (30056 36567 (\TEDIT.BOLD.CARET.OFF 30066 . 30601) (
\TEDIT.BOLD.CARET.ON 30603 . 31135) (\TEDIT.ITALIC.CARET.OFF 31137 . 31674) (\TEDIT.ITALIC.CARET.ON
31676 . 32219) (\TEDIT.LARGER.CARET 32221 . 32756) (\TEDIT.SMALLER.CARET 32758 . 33295) (
\TEDIT.SUBSCRIPT.CARET 33297 . 33838) (\TEDIT.SUPERSCRIPT.CARET 33840 . 34382) (
\TEDIT.UNDERLINE.CARET.OFF 34384 . 34924) (\TEDIT.UNDERLINE.CARET.ON 34926 . 35464) (
\TEDIT.STRIKEOUT.CARET.OFF 35466 . 36006) (\TEDIT.STRIKEOUT.CARET.ON 36008 . 36565)) (36636 37338 (
\TK.DESCRIBEFONT 36646 . 37336)))))
STOP

BIN
library/tedit/TEDIT-FNKEYS.LCOM
View File

Binary file not shown.