github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-08 01:21:46 +00:00
Code Issues Projects Releases Wiki Activity

Add PLOTANDNC-PATCH from obsolete back to lispusers since its used by Notecards - specifically NCPLOTCARD (#1647)

Browse Source
This commit is contained in:
Frank Halasz
2024-04-06 21:40:13 -07:00
committed by GitHub
parent f6eb5d9846
commit a1a99c04cd
3 changed files with 53 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
obsolete/lispusers/PLOTANDNC-PATCH
View File

@@ -1,52 +0,0 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(filecreated "22-Jan-88 15:45:26" {indigo}<gslws>lyric>library>plotandnc-patch.\;1 1853
|changes| |to:| (vars plotandnc-patchcoms)
(fns read.fontintodescriptor))
; Copyright (c) 1988 by Xerox Corporation. All rights reserved.
(prettycomprint plotandnc-patchcoms)
(rpaqq plotandnc-patchcoms (
(* |;;| "define font read fns used by plot and notecards so system can read either kind")
(fns readfont read.fontintodescriptor)
(p
(* |;;| "make sure these read fns are registered to avoid messages when reading")
(pushnew hprintreadfns 'readfont)
(pushnew hprintreadfns 'read.fontintodescriptor))))
(* |;;| "define font read fns used by plot and notecards so system can read either kind")
(defineq
(readfont
(lambda (stream) (* |jop:| "27-Aug-85 13:34")
(prog ((proplist (read stream)))
(return (fontcreate (listget proplist 'family)
(listget proplist 'size)
(listget proplist 'face)
(listget proplist 'rotation)
(listget proplist 'device))))))
(read.fontintodescriptor
(lambda (stream) (* \; "Edited 22-Jan-88 15:36 by thh:")
(apply 'fontcreate (read stream))))
)
(* |;;| "make sure these read fns are registered to avoid messages when reading")
(pushnew hprintreadfns 'readfont)
(pushnew hprintreadfns 'read.fontintodescriptor)
(putprops plotandnc-patch copyright ("Xerox Corporation" 1988))
(declare\: dontcopy
(filemap (nil (967 1575 (readfont 977 . 1393) (read.fontintodescriptor 1395 . 1573)))))
stop