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) (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) (PRETTYCOMPRINT BROWSERCOMS)
@ -258,7 +258,8 @@
(HELP]) (HELP])
(GET.BROWSE.PP.WINDOW (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") (* ; "Edited 31-Mar-87 11:23 by jop")
(* ; (* ;
 "returns the window for pretty printing from the browser.")  "returns the window for pretty printing from the browser.")
@ -266,7 +267,6 @@
((WINDOWP PFWINDOW) ((WINDOWP PFWINDOW)
PFWINDOW) PFWINDOW)
(T (SETQ PFWINDOW (CREATEW NIL "Browser print out window")) (T (SETQ PFWINDOW (CREATEW NIL "Browser print out window"))
(WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN)
(WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN) (WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN)
(WINDOWPROP PFWINDOW 'RESHAPEFN 'PPRESHAPEFN) (WINDOWPROP PFWINDOW 'RESHAPEFN 'PPRESHAPEFN)
(WINDOWPROP PFWINDOW 'SCROLLFN 'SCROLLBYREPAINTFN) (WINDOWPROP PFWINDOW 'SCROLLFN 'SCROLLBYREPAINTFN)
@ -541,10 +541,10 @@
(BROWSER T) (BROWSER T)
) )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (1653 28138 (MSPATHS.DISPATCH 1663 . 2137) (NUMSPATHS 2139 . 5726) (BROWSER 5728 . 6299) (FILEMAP (NIL (1682 28219 (MSPATHS.DISPATCH 1692 . 2166) (NUMSPATHS 2168 . 5755) (BROWSER 5757 . 6328)
(BROWSER.WHENFNSCHANGED 6301 . 8086) (BRPATHS1 8088 . 10739) (BROWSER.LEFTFN 10741 . 14300) ( (BROWSER.WHENFNSCHANGED 6330 . 8115) (BRPATHS1 8117 . 10768) (BROWSER.LEFTFN 10770 . 14329) (
GET.BROWSE.PP.WINDOW 14302 . 15127) (GET.BROWSE.DESCRIBE.WINDOW 15129 . 15877) (BROWSEPP 15879 . 16753 GET.BROWSE.PP.WINDOW 14331 . 15208) (GET.BROWSE.DESCRIBE.WINDOW 15210 . 15958) (BROWSEPP 15960 . 16834
) (PPREPAINTFN 16755 . 19881) (PPRESHAPEFN 19883 . 20059) (DESCRIBEREPAINTFN 20061 . 20765) ( ) (PPREPAINTFN 16836 . 19962) (PPRESHAPEFN 19964 . 20140) (DESCRIBEREPAINTFN 20142 . 20846) (
BROWSERDESCRIBE 20767 . 21509) (BROWSER.MIDDLEFN 21511 . 22826) (DEDITPROCESSRUNNINGP 22828 . 23083) ( BROWSERDESCRIBE 20848 . 21590) (BROWSER.MIDDLEFN 21592 . 22907) (DEDITPROCESSRUNNINGP 22909 . 23164) (
REDRAWBROWSEGRAPH 23085 . 23849) (STBROWSER 23851 . 28136))))) REDRAWBROWSEGRAPH 23166 . 23930) (STBROWSER 23932 . 28217)))))
STOP STOP

BIN
library/BROWSER.LCOM
View File

Binary file not shown.