github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 07:29:52 +00:00
Code Issues Projects Releases Wiki Activity

Remove duplicate line of code (#2295)

Browse Source 
Fix issue #2226 to remove a duplicate line of code that's potentially
confusing and ambiguous.
This commit is contained in:
Paolo Amoroso 2025-09-25 08:14:56 +02:00 committed by GitHub
parent 17515ef441
commit 2cb8b51c94
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
library/BROWSER
View File

@ -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

BIN
library/BROWSER.LCOM
View File

Binary file not shown.