🚀 go-pugleaf

I used to use emacs under X quite a bit, because I didn't want to use
beta versions of epoch4 but also couldn't get used to a separate
minibuffer.  I then found that my old "OK, done with file, C-x C-c"
habits were, um, not too practical under epoch, even with the "Do you
really really want to do this" in dot.emacs; I didn't want to be asked,
I wanted the window to go away (but not epoch).

So I dug out the elisp manual, and did some hacking...

(if running-epoch
    (progn
      (defun ckd-delete-screen ()
        (interactive)
        (if (= (length (epoch::screen-list 'all)) 1)
            (my-exit-from-emacs)
          (epoch::delete-screen (epoch::current-screen)))
        )
      )
)

(if running-epoch (global-set-key "\C-x\C-c" 'ckd-delete-screen))
(if running-epoch (global-set-key "\C-x\C-z" 'my-exit-from-emacs))

Since I never use C-xC-z anyway, it makes a nice shortcut to quit epoch
if I have more than one screen open, without making me kill each one; I
haven't bothered recoding ckd-delete-screen to take an optional
argument, though, which is really the proper way to do it.

OBTW, Andy Norman's 'gnuserv' package makes for great epoch menus within
twm (for those of us who don't use gwm)...
--
Christopher Davis <ckd@eff.org> |    ECONOMIC OBSERVATIONS DEPARTMENT
System Manager & Postmaster     |  "There's always something going out of
Electronic Frontier Foundation  |      business in Central Square."
+1 617 864 0665  NIC: [CKD1]    |   -Rita Marie Rouvalis <rita@eff.org>