🚀 go-pugleaf

I've made a couple of minor changes to kepteditor.com, the diff's are
attached below.

The first change is to move where the logical EMACS_FILE_NAME is
deassigned.  I consider it slightly neater to remove it just after 
exiting emacs rather than just before entering.  The former leaves it
hanging around.

The second is related, since the logical is deassigned later, I have
to guarantee that it is not left hanging around because the user type
C-y, aborting the dcl command file.  The `on control_y' and `set noon'
do this.

They also prevent another existing (occasional) problem---if C-y is
typed at just the right moment, it is possible for error messages to
be left turned off.

roland
--
Roland B Roberts, University of Rochester   BITNET: roberts@uornsrl.bitnet
  Nuclear Structure Research Laboratory   INTERNET: rbr4@troi.cc.rochester.edu
  271 East River Road                         UUCP: ..rochester!ur-cc!troi!rbr4
  Rochester, NY 14627                         AT&T: (716) 275-8962



*** kepteditor.com;1
--- kepteditor.com
**************
*** 65,71
  $	message_status = f$environment("message")
  $	set noon
  $	set message /nofacility/noidentification/noseverity/notext
- $	deassign/job emacs_file_name
- $	set on
  $	if p2 .eqs. "" then goto no_logical
  $	temp = f$trnlnm("SYS$DISK") + f$directory() + p2
--- 65,70 -----
  $	message_status = f$environment("message")
  $	set noon
  $	set message /nofacility/noidentification/noseverity/notext
  $	set on
  $	on control_y then goto quit
  $	if p2 .eqs. "" then goto no_logical
**************
*** 67,72
  $	set message /nofacility/noidentification/noseverity/notext
  $	deassign/job emacs_file_name
  $	set on
  $	if p2 .eqs. "" then goto no_logical
  $	temp = f$trnlnm("SYS$DISK") + f$directory() + p2
  $	temp = f$edit(temp,"lowercase")
--- 66,72 -----
  $	set noon
  $	set message /nofacility/noidentification/noseverity/notext
  $	set on
+ $	on control_y then goto quit
  $	if p2 .eqs. "" then goto no_logical
  $	temp = f$trnlnm("SYS$DISK") + f$directory() + p2
  $	temp = f$edit(temp,"lowercase")
**************
*** 77,82
  $ 	define/user	sys$input	sys$command
  $ 	attach "''NAME'"
  $ quit:
  $ 	write sys$error -
  "[Attached to DCL in directory ''F$TRNLNM("SYS$DISK")'''F$DIRECTORY()']"
  $	set message 'message_status
--- 77,84 -----
  $ 	define/user	sys$input	sys$command
  $ 	attach "''NAME'"
  $ quit:
+ $	set noon
+ $	deassign/job emacs_file_name
  $ 	write sys$error -
  "[Attached to DCL in directory ''F$TRNLNM("SYS$DISK")'''F$DIRECTORY()']"
  $	set message 'message_status