Skip to content

Commit 2cb8b51

Browse files
authored
Remove duplicate line of code (#2295)
Fix issue #2226 to remove a duplicate line of code that's potentially confusing and ambiguous.
1 parent 17515ef commit 2cb8b51

File tree

2 files changed

+12
-12
lines changed

2 files changed

+12
-12
lines changed

library/BROWSER

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "21-May-2024 18:46:31" {LIB}BROWSER.;2 29502
3+
(FILECREATED "24-Sep-2025 13:01:45" {MEDLEY}<library>BROWSER.;2 29583
44

5-
:EDIT-BY "mth"
5+
:EDIT-BY "PA"
66

7-
:CHANGES-TO (FNS BROWSER.LEFTFN)
7+
:CHANGES-TO (FNS GET.BROWSE.PP.WINDOW)
88

9-
:PREVIOUS-DATE "26-Apr-2023 12:41:36" {LIB}BROWSER.;1)
9+
:PREVIOUS-DATE "21-May-2024 18:46:31" {MEDLEY}<library>BROWSER.;1)
1010

1111

1212
(PRETTYCOMPRINT BROWSERCOMS)
@@ -258,15 +258,15 @@
258258
(HELP])
259259

260260
(GET.BROWSE.PP.WINDOW
261-
[LAMBDA NIL (* ; "Edited 7-Feb-2022 14:01 by rmk")
261+
[LAMBDA NIL (* ; "Edited 24-Sep-2025 13:00 by PA")
262+
(* ; "Edited 7-Feb-2022 14:01 by rmk")
262263
(* ; "Edited 31-Mar-87 11:23 by jop")
263264
(* ;
264265
 "returns the window for pretty printing from the browser.")
265266
(COND
266267
((WINDOWP PFWINDOW)
267268
PFWINDOW)
268269
(T (SETQ PFWINDOW (CREATEW NIL "Browser print out window"))
269-
(WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN)
270270
(WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN)
271271
(WINDOWPROP PFWINDOW 'RESHAPEFN 'PPRESHAPEFN)
272272
(WINDOWPROP PFWINDOW 'SCROLLFN 'SCROLLBYREPAINTFN)
@@ -541,10 +541,10 @@
541541
(BROWSER T)
542542
)
543543
(DECLARE%: DONTCOPY
544-
(FILEMAP (NIL (1653 28138 (MSPATHS.DISPATCH 1663 . 2137) (NUMSPATHS 2139 . 5726) (BROWSER 5728 . 6299)
545-
(BROWSER.WHENFNSCHANGED 6301 . 8086) (BRPATHS1 8088 . 10739) (BROWSER.LEFTFN 10741 . 14300) (
546-
GET.BROWSE.PP.WINDOW 14302 . 15127) (GET.BROWSE.DESCRIBE.WINDOW 15129 . 15877) (BROWSEPP 15879 . 16753
547-
) (PPREPAINTFN 16755 . 19881) (PPRESHAPEFN 19883 . 20059) (DESCRIBEREPAINTFN 20061 . 20765) (
548-
BROWSERDESCRIBE 20767 . 21509) (BROWSER.MIDDLEFN 21511 . 22826) (DEDITPROCESSRUNNINGP 22828 . 23083) (
549-
REDRAWBROWSEGRAPH 23085 . 23849) (STBROWSER 23851 . 28136)))))
544+
(FILEMAP (NIL (1682 28219 (MSPATHS.DISPATCH 1692 . 2166) (NUMSPATHS 2168 . 5755) (BROWSER 5757 . 6328)
545+
(BROWSER.WHENFNSCHANGED 6330 . 8115) (BRPATHS1 8117 . 10768) (BROWSER.LEFTFN 10770 . 14329) (
546+
GET.BROWSE.PP.WINDOW 14331 . 15208) (GET.BROWSE.DESCRIBE.WINDOW 15210 . 15958) (BROWSEPP 15960 . 16834
547+
) (PPREPAINTFN 16836 . 19962) (PPRESHAPEFN 19964 . 20140) (DESCRIBEREPAINTFN 20142 . 20846) (
548+
BROWSERDESCRIBE 20848 . 21590) (BROWSER.MIDDLEFN 21592 . 22907) (DEDITPROCESSRUNNINGP 22909 . 23164) (
549+
REDRAWBROWSEGRAPH 23166 . 23930) (STBROWSER 23932 . 28217)))))
550550
STOP

library/BROWSER.LCOM

-13 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)