Skip to content

Fix Tedit tabs, marginbar, object selection, bravo page numbers #2678

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
rmkaplan wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Fix Tedit tabs, marginbar, object selection, bravo page numbers #2678

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
f8b0b71
Fix Tedit tabs, marginbar, object selection, bravo page numbers
rmkaplan Jun 29, 2026
4740b8f
Remove a bogus comment
rmkaplan Jun 29, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
75 changes: 33 additions & 42 deletions library/tedit/TEDIT
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

(FILECREATED "20-May-2026 08:33:13" {MEDLEY}<library>tedit>TEDIT.;859 147584
(FILECREATED "20-Jun-2026 14:17:35" {MEDLEY}<library>tedit>TEDIT.;861 146653

:EDIT-BY rmk

:CHANGES-TO (FNS \TEDIT.MOVE \TEDIT.COPY \TEDIT.INSERT)
:CHANGES-TO (FNS \TEDIT.COPY)

:PREVIOUS-DATE "18-May-2026 23:06:33" {MEDLEY}<library>tedit>TEDIT.;857)
:PREVIOUS-DATE "14-Jun-2026 12:36:49" {MEDLEY}<library>tedit>TEDIT.;860)


(PRETTYCOMPRINT TEDITCOMS)
Expand Down Expand Up @@ -1469,36 +1469,28 @@
(CL:IF BPD (\TEDIT.POPEVENT TOOBJ])])

(\TEDIT.COPY
[LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 20-May-2026 08:31 by rmk")
[LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 20-Jun-2026 14:17 by rmk")
(* ; "Edited 20-May-2026 08:31 by rmk")
(* ; "Edited 18-May-2026 22:35 by rmk")
(* ; "Edited 31-Jan-2026 11:48 by rmk")
(* ; "Edited 7-May-2025 00:12 by rmk")
(* ; "Edited 22-Apr-2025 09:12 by rmk")
(* ; "Edited 6-Apr-2025 14:16 by rmk")
(* ; "Edited 5-Apr-2025 13:19 by rmk")
(* ; "Edited 18-Mar-2025 23:13 by rmk")
(* ; "Edited 23-Nov-2024 22:45 by rmk")
(* ; "Edited 22-Nov-2024 15:44 by rmk")
(* ; "Edited 13-Sep-2024 22:28 by rmk")
(* ; "Edited 27-Aug-2024 13:37 by rmk")
(* ; "Edited 24-Aug-2024 00:17 by rmk")
(* ; "Edited 7-Jul-2024 22:04 by rmk")
(* ; "Edited 2-Jul-2024 10:40 by rmk")
(* ; "Edited 18-May-2024 16:21 by rmk")
(* ; "Edited 12-May-2024 20:54 by rmk")
(* ; "Edited 22-Apr-2024 23:55 by rmk")
(* ; "Edited 29-Apr-2024 12:54 by rmk")
(* ; "Edited 15-Mar-2024 13:54 by rmk")
(* ; "Edited 20-Feb-2024 17:03 by rmk")
(* ; "Edited 1-Feb-2024 20:37 by rmk")
(* ; "Edited 20-May-2023 18:47 by rmk")
(* ; "Edited 15-May-2023 22:11 by rmk")
(* ; "Edited 4-Jun-92 11:11 by jds")

(* ;; "Copy the FROM-selected pieces into the destination object and position as indicated by the TO selection. These may be internal or external, but either way the strams are passed separately.")

(* ;;
 "This results in a single history event, either :Insert or :Replace depending on bluependingdelete.")
 "This results in a single history event, either :Insert or :Replace depending on PENDINGDEL.")

(CL:UNLESS (ZEROP (GETSEL FROMSEL DCH))
(PROG* ((FROMOBJ (GETTSTR FROMTSTREAM TEXTOBJ))
Expand Down Expand Up @@ -1526,8 +1518,7 @@

(* ;; "")

(* ;;
 "Install FROM pieces at TO, either replacing or inserting depending on its BLUEPENDINGDELETE")
(* ;; "Install FROM pieces at TO, either replacing or inserting depending on its operation")

(if (EQ 'PENDINGDEL (FGETSEL TOSEL SELOPERATION))
then (\TEDIT.REPLACE.SELPIECES FROMPIECES TOTSTREAM TOSEL)
Expand Down Expand Up @@ -1992,7 +1983,8 @@
(\TEDIT.DELETE TSTREAM FIRSTNO (ADD1 (IDIFFERENCE LASTNO FIRSTNO))))])

(\TEDIT.FINISHEDIT?
[LAMBDA (TSTREAM NOFORCE) (* ; "Edited 27-Apr-2025 23:53 by rmk")
[LAMBDA (TSTREAM NOFORCE) (* ; "Edited 14-Jun-2026 10:14 by rmk")
(* ; "Edited 27-Apr-2025 23:53 by rmk")
(* ; "Edited 19-Apr-2025 10:47 by rmk")
(* ; "Edited 14-Jul-2024 12:25 by rmk")
(* ; "Edited 1-Jul-2024 16:11 by rmk")
Expand Down Expand Up @@ -2034,8 +2026,7 @@
(EQ QUITFLG T)) do (SETQ QUITFLG (COND
((EQ QUITFN T))
(QUITFN (APPLY* QUITFN PRIMPANE TSTREAM
TEXTOBJ (FGETTOBJ TEXTOBJ
EDITPROPS]
TEXTOBJ]
(CL:WHEN (EQ QUITFLG 'DON'T)

(* ;; "The user supplied a QUITFN that returned DON'T. Editing continues.")
Expand Down Expand Up @@ -2354,27 +2345,27 @@

(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4763 7157 (MAKE-TEDIT-EXPORTS.ALL 4773 . 5319) (UPDATE-TEDIT 5321 . 6250) (EDIT-TEDIT
6252 . 7155)) (8512 37511 (TEDIT 8522 . 11136) (TEXTSTREAM 11138 . 13027) (TEXTSTREAMP 13029 . 13413)
(COERCETEXTSTREAM 13415 . 17626) (TEDIT.CONCAT 17628 . 20930) (TEDITSTRING 20932 . 21846) (TEDIT-SEE
21848 . 22532) (TEDIT.COPY 22534 . 24679) (TEDIT.DELETE 24681 . 26042) (TEDIT.INSERT 26044 . 29013) (
TEDIT.TERPRI 29015 . 30129) (TEDIT.KILL 30131 . 31113) (TEDIT.QUIT 31115 . 32481) (TEDIT.MOVE 32483 .
33371) (TEDIT.STRINGWIDTH 33373 . 34044) (TEDIT.CHARWIDTH 34046 . 36288) (TEDIT.PARAGRAPH.BOUNDARIES
36290 . 37509)) (37512 39453 (TEXTOBJ 37522 . 37987) (COERCETEXTOBJ 37989 . 39451)) (40853 42852 (
TDRIBBLE 40863 . 42850)) (42893 54990 (TEDIT.INSERT.OBJECT 42903 . 46727) (TEDIT.EDIT.OBJECT 46729 .
49669) (TEDIT.OBJECT.CHANGED 49671 . 52861) (TEDIT.MAP.OBJECTS 52863 . 54518) (\TEDIT.FIRST.OBJPIECE
54520 . 54753) (\TEDIT.NEXT.OBJPIECE 54755 . 54988)) (55013 62456 (\TEDIT.CONCAT.PAGEFRAMES 55023 .
60090) (\TEDIT.GET.PAGE.HEADINGS 60092 . 61121) (\TEDIT.CONCAT.INSTALL.HEADINGS 61123 . 62454)) (62457
66064 (\TEDIT.MOVE.MSG 62467 . 64548) (\TEDIT.READONLY 64550 . 66062)) (66065 71956 (TEDIT.NCHARS
66075 . 66448) (TEDIT.RPLCHARCODE 66450 . 69440) (TEDIT.NTHCHARCODE 69442 . 71485) (TEDIT.NTHCHAR
71487 . 71954)) (72002 129633 (\TEDIT1 72012 . 74089) (\TEDIT.INSERT 74091 . 80290) (\TEDIT.MOVE 80292
. 88606) (\TEDIT.COPY 88608 . 93383) (\TEDIT.REPLACE.SELPIECES 93385 . 97921) (
\TEDIT.INSERT.SELPIECES 97923 . 100920) (\TEDIT.RESTARTFN 100922 . 103427) (\TEDIT.CHARDELETE 103429
. 106474) (\TEDIT.COPYPIECE 106476 . 111638) (\TEDIT.APPLY.OBJFN 111640 . 114726) (\TEDIT.DELETE
114728 . 119096) (\TEDIT.DIFFUSE.PARALOOKS 119098 . 121369) (\TEDIT.WORDDELETE 121371 . 122986) (
\TEDIT.WORDDELETE.FORWARD 122988 . 124777) (\TEDIT.FINISHEDIT? 124779 . 129631)) (129634 130293 (
\TEDIT.THELP 129644 . 130291)) (130327 139458 (\TEDIT.PARAPIECES 130337 . 132311) (\TEDIT.PARACHNOS
132313 . 133205) (\TEDIT.PARA.FIRST 133207 . 136308) (\TEDIT.PARA.LAST 136310 . 139456)) (139459
146554 (\TEDIT.WORD.FIRST 139469 . 143473) (\TEDIT.WORD.LAST 143475 . 146552)) (146755 147032 (
TEDITSYSTEMDATE 146765 . 147030)) (147168 147375 (TEDIT.IMAGESOURCEP 147178 . 147373)))))
(FILEMAP (NIL (4737 7131 (MAKE-TEDIT-EXPORTS.ALL 4747 . 5293) (UPDATE-TEDIT 5295 . 6224) (EDIT-TEDIT
6226 . 7129)) (8486 37485 (TEDIT 8496 . 11110) (TEXTSTREAM 11112 . 13001) (TEXTSTREAMP 13003 . 13387)
(COERCETEXTSTREAM 13389 . 17600) (TEDIT.CONCAT 17602 . 20904) (TEDITSTRING 20906 . 21820) (TEDIT-SEE
21822 . 22506) (TEDIT.COPY 22508 . 24653) (TEDIT.DELETE 24655 . 26016) (TEDIT.INSERT 26018 . 28987) (
TEDIT.TERPRI 28989 . 30103) (TEDIT.KILL 30105 . 31087) (TEDIT.QUIT 31089 . 32455) (TEDIT.MOVE 32457 .
33345) (TEDIT.STRINGWIDTH 33347 . 34018) (TEDIT.CHARWIDTH 34020 . 36262) (TEDIT.PARAGRAPH.BOUNDARIES
36264 . 37483)) (37486 39427 (TEXTOBJ 37496 . 37961) (COERCETEXTOBJ 37963 . 39425)) (40827 42826 (
TDRIBBLE 40837 . 42824)) (42867 54964 (TEDIT.INSERT.OBJECT 42877 . 46701) (TEDIT.EDIT.OBJECT 46703 .
49643) (TEDIT.OBJECT.CHANGED 49645 . 52835) (TEDIT.MAP.OBJECTS 52837 . 54492) (\TEDIT.FIRST.OBJPIECE
54494 . 54727) (\TEDIT.NEXT.OBJPIECE 54729 . 54962)) (54987 62430 (\TEDIT.CONCAT.PAGEFRAMES 54997 .
60064) (\TEDIT.GET.PAGE.HEADINGS 60066 . 61095) (\TEDIT.CONCAT.INSTALL.HEADINGS 61097 . 62428)) (62431
66038 (\TEDIT.MOVE.MSG 62441 . 64522) (\TEDIT.READONLY 64524 . 66036)) (66039 71930 (TEDIT.NCHARS
66049 . 66422) (TEDIT.RPLCHARCODE 66424 . 69414) (TEDIT.NTHCHARCODE 69416 . 71459) (TEDIT.NTHCHAR
71461 . 71928)) (71976 128702 (\TEDIT1 71986 . 74063) (\TEDIT.INSERT 74065 . 80264) (\TEDIT.MOVE 80266
. 88580) (\TEDIT.COPY 88582 . 92461) (\TEDIT.REPLACE.SELPIECES 92463 . 96999) (
\TEDIT.INSERT.SELPIECES 97001 . 99998) (\TEDIT.RESTARTFN 100000 . 102505) (\TEDIT.CHARDELETE 102507 .
105552) (\TEDIT.COPYPIECE 105554 . 110716) (\TEDIT.APPLY.OBJFN 110718 . 113804) (\TEDIT.DELETE 113806
. 118174) (\TEDIT.DIFFUSE.PARALOOKS 118176 . 120447) (\TEDIT.WORDDELETE 120449 . 122064) (
\TEDIT.WORDDELETE.FORWARD 122066 . 123855) (\TEDIT.FINISHEDIT? 123857 . 128700)) (128703 129362 (
\TEDIT.THELP 128713 . 129360)) (129396 138527 (\TEDIT.PARAPIECES 129406 . 131380) (\TEDIT.PARACHNOS
131382 . 132274) (\TEDIT.PARA.FIRST 132276 . 135377) (\TEDIT.PARA.LAST 135379 . 138525)) (138528
145623 (\TEDIT.WORD.FIRST 138538 . 142542) (\TEDIT.WORD.LAST 142544 . 145621)) (145824 146101 (
TEDITSYSTEMDATE 145834 . 146099)) (146237 146444 (TEDIT.IMAGESOURCEP 146247 . 146442)))))
STOP
Loading