Remove the LEAVETTY from the PF-TEDIT Tedit window (#2260)
This commit is contained in:
rmkaplan
GitHub
parent
92a3cea0eb
commit
4fef217c45
@ -1,12 +1,14 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "14-Apr-2025 22:00:54" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;141 11757
|
||||
(FILECREATED "29-Jul-2025 22:01:56"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TEDIT-PF-SEE.;150 11962
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS PF-TEDIT PF-TEDIT-FROM-TEXT)
|
||||
:CHANGES-TO (FNS PF-TEDIT)
|
||||
|
||||
:PREVIOUS-DATE " 7-Apr-2025 23:03:54" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;140)
|
||||
:PREVIOUS-DATE "29-Jul-2025 18:07:48"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TEDIT-PF-SEE.;149)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-PF-SEECOMS)
|
||||
@ -27,7 +29,9 @@
|
||||
(DEFINEQ
|
||||
|
||||
(PF-TEDIT
|
||||
[LAMBDA (FN IFILES VERSION REPRINT) (* ; "Edited 14-Apr-2025 22:00 by rmk")
|
||||
[LAMBDA (FN IFILES VERSION REPRINT) (* ; "Edited 29-Jul-2025 22:01 by rmk")
|
||||
(* ; "Edited 29-Jun-2025 16:18 by rmk")
|
||||
(* ; "Edited 14-Apr-2025 22:00 by rmk")
|
||||
(* ; "Edited 26-Mar-2025 10:08 by rmk")
|
||||
(* ; "Edited 18-Feb-2025 23:39 by rmk")
|
||||
(* ; "Edited 6-Dec-2024 19:15 by rmk")
|
||||
@ -71,31 +75,31 @@
|
||||
(CL:UNLESS IFILES
|
||||
(SETQ IFILES (WHEREIS FN '(FNS FUNCTIONS)
|
||||
T)))
|
||||
(IF IFILES
|
||||
THEN (* ; "skip compiled files")
|
||||
(if IFILES
|
||||
then (* ; "skip compiled files")
|
||||
|
||||
(* ;; "Since we are creating readonly Tedits, try to keep the TTY where it is.")
|
||||
|
||||
(FOR IFILE LOC TSTREAM ENV EXPR TFPROP WINDOW INSIDE IFILES
|
||||
EACHTIME (CL:IF (VERSIONP IFILE)
|
||||
(for IFILE LOC TSTREAM ENV EXPR TFPROP WINDOW inside IFILES
|
||||
eachtime (CL:IF (VERSIONP IFILE)
|
||||
(SETQ IFILE (FINDFILEVERSION (CAR (WHEREIS FN NIL T))
|
||||
IFILE))) UNLESS (MEMB (FILENAMEFIELD IFILE 'EXTENSION)
|
||||
IFILE))) unless (MEMB (FILENAMEFIELD IFILE 'EXTENSION)
|
||||
*COMPILED-EXTENSIONS*)
|
||||
DO
|
||||
do
|
||||
(SETQ LOC (FINDFNDEF FN IFILE))
|
||||
(IF (LISTP LOC)
|
||||
THEN (SETQ TFPROP (LIST FN (CAR LOC)))
|
||||
[SETQ WINDOW (FIND W IN (OPENWINDOWS)
|
||||
SUCHTHAT (AND (EQUAL TFPROP (WINDOWPROP W 'TF))
|
||||
(fetch (TEXTWINDOW WTEXTSTREAM) of W]
|
||||
(IF (AND WINDOW (NOT REPRINT))
|
||||
THEN
|
||||
(if (LISTP LOC)
|
||||
then (SETQ TFPROP (LIST FN (CAR LOC)))
|
||||
[SETQ WINDOW (find W in (OPENWINDOWS)
|
||||
suchthat (AND (EQUAL TFPROP (WINDOWPROP W 'TF))
|
||||
(TEXTSTREAM W T]
|
||||
[if (AND WINDOW (NOT REPRINT))
|
||||
then
|
||||
(* ;;
|
||||
"If already an open PF window on this function in this file, just raise it to the top")
|
||||
|
||||
(TOTOPW WINDOW)
|
||||
(RETURN)
|
||||
ELSE (CL:WITH-OPEN-FILE
|
||||
else (CL:WITH-OPEN-FILE
|
||||
(ISTREAM (POP LOC)
|
||||
:DIRECTION :INPUT)
|
||||
(SETQ ENV (LISPSOURCEFILEP ISTREAM))
|
||||
@ -109,18 +113,18 @@
|
||||
(PRINTOUT TSTREAM 5 "[From " (FULLNAME ISTREAM)
|
||||
"]" T)
|
||||
(PRINT-READER-ENVIRONMENT ENV TSTREAM)
|
||||
(IF REPRINT
|
||||
THEN (SETFILEPTR ISTREAM (POP LOC))
|
||||
(if REPRINT
|
||||
then (SETFILEPTR ISTREAM (POP LOC))
|
||||
(SETQ EXPR (WITH-READER-ENVIRONMENT ENV (READ ISTREAM)))
|
||||
(WITH-READER-ENVIRONMENT ENV
|
||||
(IF (EQ FN (CAR EXPR))
|
||||
THEN (DSPFONT BOLDFONT TSTREAM)
|
||||
(if (EQ FN (CAR EXPR))
|
||||
then (DSPFONT BOLDFONT TSTREAM)
|
||||
(PRINT FN TSTREAM)
|
||||
(DSPFONT DEFAULTFONT TSTREAM)
|
||||
(SETQ EXPR (CADR EXPR))
|
||||
(PRINTDEF EXPR 3 T NIL NIL TSTREAM)
|
||||
ELSEIF (EQ FN (CADR EXPR))
|
||||
THEN
|
||||
elseif (EQ FN (CADR EXPR))
|
||||
then
|
||||
(* ;;
|
||||
"Presumably a DEFUN. Print the CAR, boldface the cadr")
|
||||
|
||||
@ -131,26 +135,26 @@
|
||||
(PRINTDEF (CDDDR EXPR)
|
||||
3 T T NIL TSTREAM)
|
||||
(PRIN3 ")" TSTREAM)
|
||||
ELSE (PRINTDEF EXPR 3 NIL NIL NIL TSTREAM)))
|
||||
ELSE (PFI.MAYBE.PP.DEFINITION ISTREAM TSTREAM (POP LOC)
|
||||
else (PRINTDEF EXPR 3 NIL NIL NIL TSTREAM)))
|
||||
else (PFI.MAYBE.PP.DEFINITION ISTREAM TSTREAM (POP LOC)
|
||||
(POP LOC)))
|
||||
(TERPRI TSTREAM)
|
||||
[TEDIT TSTREAM (OR WINDOW 'TF)
|
||||
NIL
|
||||
`(READONLY T LEAVETTY T TITLE ,(CONCAT FN " from " (FULLNAME
|
||||
ISTREAM))
|
||||
`(READONLY T TITLE ,(CONCAT FN " from " (FULLNAME ISTREAM))
|
||||
ITEM-NAME
|
||||
,FN BOUNDTABLE ,(TEDIT.ATOMBOUND.READTABLE *READTABLE*]
|
||||
|
||||
(* ;; "The windowprop allows for reprinting as a window action, or reprinting from a command that can find and reuse the previous (presumably unprettied) window.")
|
||||
|
||||
(WINDOWPROP (WFROMDS TSTREAM)
|
||||
'TF TFPROP)))
|
||||
ELSEIF (EQ LOC 'FILE.NOT.FOUND)
|
||||
THEN (printout T "file " IFILE " not found." T)
|
||||
ELSE (printout T FN " not found on " LOC "." T)))
|
||||
'TF TFPROP)
|
||||
(TOTOPW (WFROMDS TSTREAM]
|
||||
elseif (EQ LOC 'FILE.NOT.FOUND)
|
||||
then (printout T "file " IFILE " not found." T)
|
||||
else (printout T FN " not found on " LOC "." T)))
|
||||
(SETQ *LAST-DF* FN)
|
||||
ELSE (PRINTOUT T FN " has no function definition" T])
|
||||
else (PRINTOUT T FN " has no function definition" T])
|
||||
|
||||
(PF-TEDIT-FROM-TEXT
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 14-Apr-2025 21:59 by rmk")
|
||||
@ -214,5 +218,5 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1017 10695 (PF-TEDIT 1027 . 8961) (PF-TEDIT-FROM-TEXT 8963 . 10693)))))
|
||||
(FILEMAP (NIL (1080 10900 (PF-TEDIT 1090 . 9166) (PF-TEDIT-FROM-TEXT 9168 . 10898)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user