🚀 go-pugleaf

Epoch 4.0 Patchlevel 2, sparc, sunos-4.1 

Epoch-4.0p2 will abort (sometimes) if set-window-configuration attempts to
restore an emacs window whose buffer has been killed.  The code below
is an example. Several users at my site managed to lose their epoch
session while trying to quit out of the mh-e MH mail handler front end;
they had innocently killed the buffer from which mh-rmail had been
invoked. I suspect that other packages would be vulnerable as well.

Is there an easy fix for this?  Thanks for any help.
--
Jim Berry
Federal Reserve Board
jhb@fed.frb.gov

-----------------------------------------------------------------------------
;;;  This function will cause epoch-4.0p2 to crash.
;;;  These are the sequence of events:
;;;
;;;     Split window vertically.
;;;     Save window configuration.
;;;     Kill the original buffer.
;;;     Try to restore the original window configuration.
;;;     
;;;   Epoch 3.2 and Emacs essentially ignore the request.
;;;   Epoch 4.0 will abort.

(defun crash ()
  (interactive)
  (let ((junk (get-buffer-create "*junk*"))
	config)
    (delete-other-windows)
    (switch-to-buffer junk)
    (split-window-vertically)
    (setq config (current-window-configuration))  
    (kill-buffer junk)
    (delete-other-windows)
    (message "About to abort")
    (sit-for 5)
    (set-window-configuration config) 
    (message "Crashing....")           
    ))