🚀 go-pugleaf

Ezio Faccioli on June 3 wrote:
*> I use heavily view-mode from dired, SO THAT I sometimes have the
*> opportunity to "fg %epoch" (and sometimes I have to kill epoch),
*> because my fingers have learned how to get a new screen, or remove the
*> current one, while view.elc links C-z to suspend-emacs.
*> 
*> I have the ability to rebind C-z to another command while in view
*> mode, but  this is just an interim solution.

This I copied from ../lisp/term/x-win.el and put in my
../epoch-lisp/site-init.el before building epoch.  There are other
problems with view.el (using recursive-edit, unbinding several keys,
etc.).

-Jerry

;; Don't let users accidentally freeze the Epoch editor
;;
(put 'suspend-emacs 'disabled
     "Suspending a program running in an X window is silly
and you would not be able to start it again.  Just switch windows instead.\n")
(setq suspend-hook '(lambda () (error "Suspending an emacs running under X makes no sense")))
(substitute-key-definition 'suspend-emacs nil global-map)
(substitute-key-definition 'suspend-emacs nil esc-map)
(substitute-key-definition 'suspend-emacs nil ctl-x-map)