github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-01 22:16:57 +00:00
Code Issues Projects Releases Wiki Activity

Tedit PLOOKS cleanup plus default paralooks (#2259)

Browse Source
This commit is contained in:
rmkaplan
2025-08-16 13:45:28 -07:00
committed by GitHub
parent 8fa61304a3
commit 74f518ca02
32 changed files with 752 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

253
library/tedit/TEDIT-OLDFILE
View File

@@ -1,13 +1,15 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "19-Feb-2025 12:09:40" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;33 72260
(FILECREATED " 1-Aug-2025 14:58:21" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-OLDFILE.;38 73837
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.PUT.SINGLE.PARALOOKS2 \TEDIT.GET.SINGLE.PARALOOKS2
\TEDIT.GET.PARALOOKS1 \TEDIT.GET.PARALOOKS0)
:CHANGES-TO (FNS \TEDIT.GET.CHARLOOKS2 \TEDIT.GET.PCTB1 \TEDIT.GET.PCTB2
\TEDIT.GET.SINGLE.CHARLOOKS2 \TEDIT.GET.CHARLOOKS0 \TEDIT.GET.CHARLOOKS1)
:PREVIOUS-DATE " 8-Feb-2025 22:08:39" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;31)
:PREVIOUS-DATE "28-Jul-2025 23:43:57"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-OLDFILE.;34)
(PRETTYCOMPRINT TEDIT-OLDFILECOMS)
@@ -47,7 +49,9 @@
(DEFINEQ
(\TEDIT.GET.PCTB2
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 8-Feb-2025 20:21 by rmk")
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 1-Aug-2025 14:55 by rmk")
(* ; "Edited 28-Jul-2025 23:39 by rmk")
(* ; "Edited 8-Feb-2025 20:21 by rmk")
(* ; "Edited 21-Oct-2024 00:33 by rmk")
(* ; "Edited 29-Apr-2024 10:28 by rmk")
(* ; "Edited 20-Mar-2024 11:00 by rmk")
@@ -69,7 +73,7 @@
(* ;; "END = use this as eofptr of file. For use in reading files within files.")
(LET ((TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
(LET ((TEXTOBJ (FTEXTOBJ (TSTREAM)))
PIECEINFOCH#
(CURFILECH# (OR START 0))
LOOKSHASH PARAHASH)
@@ -174,18 +178,18 @@
PBYTESPERCHAR _ PCLEN))
(\TEDIT.GET.OBJECT TSTREAM PC TEXT CURFILECH# PCLEN)
(add CURFILECH# PCLEN)
(FSETPC PC PLOOKS (if (ZEROP (BIN TEXT))
then
(* ;;
 "No new looks; steal them from the prior piece.")
(FSETPC PC PCHARLOOKS (if (ZEROP (BIN TEXT))
then
(* ;;
 "No new looks; steal them from the prior piece.")
(OR (AND OLDPC (PLOOKS OLDPC))
DEFAULTCHARLOOKS)
else
(* ;;
(OR (AND OLDPC (PCHARLOOKS OLDPC))
(FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS))
else
(* ;;
 "There are new character looks for this object. Read them in.")
(\TEDIT.GET.SINGLE.CHARLOOKS2 TEXT))))
(\TEDIT.GET.SINGLE.CHARLOOKS2 TEXT))))
(\TEDIT.THELP "Impossible piece-type code in BUILD.PCTB"))
(CL:WHEN PC (* ;
 "If we created a piece, save it in the table.")
@@ -207,19 +211,21 @@
(T (ELT PARAHASH LOOKS#])
(\TEDIT.GET.CHARLOOKS2
[LAMBDA (PC FILE LOOKSARRAY) (* ; "Edited 13-Jan-2024 00:01 by rmk")
[LAMBDA (PC FILE LOOKSARRAY) (* ; "Edited 1-Aug-2025 14:57 by rmk")
(* ; "Edited 28-Jul-2025 23:41 by rmk")
(* ; "Edited 13-Jan-2024 00:01 by rmk")
(* ; "Edited 19-Dec-2023 10:13 by rmk")
(* ; "Edited 3-Sep-2023 23:31 by rmk")
(* ; "Edited 28-Aug-2023 22:19 by rmk")
(* ; "Edited 26-Aug-2023 23:22 by rmk")
(* ; "Edited 30-May-91 21:43 by jds")
(* ;; "Set the PLOOKS for the current piece, PC, according to what the file says")
(* ;; "Set the PCHARLOOKS for the current piece, PC, according to what the file says")
(* ;; "We also ")
(LET ((FLAGS (BIN FILE)))
(FSETPC PC PLOOKS (ELT LOOKSARRAY (\WIN FILE)))
(FSETPC PC PCHARLOOKS (ELT LOOKSARRAY (\WIN FILE)))
(CL:UNLESS (ZEROP (LOGAND FLAGS 1))
(FSETPC PC PNEW T))
(CL:UNLESS (ZEROP (LOGAND FLAGS 2)) (* ;
@@ -277,7 +283,8 @@
(for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS2 FILE])
(\TEDIT.GET.SINGLE.CHARLOOKS2
[LAMBDA (FILE) (* ; "Edited 7-Jan-2025 12:29 by rmk")
[LAMBDA (FILE) (* ; "Edited 1-Aug-2025 12:13 by rmk")
(* ; "Edited 7-Jan-2025 12:29 by rmk")
(* ; "Edited 2-Jan-2025 11:09 by rmk")
(* ; "Edited 31-Jul-2024 00:05 by rmk")
(* ; "Edited 16-Jan-2024 22:53 by rmk")
@@ -287,26 +294,26 @@
(* ; "Edited 30-May-91 20:26 by jds")
(* ; "Read a set of CHARLOOKS from FILE")
(PROG* ((LOOKS (create CHARLOOKS))
FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR BOLD ITALIC)
FONT STR NAME NAMELEN SIZE SUPER SUB BITS STYLESTR USERSTR BOLD ITALIC)
(SETQ NAME (\ARBIN FILE)) (* ; "The font name")
(SETQ SIZE (\WIN FILE)) (* ; "Size of the type, in points")
(SETQ SUPER (\SMALLPIN FILE)) (* ; "Superscripting distance")
(FSETCLOOKS LOOKS CLSTYLE (OR (\ARBIN FILE)
0))
(FSETCLOOKS LOOKS CLUSERINFO (\ARBIN FILE))
(SETQ PROPS (\WIN FILE))
[SETQ BOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 PROPS]
(with CHARLOOKS LOOKS [SETQ CLLEADER (NOT (ZEROP (LOGAND 2048 PROPS]
[SETQ CLINVERTED (NOT (ZEROP (LOGAND 1024 PROPS]
[SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 PROPS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 PROPS]
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 PROPS]
[SETQ CLPROTECTED (NOT (ZEROP (LOGAND 8 PROPS]
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 PROPS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 PROPS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
(SETQ BITS (\WIN FILE))
[SETQ BOLD (NOT (ZEROP (LOGAND 512 BITS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 BITS]
(with CHARLOOKS LOOKS [SETQ CLLEADER (NOT (ZEROP (LOGAND 2048 BITS]
[SETQ CLINVERTED (NOT (ZEROP (LOGAND 1024 BITS]
[SETQ CLULINE (NOT (ZEROP (LOGAND 128 BITS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 BITS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 BITS]
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 BITS]
[SETQ CLPROTECTED (NOT (ZEROP (LOGAND 8 BITS]
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 BITS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 BITS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 BITS]
(SETQ CLOFFSET SUPER))
[SETQ FONT (COND
((LISTP NAME) (* ;
@@ -575,7 +582,9 @@
(DEFINEQ
(\TEDIT.GET.PCTB1
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 8-Feb-2025 20:22 by rmk")
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 1-Aug-2025 14:56 by rmk")
(* ; "Edited 28-Jul-2025 23:39 by rmk")
(* ; "Edited 8-Feb-2025 20:22 by rmk")
(* ; "Edited 21-Oct-2024 00:33 by rmk")
(* ; "Edited 29-Apr-2024 10:28 by rmk")
(* ; "Edited 20-Mar-2024 11:00 by rmk")
@@ -597,9 +606,9 @@
(* ;; "END = use this as eofptr of file. For use in reading files within files.")
(LET ((TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
PIECEINFOCH#
(CURFILECH# (OR START 0)))
(LET ((TEXTOBJ (FTEXTOBJ TSTREAM))
(CURFILECH# (OR START 0))
PIECEINFOCH#)
(SETFILEPTR TEXT (IDIFFERENCE (OR END (GETEOFPTR TEXT))
8))
(SETQ PIECEINFOCH# (\DWIN TEXT))
@@ -665,8 +674,8 @@
(\TEDIT.GET.CHARLOOKS1 PC TEXT))
(T (* ;
 "No new looks; steal them from the prior piece.")
(FSETPC PC PLOOKS (OR (AND OLDPC (PLOOKS OLDPC))
DEFAULTCHARLOOKS])
(FSETPC PC PCHARLOOKS (OR (AND OLDPC (PCHARLOOKS OLDPC))
(FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS])
(\TEDIT.THELP "Impossible piece-type code"))
(CL:WHEN PC
(\TEDIT.INSERTPIECE PC NIL TEXTOBJ)
@@ -721,7 +730,9 @@
(\TEDIT.PARSE.PAGEFRAMES1 (pop PAGELIST])
(\TEDIT.GET.CHARLOOKS1
[LAMBDA (PC FILE) (* ; "Edited 2-Jan-2025 11:09 by rmk")
[LAMBDA (PC FILE) (* ; "Edited 1-Aug-2025 12:18 by rmk")
(* ; "Edited 28-Jul-2025 23:40 by rmk")
(* ; "Edited 2-Jan-2025 11:09 by rmk")
(* ; "Edited 31-Jul-2024 00:05 by rmk")
(* ; "Edited 16-Jan-2024 22:55 by rmk")
(* ; "Edited 19-Dec-2023 10:13 by rmk")
@@ -733,10 +744,9 @@
(* ;; "Read a description of PC's CHARLOOKS from FILE. The looks are here stored in PC, not in the TEXTOBJ (uniquify later?)")
(LET (FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR BOLD ITALIC (LOOKS (create
CHARLOOKS))
)
(FSETPC PC PLOOKS LOOKS)
(LET (FONT STR NAME NAMELEN SIZE SUPER SUB BITS STYLESTR USERSTR BOLD ITALIC (LOOKS (create
CHARLOOKS)))
(FSETPC PC PCHARLOOKS LOOKS)
(SETQ NAME (\ARBIN FILE)) (* ; "The font name")
(SETQ SIZE (\WIN FILE)) (* ; "Size of the type, in points")
(SETQ SUPER (\SMALLPIN FILE)) (* ; "Superscripting distance")
@@ -753,31 +763,31 @@
(FSETCLOOKS LOOKS CLSTYLE (OR (\ARBIN FILE)
0))
(FSETCLOOKS LOOKS CLUSERINFO (\ARBIN FILE)))
(SETQ PROPS (\WIN FILE))
[SETQ BOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 PROPS]
(with CHARLOOKS LOOKS [SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 PROPS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 PROPS]
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 PROPS]
[SETQ CLPROTECTED (NOT (ZEROP (LOGAND 8 PROPS]
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 PROPS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 PROPS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
(SETQ BITS (\WIN FILE))
[SETQ BOLD (NOT (ZEROP (LOGAND 512 BITS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 BITS]
(with CHARLOOKS LOOKS [SETQ CLULINE (NOT (ZEROP (LOGAND 128 BITS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 BITS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 BITS]
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 BITS]
[SETQ CLPROTECTED (NOT (ZEROP (LOGAND 8 BITS]
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 BITS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 BITS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 BITS]
(SETQ CLOFFSET SUPER))
[SETQ FONT (COND
((LISTP NAME) (* ;
(SETQ FONT (if (LISTP NAME)
then (* ;
 "This was a font class. Restore it.")
(FONTCLASS (CONS 0 (CDDR NAME))
'TEDIT-FONTCLASS))
[(AND NAME (NOT (ZEROP SIZE)))
(FONTCREATE NAME SIZE (COND
((AND BOLD ITALIC)
'BOLDITALIC)
(BOLD 'BOLD)
(ITALIC 'ITALIC]
(T (* ; "Should never happen")
(FONTCREATE DEFAULTFONT]
(FONTCLASS (CONS 0 (CDDR NAME))
'TEDIT-FONTCLASS)
elseif (AND NAME (NOT (ZEROP SIZE)))
then [FONTCREATE NAME SIZE (COND
((AND BOLD ITALIC)
'BOLDITALIC)
(BOLD 'BOLD)
(ITALIC 'ITALIC]
else (* ; "Should never happen")
(FONTCREATE DEFAULTFONT)))
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
(FSETCLOOKS LOOKS CLFONT FONT])
@@ -846,7 +856,8 @@
PARALOOKS])
(TEDIT.GET.OBJECT1
[LAMBDA (STREAM PIECE FILE CURCH#) (* ; "Edited 31-Jul-2024 12:09 by rmk")
[LAMBDA (STREAM PIECE FILE CURCH#) (* ; "Edited 28-Jul-2025 23:41 by rmk")
(* ; "Edited 31-Jul-2024 12:09 by rmk")
(* ; "Edited 27-Oct-2023 12:58 by rmk")
(* ; "Edited 6-Aug-2022 09:11 by rmk")
(* ; "Edited 12-Jun-90 18:17 by mitani")
@@ -866,12 +877,12 @@
(SETFILEPTR FILE FILEPTRSAVE)
(FSETPC PIECE PCONTENTS OBJ)
(FSETPC PIECE PTYPE OBJECT.PTYPE)
(FSETPC PIECE PLOOKS (if (PREVPIECE PIECE)
then (PLOOKS (PREVPIECE PIECE))
elseif (FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS)
else (\TEDIT.UNIQUIFY.CHARLOOKS (\TEDIT.CHARLOOKS.FROM.FONT
DEFAULTFONT)
TEXTOBJ)))
(FSETPC PIECE PCHARLOOKS (if (PREVPIECE PIECE)
then (PCHARLOOKS (PREVPIECE PIECE))
elseif (FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS)
else (\TEDIT.UNIQUIFY.CHARLOOKS (\TEDIT.CHARLOOKS.FROM.FONT
DEFAULTFONT)
TEXTOBJ)))
(PCONTENTS PIECE])
)
@@ -945,7 +956,9 @@
(\TEDIT.INSERTPIECE PC NIL TEXTOBJ) finally (\TEDIT.UNIQUIFY.ALL TEXTOBJ])
(\TEDIT.GET.CHARLOOKS0
[LAMBDA (PC FILE) (* ; "Edited 2-Jan-2025 11:09 by rmk")
[LAMBDA (PC FILE) (* ; "Edited 1-Aug-2025 12:17 by rmk")
(* ; "Edited 28-Jul-2025 23:39 by rmk")
(* ; "Edited 2-Jan-2025 11:09 by rmk")
(* ; "Edited 31-Jul-2024 00:05 by rmk")
(* ; "Edited 16-Jan-2024 23:03 by rmk")
(* ; "Edited 19-Dec-2023 10:13 by rmk")
@@ -953,9 +966,10 @@
(* ; "Edited 30-May-91 20:26 by jds")
(* ;
 "Put a description of LOOKS into FILE. LOOKS apply to characters CH1 thru CHLIM-1")
(PROG (FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR BOLD ITALIC
(LOOKS (create CHARLOOKS)))
(SETPC PC PLOOKS LOOKS)
(PROG (FONT STR NAME NAMELEN SIZE SUPER SUB BITS STYLESTR USERSTR BOLD ITALIC (LOOKS (create
CHARLOOKS))
)
(SETPC PC PCHARLOOKS LOOKS)
(SETQ NAMELEN (\WIN FILE)) (* ;
 "The length of the description which follows")
[SETQ NAME (PACK (for I from 1 to NAMELEN collect (CHARACTER (BIN FILE]
@@ -968,32 +982,29 @@
(* ;; "If this is an old file, it'll have a subscript value not zero. Let those past and do the right thing.")
(COND
((NOT (ZEROP (BIN FILE))) (* ; "This text is NEW. Mark it so.")
(FSETPC PC PNEW T)))
[COND
((NOT (ZEROP (BIN FILE))) (* ;
(CL:UNLESS (ZEROP (BIN FILE)) (* ; "This text is NEW. Mark it so.")
(FSETPC PC PNEW T))
(CL:UNLESS (ZEROP (BIN FILE)) (* ;
 "There is style or user information to be read")
(SETQ STYLESTR (\STRINGIN FILE))
(SETQ USERSTR (\STRINGIN FILE))
(COND
((NOT (ZEROP (NCHARS STYLESTR))) (* ; "There IS style info")
(FSETCLOOKS LOOKS CLSTYLE (READ STYLESTR)))
(T (FSETCLOOKS LOOKS CLSTYLE 0)))
(COND
((NOT (ZEROP (NCHARS USERSTR))) (* ; "There IS user info")
(FSETCLOOKS LOOKS CLUSERINFO (READ USERSTR]
(SETQ PROPS (\WIN FILE))
[SETQ BOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 PROPS]
(with CHARLOOKS LOOKS [SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 PROPS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 PROPS]
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 PROPS]
[SETQ CLPROTECTED (NOT (ZEROP (LOGAND 8 PROPS]
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 PROPS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 PROPS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
(if (ZEROP (NCHARS STYLESTR))
then (FSETCLOOKS LOOKS CLSTYLE 0)
else (* ; "There IS style info")
(FSETCLOOKS LOOKS CLSTYLE (READ STYLESTR)))
(CL:UNLESS (ZEROP (NCHARS USERSTR)) (* ; "There IS user info")
(FSETCLOOKS LOOKS CLUSERINFO (READ USERSTR))))
(SETQ BITS (\WIN FILE))
[SETQ BOLD (NOT (ZEROP (LOGAND 512 BITS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 BITS]
(with CHARLOOKS LOOKS [SETQ CLULINE (NOT (ZEROP (LOGAND 128 BITS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 BITS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 BITS]
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 BITS]
[SETQ CLPROTECTED (NOT (ZEROP (LOGAND 8 BITS]
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 BITS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 BITS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 BITS]
(SETQ CLOFFSET SUPER))
(SETQ FONT (if (AND NAME (NOT (ZEROP SIZE)))
then [FONTCREATE NAME SIZE (COND
@@ -1008,7 +1019,8 @@
(RETURN LOOKS])
(\TEDIT.GET.OBJECT0
[LAMBDA (STREAM PIECE FILE CURCH#) (* ; "Edited 31-Jul-2024 12:09 by rmk")
[LAMBDA (STREAM PIECE FILE CURCH#) (* ; "Edited 28-Jul-2025 23:42 by rmk")
(* ; "Edited 31-Jul-2024 12:09 by rmk")
(* ; "Edited 6-Aug-2022 15:57 by rmk")
(* ; "Edited 12-Jun-90 18:17 by mitani")
@@ -1026,16 +1038,15 @@
(SETQ OBJ (READIMAGEOBJ FILE GETFN))
(SETFILEPTR FILE FILEPTRSAVE)
(replace (PIECE PCONTENTS) of PIECE with OBJ)
[replace (PIECE PLOOKS) of PIECE with (COND
((fetch (PIECE PREVPIECE) of PIECE)
(fetch (PIECE PLOOKS) of (fetch (PIECE PREVPIECE)
of PIECE)))
(T (OR (fetch (TEXTOBJ DEFAULTCHARLOOKS)
of TEXTOBJ)
(\TEDIT.UNIQUIFY.CHARLOOKS (
[replace (PIECE PCHARLOOKS) of PIECE with (COND
((fetch (PIECE PREVPIECE) of PIECE)
(PCHARLOOKS (PREVPIECE PIECE)))
(T (OR (fetch (TEXTOBJ DEFAULTCHARLOOKS)
of TEXTOBJ)
(\TEDIT.UNIQUIFY.CHARLOOKS (
\TEDIT.CHARLOOKS.FROM.FONT
DEFAULTFONT)
TEXTOBJ]
DEFAULTFONT)
TEXTOBJ]
OBJ])
(\TEDIT.GET.PARALOOKS0
@@ -1091,14 +1102,14 @@
PARALOOKS])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1758 37224 (\TEDIT.GET.PCTB2 1768 . 12181) (\TEDIT.GET.PARALOOKS2 12183 . 12772) (
\TEDIT.GET.CHARLOOKS2 12774 . 14105) (\TEDIT.PARSE.PAGEFRAMES2 14107 . 16846) (
\TEDIT.GET.CHARLOOKS.LIST2 16848 . 17355) (\TEDIT.GET.SINGLE.CHARLOOKS2 17357 . 20568) (
\TEDIT.PUT.SINGLE.PARALOOKS2 20570 . 24820) (\TEDIT.PUT.SINGLE.CHARLOOKS2 24822 . 28532) (
\TEDIT.GET.PARALOOKS.LIST2 28534 . 29041) (\TEDIT.GET.SINGLE.PARALOOKS2 29043 . 33942) (
\TEDIT.PUT.CHARLOOKS.LIST2 33944 . 36023) (\TEDIT.PUT.PARALOOKS.LIST2 36025 . 37222)) (37301 57923 (
\TEDIT.GET.PCTB1 37311 . 44120) (\TEDIT.GET.PAGEFRAMES1 44122 . 44574) (\TEDIT.PARSE.PAGEFRAMES1 44576
. 47229) (\TEDIT.GET.CHARLOOKS1 47231 . 51276) (\TEDIT.GET.PARALOOKS1 51278 . 56189) (
TEDIT.GET.OBJECT1 56191 . 57921)) (57983 72237 (\TEDIT.GET.PCTB0 57993 . 62074) (\TEDIT.GET.CHARLOOKS0
62076 . 66171) (\TEDIT.GET.OBJECT0 66173 . 68232) (\TEDIT.GET.PARALOOKS0 68234 . 72235)))))
(FILEMAP (NIL (1867 37890 (\TEDIT.GET.PCTB2 1877 . 12526) (\TEDIT.GET.PARALOOKS2 12528 . 13117) (
\TEDIT.GET.CHARLOOKS2 13119 . 14676) (\TEDIT.PARSE.PAGEFRAMES2 14678 . 17417) (
\TEDIT.GET.CHARLOOKS.LIST2 17419 . 17926) (\TEDIT.GET.SINGLE.CHARLOOKS2 17928 . 21234) (
\TEDIT.PUT.SINGLE.PARALOOKS2 21236 . 25486) (\TEDIT.PUT.SINGLE.CHARLOOKS2 25488 . 29198) (
\TEDIT.GET.PARALOOKS.LIST2 29200 . 29707) (\TEDIT.GET.SINGLE.PARALOOKS2 29709 . 34608) (
\TEDIT.PUT.CHARLOOKS.LIST2 34610 . 36689) (\TEDIT.PUT.PARALOOKS.LIST2 36691 . 37888)) (37967 59193 (
\TEDIT.GET.PCTB1 37977 . 44994) (\TEDIT.GET.PAGEFRAMES1 44996 . 45448) (\TEDIT.PARSE.PAGEFRAMES1 45450
. 48103) (\TEDIT.GET.CHARLOOKS1 48105 . 52416) (\TEDIT.GET.PARALOOKS1 52418 . 57329) (
TEDIT.GET.OBJECT1 57331 . 59191)) (59253 73814 (\TEDIT.GET.PCTB0 59263 . 63344) (\TEDIT.GET.CHARLOOKS0
63346 . 67732) (\TEDIT.GET.OBJECT0 67734 . 69809) (\TEDIT.GET.PARALOOKS0 69811 . 73812)))))
STOP