Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!uwm.edu!zaphod.mps.ohio-state.edu!usc!snorkelwacker!paperboy!meissner
From: meissner@osf.org (Michael Meissner)
Newsgroups: comp.emacs
Subject: Re: real X windows support from emacs
Message-ID: <MEISSNER.90Jun6110902@curley.osf.org>
Date: 6 Jun 90 15:09:02 GMT
References: <90May31.100818edt.14538@neat.cs.toronto.edu>
	<860008@hpclapd.HP.COM>
Sender: news@OSF.ORG
Organization: Open Software Foundation
Lines: 78
In-reply-to: defaria@hpclapd.HP.COM's message of 1 Jun 90 15:59:53 GMT

In article <860008@hpclapd.HP.COM> defaria@hpclapd.HP.COM (Andy
DeFaria) writes:

| >Epoch certainly has h) though it does it by adding a new abstration
| >called 'screens', to which one or more emacs buffers can be displayed,
| >and they add a bunch of new keystrokes like \C-Z 4 \C-f, find file in
| >other screen.  I believe it has hooks for a), b), c), and possibly d)
| >and e).
| 
| I have Epoch here from HP (I think) and it  does no such thing. If  I try a
| \C-Z  it  beeps.   I suppose  you  meant \C-X  4  \C-f  which does  execute
| find-file-in-other-window  but this just splits the  Epoch  window into two
| and puts the other file in the lower  half.  Is there an  Epoch that works?
| I tried ftp ov a.cs.uiuc.edu and my system said "Unknown host".

You need to load 3 .el (epoch, smk, and motion) files from the
epoch-lisp-files directory.  Here is the relavant section from my
.emacs file:

(defun mrm-epoch-switch-screen nil
  "Switch screen and then raise it"
  (interactive)
  (switch-screen)
  (raise-current-screen)
  (raise-minibuf))

(defun mrm-epoch-recenter (prefix)
  "Recenter under epoch raising the screen as well"
  (interactive "P")
  (recenter prefix)
  (epoch::raise-screen))

(if (not (boundp 'epoch::version))
    (progn
      (load "term/x-win")
      (autoload 'x-mouse-help	  "x-mouse-help" nil t)
      (autoload 'x-mouse-prefix "x-mouse-help" nil t)
      (x-set-bell t)
      (x-flip-color))
  (progn
    (setq auto-raise-screen nil)
    (setq include-system-name nil)
    (setq terminal-epoch t)
    (setq load-path
          (append load-path
      	    (list "/usr/sandboxes/meissner/emacs-18.55/epoch-lisp-files")))
    (load "epoch")
    (load "smk-x-mouse")
    (load "motion")
    (global-set-key "\C-zo" 'mrm-epoch-switch-screen)
    (global-set-key "\C-l"  'mrm-epoch-recenter)
    (setq epoch::screen-properties (append (list
      				      (cons 'font "terminal_narrow14")
      				      (cons 'geometry "100x54")
      				      (cons 'reverse "True"))
      				     epoch::screen-properties))
    (epoch::move-screen 7 68)
    (epoch::rebind-key "Prior"  0 "\e[5~")
    (epoch::rebind-key "Next"   0 "\e[6~")
    (epoch::rebind-key "KP_1"   0 "\C-v")
    (epoch::rebind-key "KP_2"   0 "\C-n")
    (epoch::rebind-key "KP_3"   0 "\e[b~")
    (epoch::rebind-key "KP_4"   0 "\C-b")
    (epoch::rebind-key "KP_5"   0 "\C-a")
    (epoch::rebind-key "KP_6"   0 "\C-f")
    (epoch::rebind-key "KP_7"   0 "\M-v")
    (epoch::rebind-key "KP_8"   0 "\C-p")
    (epoch::rebind-key "KP_9"   0 "\e[t~")
    (epoch::rebind-key "KP_F1"  0 "\e[p~")
    (epoch::rebind-key "KP_F2"  0 "\e[q~")
    (epoch::rebind-key "KP_F3"  0 "\e[r~")
    (epoch::rebind-key "KP_F4"  0 "\e[s~")
    (epoch::title "Epoch")))
--
Michael Meissner	email: meissner@osf.org		phone: 617-621-8861
Open Software Foundation, 11 Cambridge Center, Cambridge, MA

Catproof is an oxymoron, Childproof is nearly so