[Info-vax] saving intermediate versions and /RECOVER with EDT

[Phillip Helbig---undress to reply]

EDT does most things I need.  However, I like the possibility to write 
the file to disk while working on it but keeping it in the editor.  So, 
I wrote this:

$  DEFINE/USER_MODE EDT_FILE 'P1'
$  FILE = F$ELEMENT(0,".",P1)
$  TYPE = F$ELEMENT(1,".",P1)
$  JFL = FILE + "_" + TYPE + ".JOU"
$  IF F$SEARCH(JFL) .NES. "" THEN GOTO JOURNAL
$  DEFINE/USER_MODE SYS$INPUT SYS$COMMAND
$  EDIT/EDT/JOURNAL='JFL' 'P1'
$EXIT
$JOURNAL:
$  WRITE SYS$OUTPUT "%EE-E-JRNLFE, journal file exists"
$  READ/PROMPT="press return to recover, ^Y to abort " SYS$COMMAND ANSW
$  DEFINE/USER_MODE SYS$INPUT SYS$COMMAND
$  EDIT/EDT/JOURNAL='JFL'/RECOVER 'P1'
$EXIT

with

DEFINE KEY GOLD W AS "EXT WRITE EDT_FILE."

Of course, for purposes of recovery, just use EDIT/RECOVER.  The write 
is not to replace that, but rather to save the changes then process the 
file while leaving it in the editor.  However, if I DO have to recover, 
then I would like to be able to do that.  However, EDIT/RECOVER seems to 
be confused by the intermediate versions saved to disk.

Is there any way to have both?