Interlisp / medley

The main repo for the Medley Interlisp project. Wiki, Issues are here. Other repositories include maiko (the VM implementation) and Interlisp.github.io (web site sources)

Home Page:https://Interlisp.org

Geek Repo:Geek Repo

Github PK Tool:Github PK Tool

Lisp code text formatting broken when SEEing source files in TEdit

pamoroso opened this issue · comments

Describe the bug
When viewing Interlisp source files with TEDIT-SEE text formatting in the TEdit window is broken. Control characters look like black boxes and code is not styled with the usual attributes such as bold.

To Reproduce
Steps to reproduce the behavior:

  1. sign into your Interlisp Online account
  2. under Initial Exec, select Interlisp
  3. click Run Medley
  4. evaluate (TEDIT-SEE 'INIT)

Expected behavior
Lisp code appears formatted as usual such as with function names in bold.

Screenshots
The TEDIT-SEE window:

tedit-see1

The full desktop with the TEdit window (to the bottom right of the browser) created by the File Browser command See > Scrollable & Pretty:

tedit-see2

Context (please complete the following information):

  • OS: chromeOS Stable
  • OS Version: 124.0.6367.95
  • Host arch: x86_64 (ASUS Chromebox 3)
  • Maiko version: N/A
  • IL:MAKESYSDATE: 22-Apr-2024 02:03:43

Additional context
Text formatting is similarly broken when viewing files with the File Browser command See > Scrollable & Pretty.

Odd. If you reload TEDIT-FILE.LCOM it will reset TEDIT.INPUT.FORMATS.

I confirm TEDIT.INPUT.FORMATS is NIL online. But setting TEDIT.INPUT.FORMATS to ((TEDIT.BRAVOFILE? TEDITFROMBRAVO) (LISPSOURCEFILEP TEDITFROMLISPSOURCE)) or loading TEDIT-FILE.LCOM restores formatting only in part:

tedit-see3

The black-boxes in the DEFINE-FILE-INFO are not totally unexpected - they're the package delimiter in the INTERLISP file readtable which I think is 0x1E, the ASCII RS (record separator) character - so there really is no meaningful printable form.

I copied the same INIT file to my local Linux, which runs an old Medley build, and it looks like this with no black boxes:

tedit-see-old