From 2cb8b51c944b47b0875e02f99ce4e725ab26a4c5 Mon Sep 17 00:00:00 2001
From: Paolo Amoroso <info@paoloamoroso.com>
Date: Thu, 25 Sep 2025 08:14:56 +0200
Subject: [PATCH] Remove duplicate line of code (#2295)

Fix issue #2226 to remove a duplicate line of code that's potentially
confusing and ambiguous.
---
 library/BROWSER      |  24 ++++++++++++------------
 library/BROWSER.LCOM | Bin 11705 -> 11692 bytes
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/library/BROWSER b/library/BROWSER
index a23b4691..6f90912d 100644
--- a/library/BROWSER
+++ b/library/BROWSER
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "21-May-2024 18:46:31" {LIB}BROWSER.;2
 29502  
+
(FILECREATED "24-Sep-2025 13:01:45" {MEDLEY}<library>BROWSER.;2
 29583  
 
-      :EDIT-BY "mth"
+      :EDIT-BY "PA"
 
-      :CHANGES-TO (FNS BROWSER.LEFTFN)
+      :CHANGES-TO (FNS GET.BROWSE.PP.WINDOW)
 
-      :PREVIOUS-DATE "26-Apr-2023 12:41:36" {LIB}BROWSER.;1)
+      :PREVIOUS-DATE "21-May-2024 18:46:31" {MEDLEY}<library>BROWSER.;1)
 
 
 (PRETTYCOMPRINT BROWSERCOMS)
@@ -258,7 +258,8 @@
                      (HELP])
 
 (GET.BROWSE.PP.WINDOW

-  [LAMBDA NIL
                                                (* ; "Edited  7-Feb-2022 14:01 by rmk")


+  [LAMBDA NIL
                                                (* ; "Edited 24-Sep-2025 13:00 by PA")


+                                                             (* ; "Edited  7-Feb-2022 14:01 by rmk")


                                                              (* ; "Edited 31-Mar-87 11:23 by jop")

                                                              (* ; 
 
                                           "returns the window for pretty printing from the browser.")

@@ -266,7 +267,6 @@
        ((WINDOWP PFWINDOW)
         PFWINDOW)
        (T (SETQ PFWINDOW (CREATEW NIL "Browser print out window"))
-          (WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN)
           (WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN)
           (WINDOWPROP PFWINDOW 'RESHAPEFN 'PPRESHAPEFN)
           (WINDOWPROP PFWINDOW 'SCROLLFN 'SCROLLBYREPAINTFN)
@@ -541,10 +541,10 @@
 (BROWSER
 T)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1653 28138 (MSPATHS.DISPATCH 1663 . 2137) (NUMSPATHS 2139 . 5726) (BROWSER 5728 . 6299)
- (BROWSER.WHENFNSCHANGED 6301 . 8086) (BRPATHS1 8088 . 10739) (BROWSER.LEFTFN 10741 . 14300) (
-GET.BROWSE.PP.WINDOW 14302 . 15127) (GET.BROWSE.DESCRIBE.WINDOW 15129 . 15877) (BROWSEPP 15879 . 16753
-) (PPREPAINTFN 16755 . 19881) (PPRESHAPEFN 19883 . 20059) (DESCRIBEREPAINTFN 20061 . 20765) (
-BROWSERDESCRIBE 20767 . 21509) (BROWSER.MIDDLEFN 21511 . 22826) (DEDITPROCESSRUNNINGP 22828 . 23083) (
-REDRAWBROWSEGRAPH 23085 . 23849) (STBROWSER 23851 . 28136)))))
+  (FILEMAP (NIL (1682 28219 (MSPATHS.DISPATCH 1692 . 2166) (NUMSPATHS 2168 . 5755) (BROWSER 5757 . 6328)
+ (BROWSER.WHENFNSCHANGED 6330 . 8115) (BRPATHS1 8117 . 10768) (BROWSER.LEFTFN 10770 . 14329) (
+GET.BROWSE.PP.WINDOW 14331 . 15208) (GET.BROWSE.DESCRIBE.WINDOW 15210 . 15958) (BROWSEPP 15960 . 16834
+) (PPREPAINTFN 16836 . 19962) (PPRESHAPEFN 19964 . 20140) (DESCRIBEREPAINTFN 20142 . 20846) (
+BROWSERDESCRIBE 20848 . 21590) (BROWSER.MIDDLEFN 21592 . 22907) (DEDITPROCESSRUNNINGP 22909 . 23164) (
+REDRAWBROWSEGRAPH 23166 . 23930) (STBROWSER 23932 . 28217)))))
 STOP
diff --git a/library/BROWSER.LCOM b/library/BROWSER.LCOM
index dbea7de0cdbc5b90b234e1ff29c450eabf3668de..d7aab0164c422fd0bfaa9efb9e1e5b979e5fc1ff 100644
GIT binary patch
delta 423
zcmdlPy(W4>M7@b_aB6|Bk%5t^f}ydMfuWU&sgi<*QgVK7L1s>Bib8&#f|5eDud9oX
zYh<lWPG(Y3Vo{}?Q;>gnuxpT>wUMR*my(e&!Vn`PD^p7=6C)*sq@q-~Dajd$dFiRe
zs#Xf_t|595-Fg85df}6V*y=NZRyYO(1S=q$qo=2*q>z$W0(1g43rsDPG`Td~Jbhf9
zgIpa$TwN5DjIeqIkJA;5EKMzp738g4T|7f{ogx*K0vweTteia@{oGxHbwm6WG~E1x
z6()ZW6cx}^unGur4fFI54c2u5+Bcb>QBnXsR5s6KY!u-2V_;-p2;gJ@g3YdzPYc^g
zfY|{83>xMp3cmg>u0ej`o_;R=;gjbHc~1@#Q4tFOnjP%n7~tyWr(j~F0Of497p{^5
E0M?dpg8%>k

delta 489
zcmZXQ&1%9x6ouomfr8+wU0ntWNg<Mq(ZnefqM6i`m<;*RicqjBwNQUhH*G1tLLo2E
z2k6dKH+_w6`Y!Egt0JA%eD`wBJ)F1pd;8^Tp(*vwgMwA81I9!(NU?-KLf!Fja(CbF
z!FU7+o;<hmTnU3_M8o_UmH}zSolet;#&re)@n+iJD!YTu=(ayQA+S+;)QKG*?zp9s
zcph*Qb9+6X&m-t{=KSVAcax|pl10gJJz5Q^6;nHX%^WTEV*xG~RSbmMZmd*VfQIt{
z0#dD6{soPcH~`7<BM|rF$Us;~8*Y$9ip`w?;gVuarmId0pkbnGq`*7b??98qdbIq^
z%(92qLPikSfxzD~Nk4Mu=~pg$x@MLYq_PV2z^0+!bbUK$f~f;b;$L84z##q3T{es|
xMAb0xyh<yi%yRuzQHK6E<o{9u7|$8iEJisNP1u2Mtalrkj`?m4OPqT={s9ZBfV=<z