Number: 934

Date:  2-May-84 12':56':38

Submitter: Sannella.PA

Source: vanMelle.pa

Subject: GETFILEPTR and BOUT disagreeing about file pointer

Lisp Version: 

Description: '
Date': 23 Apr 84 13':57 PST'
From': vanMelle.pa'
Subject': TEdit': GETFILEPTR and BOUT disagreeing about file pointer'
To': TEditSupport.pa'
cc': vanMelle.pa'
'
TEdit System Date': 13-Apr-84 11':44':53'
Lisp System Date': 16-Apr-84 11':25':02'
Machine': Dorado (Archimedes)'
Microcode version': 24,4'
Memory size': 10000'
Frequency': Always'
Impact': Serious'
'
The following is the simplest case I could formulate.  The case I observe is if I try to BOUT a cr to the end of a stream, it lands at the beginning':'
'
←(SETQ TS (OPENTEXTSTREAM "THIS IS SOME TEXT" (CREATEW NIL  "TEST WINDOW")))'
{STREAM}#7,37140'
←(TEDIT.SETSEL TS 1 0 (QUOTE LEFT))'
{SELECTION}#13,151500'
←(SETFILEPTR TS -1)'
-1'
←(GETFILEPTR TS)'
17'
←(BOUT TS (CHARCODE CR))'
NIL'
; a blank line appears at front of text'
←(GETFILEPTR TS)'
1'
'
-----'
'
Date': 26 Apr 84 10':48 PST'
From': sybalsky.pa'
Subject': Re': TEdit': GETFILEPTR and BOUT disagreeing about file pointer'
In-reply-to': vanMelle.pa''s message of 23 Apr 84 13':57 PST'
To': vanMelle.pa'
cc': TEditSupport.pa'
'
Fixed in the next TEdit.'


Workaround: 

Test Case: 

Edit-By: Sannella.PA

Edit-Date: 20-Jun-84 15':32':40

Attn: 

Assigned To: sybalsky.pa

In/By: Carol

Disposition: 

System: Text

Subsystem: TEdit

Machine: 

Disk: 

Microcode Version: 

Memory Size: 

File Server: 

Server Software Version: 

Difficulty: Moderate

Frequency: Everytime

Impact: Moderate

Priority: Perhaps

Status: Closed

Problem Type: Bug

Source Files: