NetNews Usenet Archive 1992 #27/NN_1992_27.iso/spool/gnu/epoch/misc/1118

Internet Message Format | 1992-11-17 | 51.4 KB

Xref: sparky gnu.epoch.misc:1118 news.answers:4032
Newsgroups: gnu.epoch.misc,news.answers
Path: sparky!uunet!brunix!brunix!dbc
From: [e-mail] (Brook Conner)
Subject: Epoch Frequently Asked Questions (FAQ)
Message-ID: <[e-mail]>
Followup-To: poster
Summary: Epoch FAQ for Oct '92
Keywords: Epoch FAQ
Sender: [e-mail]
Reply-To: [e-mail]
Organization: Brown University Department of Computer Science
Date: Tue, 17 Nov 1992 15:38:33 GMT
Approved: [e-mail]
Lines: 1350

Archive-name: epoch-faq
Last-modified: Fri Oct 16 14:44:54 EDT 1992
Version: 2.0
Posting-frequency: bimonthly

*   Epoch FAQ (Frequently Asked Questions)
*   (or at least Occasionally Wondered-About Questions)

*   Maintained by Brook Conner ([e-mail])
*   Last Modified Fri Oct 16 14:45:31 EDT 1992
*   by Brook Conner ([e-mail])

If you are viewing this text in a GNU Emacs buffer, you can type
"M-2 C-x $" to get an overview of just the questions.  Then, when
you want to look at the text of the answers, just type "C-x $".

To search for a question numbered XXX, type "M-C-s ^XXX:", followed by
a C-r if that doesn't work; type ESC to end the search.

!! The latest version of this file will be always available via anonymous
!! FTP to ftp.ncsa.uiuc.edu in /outgoing/marca/epoch or cs.uiuc.edu in
!! /pub/epoch-files/epoch

Please feel free to send comments, suggestions, additions, and
corrections to [e-mail]

*                   === REALLY IMPORTANT NOTE ===

Unless otherwise attributed, information below is based only on Yours
Truly's use and experience with Epoch and is BY NO MEANS GUARANTEED to
be correct, complete, or even coherent.  If it works for you, great;
if it doesn't, let me know, but there are no guarantees.

*             === CHANGES IN THIS VERSION OF THE FAQ ===

  Here is a list of changes made since the FAQ's last bimonthly
  posting to gnu.epoch.misc and news.answers:

  No changes.  Sorry, folks.  Stuff came up.  Remember, mail me at
  [e-mail] if you have things you'd like to see
  here.

*                       === PREREQUISITES ===

  In the answers that follow, I assume at least a little familiarity
  with GNU Emacs Lisp.  Suggested resources that could be considered
  necessary references for material in this FAQ are:

--> The GNU Emacs and Epoch manuals (available online via C-h i).

--> The GNU Elisp manual (available via anonymous FTP from
    prep.ai.mit.edu (18.71.0.38) as /pub/gnu/elisp-manual-1.03.tar.Z).

--> The gnu.emacs.help FAQ in the file etc/FAQ (the latest version
    is available in the gnu.emacs.help Usenet newsgroup or via FTP from
    pit-manager.mit.edu (18.172.1.27) in /pub/usenet/gnu.emacs.help).

*                          === CAVEATS ===

  Many of the answers given herein APPLY ONLY to Epoch 4.2.  I run
  Epoch on SPARCstations, DECstation 5000s, IBM RS/6000s, and HP 700s;
  other configurations may behave differently.  Please let me know of
  any such differences.

*                    === EPOCH AND GNU EMACS ===

A-1: What is Epoch?

  Epoch is GNU Emacs on steroids: an adaptation of GNU Emacs with lots
  of additional support for features made possible by the X11
  windowing system.  These features include multiple editing windows,
  arbitrary colors and fonts (fixed-width and proportional),
  selectable zones per buffer with arbitrary display styles (font,
  color, underline, stipple, pixmap), an optional separate minibuffer
  window, improved keyboard and mouse handling, full 8-bit character
  set support, and more.

  Epoch, like GNU Emacs, is very customizable; much of this FAQ
  describes ways to customize Epoch for specific purposes.

A-2: How can I get Epoch?

  Epoch is available via anonymous FTP to cs.uiuc.edu (128.174.252.1)
  in pub/epoch-files/epoch.  The main file of interest is currently
  epoch-4.2.tar.Z.

  According to Simon Marshall ([e-mail]):

  Like GNU & X11 stuff, epoch is available in the UK from
  uk.ac.ic.doc.src (00000510200001).  You can log on; there's help to
  tell you the different ways of getting source.  Epoch is in
  /gnu/epoch.

  Epoch is also available from aix370.rrz.uni-koeln.de (134.95.132.2)
  in /gnu/emacs/epoch.

  Volunteers for other FTP sites outside the United States, or for
  mail access to Epoch source, please step forward.

A-3: What is the latest version of Epoch?

  The latest version is 4.2.  Previous versions still in use by some
  people include 4.0 patchlevels 0,1, and 2, 4.1, the 4.0 alpha and
  beta levels, and version 3.2.

  Epoch 4.2 is based on GNU Emacs 18.58, which is the most recent
  version of GNU Emacs.

  Existing installations of Epoch 4.1 should be upgraded to 4.2 as
  soon as possible.

A-4: I recently moved to Epoch 4.0b0 (or later), and elisp code that
worked before has stopped working.  Why?

  In one of the beta versions of epoch, the term "button" was replaced
  by the term "zone".  The idea was, "button" was misleading (since it
  refered to a mouse button or a pushbutton as well).  It didn't
  really describe Epoch's attributed text.

  As a consequence, the names of all the button-related function names
  and variables were changed.  There are two ways to deal with this
  change:

  METHOD #1:

    Put the following command at the head of each file of elisp code
    that uses buttons:

    (require 'button)

    (This simply does a series of fset's to replace the "button" names
    with the new "zone" names.)

  METHOD #2:

    Convert all references of "button" to "zone".  You can use the
    function convert-current-buffer in epoch-lisp/convert-buttons.el
    (in the Epoch distribution) to do this automatically.

    NOTE: There may be additional problems; in particular, since
    attributes were eliminated in Epoch 4.0, any use of them will have
    to be eliminated also.  This is less simple than switching from
    buttons to zones.  Fortunately, most Epoch packages on the net now
    support 4.0.  Therefore, I won't bother to come up with an answer
    for this one (unless someone actually needs to know).

A-5: I recently moved to a newer version of Epoch, and my X resources
  are suddenly being ignored.  Why?

  Old versions of Epoch extracted its X default resources from
  the user's .Xdefaults file by hand; this is no longer the case.  If
  Epoch isn't picking up resources like previous versions did on your
  system, prior to starting Epoch do this:

    xrdb -merge $HOME/.Xdefaults

  This makes the X server's database pick up and maintain all of the
  resource definitions found in $HOME/.Xdefaults.

  Alternatively, you can use the '-ud' command line flag to force
  Epoch to manually scan $HOME/.Xdefaults.

  A second problem is that Epoch uses the first word in the command
  that executed Epoch (argument 0) to search the X resource database
  for Epoch resources.  Thus, if you invoke Epoch with the name:

    epoch-4.2

  ...Epoch will use the string 'epoch-4.2' to search the resource
  database, thereby missing the resources specified by the name
  'epoch'.  The workaround is to use the '-name' or '-rn' command-line
  option like so:

    epoch-4.2 -name epoch

  or:

    epoch-4.2 -rn epoch

  Using -name is more recommended, as it is a sort-of standard option
  among X applications (most X Toolkit applications support it).

  [From Martin Boyer ([e-mail]).]

A-6: What's the difference between Epoch and GNU Emacs version 19?

  To quote directly from the GNU 'status' file (obtained via anonymous
  FTP to prep.ai.mit.edu (18.71.0.38) as /pub/gnu/status):

  -- BEGIN QUOTE -----------------------------------------------------
  Emacs 18 maintenance continues for simple bug fixes.  Version 19
  approaches release, counting among its new features before and after
  change hooks, source-level debugging of Emacs Lisp programs, X
  selection processing, including CLIPBOARD selections, scrollbars,
  support for European character sets, floating point numbers,
  per-buffer mouse commands, interfacing with the X resource manager,
  mouse-tracking, lisp-level binding of function keys, and multiple X
  windows (`screens' to emacs).

  Thanks go to Alan Carroll and the people who worked on Epoch for
  generating initial feedback to a multi-windowed emacs.  Emacs 19
  supports two styles of multiple windows, one with a separate screen
  for the minibuffer, and another with a minibuffer attached to each
  screen.

  A couple of other features of Version 19 are buffer allocation, which
  uses a new mechanism capable of returning storage to the system when a
  buffer is killed, and a new input system--all input now arrives in the
  form of Lisp objects.

  Other features under consideration for later releases of Version 19
  include:

  ** Associating property lists with regions of text in a buffer.
  ** Multiple font, color, and pixmaps defined by those properties.
  ** Different visibility conditions for the regions, and for various
     windows showing one buffer.
  ** Hooks to be run if point or mouse moves outside a certain range.
  ** Incrementally saving undo history in a file, so that recover-file
     also reinstalls buffer's undo history.
  ** Static menu bars, and better pop-up menus.
  -- END QUOTE -------------------------------------------------------

  Epoch currently supports much of the new functionality of GNU Emacs
  v19, including some features that apparently won't be immediately
  available in GNU Emacs v19 (notably, associating property lists with
  regions of text, and multiple fonts/colors/pixmaps defined by those
  properties).

  A postscript to this answer is a message that Richard Stallman
  (Mr. Gnu himself) posted to gnu.emacs.help in Apr 1992:

  -- BEGIN QUOTE -----------------------------------------------------
  Emacs 19 won't support text highlighting, but a later version will.

  We have code basically working for attaching arbitrary properties to
  parts of the text, including choice of font and color.

  This feature is designed for attributes which are considered part of
  the text itself.  What Epoch provides is highlighting that is part
  of the presentation of the text, not logically part of the text itself.
  That is useful also; I hope we will find the wherewithal to implement
  that along with the other highlighting features.
  -- END QUOTE -------------------------------------------------------

  There is also a version of Emacs 19 written by Lucid.  Called "Lucid
  Emacs", this is something from its README about it:

  -- BEGIN QUOTE -----------------------------------------------------
  Lucid GNU Emacs 19.3 is now available.  This is a version of GNU
  Emacs derived from an early version of Emacs version 19 from the
  Free Software Foundation.

  You can get it via anonymous FTP from the host labrea.Stanford.EDU
  (36.8.0.47). It is currently available only by FTP.  We don't have
  the manpower to make tapes right now.

  Log in with the user "anonymous" and "username@host" as a password
  (that is, your email address.)  Execute the command "cd
  pub/gnu/lucid/".  These are the files you will find there:

  lemacs-19.3.tar.Z
        The complete source distribution.  This file is about 8 megabytes.
        When untarred and uncompressed, the source distribution will take up
        about 20 megs. You will need an additional 12 megs or so to compile it.

  lemacs-19.3-sun4.tar.Z
        This is a ready-to-run set of Sun4 executables, and a DOC file.  If
        you want to use these executables, you will still need to get the file
        lemacs-19.3.tar.Z, because Emacs cannot function very well without the
        lisp library online.  This file is about 1.7 megs, 3.8 megs when
        unpacked, 3 megs of which is the Emacs executable itself (2.1 megs if
        stripped.)

  Don't forget to set "binary" mode when transferring these files.
  Unpack them with some variation of the command "zcat
  lemacs-19.3.tar.Z | tar -vxf -".

  .... [edit out info on lucid emacs mailing lists] ....

  Why Another Version of Emacs?
  =============================

  Lucid's latest product, Energize, is a C/C++ development
  environment.  Rather than invent (and force our users to learn) a
  new user-interface, we chose to build part of our environment on top
  of the world's best editor, GNU Emacs. (Though our product is
  commercial, the work we did on GNU Emacs is free software, and is
  useful without having to purchase our product.)

  We needed a version of Emacs with mouse-sensitive regions, multiple
  fonts, the ability to mark sections of a buffer as read-only, the
  ability to detect which parts of a buffer has been modified, and
  many other features.

  Why Not Epoch?
  ==============

  For our purposes, the existing version of Epoch was not sufficient;
  it did not allow us to put arbitrary pixmaps/icons in buffers,
  `undo' did not restore changes to regions, regions did not overlap
  and merge their attributes in the way we needed, and several other
  things.

  We could have devoted our time to making Epoch do what we needed
  (and, in fact, we spent some time doing that) but, since the FSF
  planned to include Epoch-like features in their version 19, we
  decided that our efforts would be better spent improving Emacs19
  instead of Epoch.

  Our original hope was that our changes to Emacs would be
  incorporated into the "official" v19.  However, scheduling conflicts
  arose, and we found that, given the amount of work still remaining
  to be done, we didn't have time to merge with the FSF's code.
  Consequently, we have released our work as a forked branch of Emacs,
  instead of delaying any longer.

  It seems likely that a merger of Epoch and Lucid Emacs will occur in
  the not-too-distant future.
  -- END QUOTE -------------------------------------------------------


*                     === CONFIGURING EPOCH ===

B-1: How can my .emacs file deal with both GNU Emacs and Epoch?

  An easy way to handle both GNU Emacs and Epoch within the same .emacs
  file is to define a variable 'running-epoch' as follows:

  (defvar running-epoch (boundp 'epoch::version))

  Then, the rest of your .emacs file can look like this:

    (if running-epoch
      (progn
        ... [Epoch-specific code here] ...
    ))

  ... [Emacs code here] ...

  (After this, when I refer to 'your .emacs file', read that as 'the
  Epoch-specific portion of your .emacs file', under the assumption that
  you have both general and Epoch-specific parts as detailed above.)

  If you have a large amount of Epoch-specific code it may be better to
  put it in a separate file (e.g., "epoch-specific.el"), possibly
  byte-compile it, then load it from your .emacs file like so:

    (if (boundp 'epoch::version) (load "epoch-specific"))

B-2: What if I want to have separate sections for Epoch 3.2 and 4.0 in
 my .emacs file?

  The variable 'epoch::version' is a string that contains the current
  Epoch version ID.  For instance, evaluating epoch::version under
  Epoch 4.2 gives:

  "Epoch 4.2"

  A simple way to determine if version 4.x is running is to do something
  like this:

    (string-match " 4" epoch::version)

  This will result in 't' if the string " 4" is a substring of
  epoch::version (as would be the case when epoch::version is
  "Epoch 4. ..."), and 'nil' otherwise.

B-3: How can I configure Epoch to support full 8-bit character sets?

  There are two parts to this: display and input.

  Display is handled by the variables "meta-printable" and
  "ctl-arrow".  From the documentation string for "meta-printable":

  Non-nil means meta characters, that is characters in the range
  0240..0377, are printable.  Nil means display meta chars  with
  backslash and octal digits.  Automatically becomes local when set in
  any fashion.

  From the documentation string for "ctl-arrow":

  t means display control chars with uparrow. Nil means use backslash
  and octal digits. Automatically becomes local when set in any
  fashion.

  Input is handled by the flag "EIGHTBIT_KEYBOARD", which is set in config.h:

  /* Define EIGHTBIT_KEYBOARD if you want keys in range 0240 to 0377
   * to insert corresponding eight-bit characters.
   */
  /* #define EIGHTBIT_KEYBOARD */

  Define this flag only if you are using a keyboard with direct
  support for 8-bit characters.

*                          === WINDOWS ===

C-1: How do I get the minibuffer back at the bottom of my edit window?

  Start Epoch with the command-line option '-nm'.  Alternately, in your
  general .Xdefaults file, specify:

    epoch.nonlocal.minibuf: False

C-2: How do I prevent the initial edit window from appearing?  (In
 other words, how do I get only the minibuffer upon startup?)

  There is a variable that controls whether or not an initial edit
  window will be provided. By default, of course, one is; to stop this
  from happening, put the following in your .emacs:

    (setq inhibit-initial-screen-mapping t)

  This will have no effect if you're using local minibuffers (i.e. when
  the minibuffer is a part of each edit window), as described above.

  [Thanks to Chris Love ([e-mail]).]

C-3: How do I stop the windows from automatically raising upon entry?

  Specify the following in your .emacs file:

    (setq auto-raise-screen 'minibuf)

  This makes the minibuffer raise when an Epoch edit window is
  entered; if you don't want the minibuffer to raise itself either, do
  the following instead:

    (setq auto-raise-screen nil)

C-4: How do I change the cursor?

  Another noticeable change from GNU Emacs is the cursor glyph (which is
  a pencil shape).  To change this to a more normal-appearing arrow
  shape, put this in your .emacs file:

    (cursor-glyph 68)
    (cursor-glyph 68 (epoch::minibuf-screen))
    (push '(cursor-glyph . 68) epoch::screen-properties)

  NOTE: You can specify a different cursor glyph for the minibuffer,
  if you like.

  There are also X resources for the screen and minibuffer cursor
  glyphs; equivalent to the above elisp code would be the following (in
  your .Xdefaults file):

    epoch.screen.cursor.glyph: 68
    epoch.minibuf.cursor.glyph: 68

  For either of these approaches, any valid cursor ID number will do; to
  see the available cursors and their ID numbers, take a look at the
  file /usr/include/X11/cursorfont.h.

  (See below for details on how to customize the cursor glyph based on
  the mode of a screen's initial buffer.)

C-5: How do I define edit screen attributes on a per-mode basis?  Or,
 how do I make my C++ edit windows come up with 48 lines and a big
 round dot for a cursor?

  You can define styles for new edit screens created with
  find-file-other-screen (which is, by default, bound to 'C-z 4 C-f' and
  'C-z 4 f') based on the initial buffer's mode like so:

    (setq epoch-mode-alist
      (append (list
          (cons 'c-mode
            (list
              (cons 'geometry "80x52")
              (cons 'cursor-glyph 94)))
          (cons 'LaTeX-mode
            (list
              (cons 'geometry "90x48")
              (cons 'cursor-glyph 58)))
          (cons 'c++-mode
            (list
              (cons 'geometry "80x48")
              (cons 'cursor-glyph 38))))
        epoch-mode-alist))

C-6: How do I make Epoch manage edit window and icon names based on the
 name of the current buffer(s)?

  The base Epoch distribution doesn't support this, but there have
  been a number of small packages written that accomplish this.  There
  is one written by Derek Ney ([e-mail]) up for
  anonymous FTP at ftp.ncsa.uiuc.edu (141.142.20.50) as
  /outgoing/marca/epoch/derek-title.el.Z.  Another one can be found in
  the epoch sources at ftp.uu.net (in the directory
  /languages/emacs-lisp/epoch).

C-7: How do I iconify my entire Epoch session at once?

  By default, 'C-z i' is bound to iconify-screen, which only iconifies
  the current edit window.  To iconify everything, define a small
  function iconify-everything in your .emacs file like so:

    (defun iconify-everything ()
      "Iconify entire Epoch session at once."
      (interactive)
      (dolist (s (screen-list))
        (iconify-screen s))
      (iconify-screen 0)
    )

  Then bind it to a key sequence (e.g. 'C-z C-i') like so:

    (global-set-key "\C-z\C-i" 'iconify-everything)

C-8: Does Epoch support scrollbars?

  No; native support for scrollbars is a technical challenge that so far
  no one has taken up for either GNU Emacs or Epoch.

  Alternatively, pick up the widgets package from cs.uiuc.edu, in
  pub/epoch-files/widgets/widgets.tar.Z.  This is a Motif-only "widget
  server" that epoch can talk to.  It will produce a nice Motif
  scroll-bar on the side of your epoch screen.  It does a lot more,
  but as far as I can tell, that's all it does out of the box (i.e.,
  without writing some lisp code).  Somebody correct me if I'm wrong,
  here.

  [Thanks to Pierre Bondono ([e-mail]) for the following:]

  Related to this, there is a ``scrolling concept'' inside the IMOUSE
  packages that may be of interest.  IMOUSE can be found via anonymous
  FTP from ireq-robot.hydro.qc.ca (131.195.2.130); see question H-1
  below.

C-9: My workstation's screen area is overwhelmed by all the windows I
 create in my Epoch editing sessions.  How can I squeeze more windows
 into my working environment?

  This is only a half-facetious question; there's only room on most
  workstation screens (usually 1024x768 or 1280x1024 pixels in area) for
  a couple of windows with decent-sized fonts.  To help alleviate the
  discomfort of cramped space, try the 'tvtwm' window manager.  (I sound
  like a cough-drop commercial.)

  Tvtwm, a superset of the twm window manager, allows windows to be
  placed on a virtual root window that can be of any size (for example,
  3000 by 3000 pixels).  This virtual root can be navigated via tvtwm's
  'panner', a reduced-size overview of your entire environment.

  Tvtwm can be found on your local comp.sources.x archive or in the
  X11R4 and X11R5 distributions.  Try anonymous FTP to ftp.uu.net
  (137.39.1.9) in /usenet/comp.sources.x.

  For those people that actually like the OpenLook window manager :-),
  a similarly modified version of Olwm can be found in ftp.uu.net
  /usenet/comp.sources.x/volume14/olvwm (and a lot of other places,
  too).

  People running on HP workstations can use the rooms metaphor built
  into the vuewm.  A similar, but less powerful alternative is the vr
  program in the contrib directory at export.lcs.mit.edu.  It,
  however, doesn't support spreading epoch windows around different
  rooms.

*                      === COLORS AND FONTS ===

D-1: How do I interactively select my foreground color?

  First, define a style for each of your desired foreground colors in
  your .emacs file, like so:

    (setq red-style (make-style))
    (set-style-foreground red-style "red")

  Then, define a short command 'goto-style' like so:

    (defun goto-style (newstyle)
      "Set current buffer to a given font NEWSTYLE."
      (setq buffer-style newstyle)
      (redraw-display))

  Next, bind commands to keys like so:

    (global-set-key "\C-c1" (definteractive (goto-style red-style)))

  This binds a command that changes the current foreground color to red
  to the key sequence C-c 1.

  The following function allows you to interactive specify a new color
  for the current buffer's foreground:

    (defun set-foreground (newfg)
      "Set current foreground color to NEWFG."
      (interactive "sForeground color: ")
      (set-style-foreground buffer-style newfg)
      (redraw-display))

  This function is activated by typing:

    M-x set-foreground

  Or, it can be bound to a key like so:

    (global-set-key "\C-z\C-s" 'set-foreground)

D-2: How do I switch fonts interactively?

  To change fonts, you don't have to define new styles.  Just define a
  short command 'goto-font', like so:

    (defun goto-font (newfont)
      "Set current buffer to a given font NEWFONT."
      (font newfont)
      (redraw-display))

  Then, bind commands to keys like so:

    (global-set-key "\C-c1" (definteractive (goto-font "8x13")))

  This changes the current edit window's font to "8x13" when the key
  sequence 'C-c 1' is entered.

  The following function allows you to interactively input a font name:

    (defun set-font (newfont)
      "Set current font to NEWFONT."
      (interactive "sFont name: ")
      (font newfont)
      (redraw-display))

  This function is activated by typing:

    M-x set-font

  Or, it can be bound to a key like so:

    (global-set-key "\C-z\C-s" 'set-font)

  If the font you specify with either of these methods isn't valid for
  your X server (i.e. if the font doesn't exist in a directory listed in
  your X server's font path and in that directory's fonts.dir file, or
  isn't available from the font server if you're running X11R5), you
  will get this message in your minibuffer:

  Bad font name

  Font names are ordinary X font names; for example, a 14-point non-bold
  non-italic Helvetica font can be referred to as:

  "*helvetica-medium-r-normal--14*"

  The standard X client 'xlsfonts' will give you a list of the fonts
  registered with your X server.  The standard X client 'xfontsel' lets
  you interactively put together an X font specification string based on
  individual attributes (e.g., family, size).

D-3: How can I associate a certain foreground color with a file
 so that every time I load that file my foreground color is
 automatically set?

  You can easily do this by using GNU Emacs' ability to handle file
  variables.  For example, if you have defined style 'red-style' to
  specify a red foreground color, and want file 'foobar.c' to always
  have the foreground color red, add this to the bottom of 'foobar.c':

    ^L
    /*
    Local Variables:
    buffer-style: red-style
    End:
    */

  NOTE: '^L' is a newline character; you can enter one in an edit
  buffer by typing 'C-q C-l'.

  Then, whenever 'foobar.c' is loaded, the variable 'buffer-style' will
  be set to 'red-style', and as a result the foreground color for that
  buffer will be red.

D-4: How do I design my own really funky technicolor modeline?

  Using the tried-and-true Learning By Example(tm) educational method,
  I'll just give the (heavily commented) elisp code I use to define my
  own customized modeline:

  ;; A style to emphasize things I find important
  (defvar mode:*hilight-style*  (make-style)
    "Style for modeline hilights"
  )
  (let ((s1 mode:*hilight-style*))
   ;; Do something reasonable if we're on a monochrome screen
    (if (> (epoch::number-of-colors) 2)
        (progn
      (set-style-foreground s1 "#83558c")
      (set-style-background s1 (foreground)))
      (progn
      (set-style-foreground s1 (background))
      (set-style-background s1 (foreground))))
    (set-style-font s1 "*helvetica-bold-r-*-*-12-*")
  )

  ;; A style for normal modeline contents -- inverted from normal
  ;;  buffer
  (defvar mode:*normal-style* (make-style)
    "Normal modeline style"
  )
  (let ((s2 mode:*normal-style*))
    (set-style-foreground s2 (background))
    (set-style-background s2 (foreground))
    (set-style-font s2 "*helvetica-medium-r-*-*-12*")
  )

  ;; define  a simpler-looking modeline format
  (setq default-mode-line-format
    (list
      ""
      'mode:*normal-style*
      'mode-line-modified
      ;; Highlight the buffer name
      'mode:*hilight-style*
      " %17b"
      'mode:*normal-style*
      "   "
      'global-mode-string
      "   %[("
      'mode-name 'minor-mode-alist "%n" 'mode-line-process
      ")%]--"
      ;; Highlight where we are in the buffer
      'mode:*hilight-style*
      (cons -3 "%p")
      'mode:*normal-style*
      "-%-"
      )
    )


D-5: How do I replace the mouse region selection underlining with a
 different style?

  The appearance of the region underlined with the mouse is described
  by the style in the variable "motion::style".  You can use the
  normal style functions to manipulate this variable.  For example,
  you can turn off underlining with the following:

    (set-style-underline motion::style nil)

  Now, nothing will show up.  To have just the text foreground color
  change on mouse selection, do:

    (set-style-foreground motion::style "yellow")
    (set-style-background motion::style (background))

  Replace "yellow" with any desired X color name.

  To have the selected region appear as reverse video, try:

    (set-style-foreground motion::style (background))
    (set-style-background motion::style (foreground))

  To have the selected region appear with an overlayed diagonal stipple
  pattern, try:

    (set-style-background motion::style "red")
    (set-style-background-stipple motion::style
      (make-bitmap 4 4 "\167\273\335\356"))

  The style bound to motion::style has default settings as follows:

    (set-style-foreground motion::style (foreground))
    (set-style-background motion::style (background))
    (set-style-underline motion::style (foreground))

*                           === MENUS ===

E-1: Does Epoch support popup menus or menubars?

  The base Epoch distribution does not have native support for popup
  menus or menubars.  However, there are other ways to use menus with
  Epoch.

  METHOD #1:

  If you're running the window manager GWM (available via anonymous
  FTP to export.lcs.mit.edu (18.24.0.12) in /contrib/gwm), you can use
  the Epoch contrib 'wm-menu' package (found in the contrib tar file
  on cs.uiuc.edu) to have GWM provide menus that pass messages to
  Epoch.

  METHOD #2:

  If you're running a window manager that has user-specifiable menus
  (as all of the common window managers do), you can perform
  particular commands from a menu.  These commands can communicate
  with epoch, and get it to do things.

  One way to do this is to use "xse" (XSendEvent) and send characters
  that happen to be bound to the commands you want to activate.  To
  bind arbitrary commands to menu entries in this manner, you need to
  define a unique keystroke pattern (with global-set-key) for each
  command and then send that keystroke pattern with xsendevent via the
  menu.  See the section on rebind-key (below) for more information on
  this technique.  (Of course, you are also free to have xsendevent
  send a key sequence like 'ESC x u n d o RET' directly to Epoch.)

  A better way is to use gnudoit, which communicates to gnuserv.
  Gnuserv, gnuclient, and gnudoit are replacements for emacsclient and
  its server.  With gnudoit, you can pass in an Emacs Lisp form to
  evaluate, rather than the less readable X Event description for a
  key binding.

  Some window managers (such as TWM) do not allow the user to specify
  client-specific menus -- you can only add menus to all clients.
  This is not an ideal solution, since all windows (Epoch or not) in
  the session will have the menu attached to them, but it does work
  and is quite convenient for use with Epoch.  Other window managers
  (Mwm in particular) allow you to specify a menu on a
  client-by-client basis.  Thus, you can have different menus on
  terminal windows from on Epoch (Mwm will even let you have different
  menus on different screens and on the minibuffer).

  Here's a couple of sample Twm menu descriptions.  Note that these
  would show up on all applications that have title bars.

  menu "epoch"
  {
    "Epoch Menu"   f.title
    "Undo"         ! "xse 'Ctrl<Key>x' '<Key>u'"
    "Quit"         ! "xse 'Ctrl<Key>x' 'Ctrl<Key>c'"
  }
  LeftTitleButton "~/epochbitmap.bm" = f.menu "epoch"

  Or, using gnudoit (notice the more readable function names):

  menu "epoch"
  {
    "Epoch Menu"   f.title
    "Undo"         ! "gnudoit '(undo)'"
    "Quit"         ! "gnudoit '(save-buffers-kill-emacs)'"
  }
  LeftTitleButton "~/epochbitmap.bm" = f.menu "epoch"


  Here's an equivalent Mwm menu, along with resources that will place
  the menu only on Epoch windows.

  This goes in your Mwm config file:
  Menu EpochMenu
  {
      "Epoch" f.title
      "Undo"  ! "gnudoit '(undo)'"
      "Quit"  ! "gnudoit '(save-buffers-kill-emacs)'"
  }

  This goes in your X defaults:
  Mwm*epoch*windowMenu: EpochMenu

  Note the "*epoch*" -- this is the class name of the screen.  If you
  use the -name or -rn options (as described in A-6), this name will
  change.  See the "class" attribute of screens in the epoch manual
  for more on this.

  You can get xsendevent at export.lcs.mit.edu (18.24.0.12) in /contrib
  or at ftp.uu.net (137.39.1.9) in /packages/X/contrib.  Gnuserv,
  gnuclient and gnudoit are available at ee.utah.edu, in
  /emacs/etc/gnuserv (and probably other sites, too, but I can't find
  any with Xarchie -- anyone got a good one?).

  [From Philippe Bondono ([e-mail])., with Mwm and
  gnuclient additions by Brook]

  METHOD #3:

  A completely different technique involves using a separate X client
  that posts a menu and has Epoch (or for that matter, GNU Emacs)
  receive commands from it.  One example of this technique is
  /gnu/emacs/buttons.tar.Z from anonymous FTP to aix370.rrz.uni-koeln.de
  (134.95.132.2).

  METHOD #4:

  Another method uses xmenu or xmenu2, which are available at any
  comp.sources.x archive.  (If you don't know of such an archive, try
  anonymous FTP to ftp.uu.net (137.39.1.9) in /usenet/comp.sources.x.)
  After you have compiled xmenu or xmenu2, define the following function
  in your .emacs file:

  (defun interpret-output (process output)
    (command-execute (car (read-from-string output))))

  Then you can define other functions that make specific menus, with
  menu entries bound to commands, like the following example shows:

  (defun make-menu ()
    (interactive)
    (set-process-filter (start-process "xmenu" nil
        "/usr/local/bin/xmenu" "-heading" "Epoch Menu"
        "Undo=undo")
      'interpret-output))

  This example uses /usr/local/bin/xmenu to post a one-entry menu to the
  screen; the menu entry's label is "Undo" and the action it triggers in
  Epoch is 'undo'.  Specify as many "Label=action" pairs as you like as
  part of the start-process command.

  [From Philippe Bondono ([e-mail]).]

  If you use XView/Open Windows, Dev Joneja ([e-mail])
  has written a menu/button client similar to xmenu; it's available via
  anonymous FTP from ftp.ncsa.uiuc.edu (141.142.20.50) as
  /outgoing/marca/epoch/xvmenu.tar.Z.

  Bob Weiner ([e-mail]) says the following concerning menus
  within Hyperbole:

  ----------------------------------------------------------------------
  If you use Hyperbole, you know what the Smart Key system is, context
  sensitive key bindings for many Emacs modes and subsystems.  There is
  a Smart Menu system that goes along with this but has not been
  released because it needs some additional menus and some integration
  work.  It is window manager and window system independent, works under
  Emacs, with a slightly customized version that can highlight selected
  menu items and display menus in a separate Epoch screen, and is
  written entirely in Elisp, so no patching is needed.  It provides much
  easier subsystem access for novices and experienced users and has been
  in use at a few sites for the last several years.

  I'd like to get it in a form for release but won't have the time for
  several months.  If an experienced Elisp programmer wanted to
  integrate it with Hyperbole and make any other changes, I [Bob, not
  Marc] would be willing to send it out and coordinate on and test the
  final changes.
  ----------------------------------------------------------------------

  See the list of FTP sites below for more information on Hyperbole.

*                          === KEYBOARD ===

F-1: How do I make the backspace key work properly?

  This is actually a GNU Emacs question, but it's included in this FAQ
  because it's probably more important to more people than all the
  other questions here.  (One of the great mysteries of GNU Emacs is
  why the backspace key _still_ doesn't do its job.)

  Here are four ways to fix this:

  METHOD #1:

  Put this in your .emacs file:

    (rebind-key "BackSpace" nil "\C-?")

  This is the cleanest Epoch-specific solution.  It rebinds
  the X representation for the backspace key directly to that
  of the delete key.

  [Thanks to Joe Wells ([e-mail]).]

  METHOD #2:

  Put this in your .emacs file:

    (global-set-key "\C-^bdc" 'backward-delete-char-untabify)
    (rebind-key "BackSpace" nil "\C-^bdc")

  This rebinds the X representation for the backspace key to the
  appropriate command for deleting a character backward.  Like the
  first method, this is Epoch-specific.

  If you don't like to have your backspace key also untabify (i.e.,
  convert tags to spaces on the fly), use this instead of the previous
  global-set-key:

    (global-set-key "\C-^bdc" 'backward-delete-char)

  METHOD #3:

  Put this in your .emacs file:

    (global-set-key "\C-h" 'backward-delete-char-untabify)
    (global-set-key "\C-xh" 'help-command) ; override mark-whole-buffer

  This makes C-h (the backspace key as well as the Control-h key
  sequence) delete characters backward, and shifts responsibility for
  help to C-x h.  This fix will work for GNU Emacs as well as Epoch.

  If you don't like to have your backspace key also untabify (i.e.,
  convert tabs to spaces on the fly), use this instead of the previous
  global-set-key for C-h:

    (global-set-key "\C-h" 'backward-delete-char)

  METHOD #4:

  Outside of Epoch, you can change the X representation of the
  BackSpace key into a Delete by doing this:

    xmodmap -e "keysym BackSpace = Delete"

  This approach has the disadvantage of not being done inside
  of Epoch for those who prefer customizing lisp code to
  customizing their system environments.

  [Thanks to Joe Wells ([e-mail]).]

F-2: How do I make the keys marked "Page Up" and "Page Down" on an IBM
 Selectric-style keyboard do their jobs?

  Using the key rebinding facility discussed below, you can put the
  following two lines in your .emacs file:

    (rebind-key "Prior" nil "\M-v") ; Note Prior, not Page Up.
    (rebind-key "Next" nil "\C-v")  ; Note Next, not Page Down.

  Similarly, if you want "Home" and "End" to go to the beginning and end
  of the current buffer respectively, do:

    (rebind-key "Home" nil "\M-<")
    (rebind-key "End" nil "\M->")

F-3: How do I bind keys in the numeric keypad on an IBM Selectric-style
 keyboard to their obvious functions (arrow movement, home, end, etc.)?

  Put these lines in your .emacs file:

    (rebind-key "KP_Home" nil "\M-<")
    (rebind-key "KP_Up" nil "\C-p")
    (rebind-key "KP_Prior" nil "\M-v")
    (rebind-key "KP_Left" nil "\C-b")
    (rebind-key "KP_Begin" nil "\C-l")
    (rebind-key "KP_Right" nil "\C-f")
    (rebind-key "KP_End" nil "\M->")
    (rebind-key "KP_Down" nil "\C-n")
    (rebind-key "KP_Next" nil "\C-v")

  NOTE: This makes the keypad arrow keys work, the keypad PgUp/PgDown
  work, and the keypad Home/End go to the beginning/end of the
  buffer.

  Other keys appropriate for rebinding in a Selectric-style numeric
  keypad include KP_Divide, KP_Multiply, KP_Subtract, KP_Add, KP_Enter,
  KP_Insert, and KP_Delete; see below for more details.

F-4: What general facilities does Epoch provide for rebinding function
 keys, and how do I use them?

  The rebind-key function allows you to rebind any keycode to a new
  string.  An example is probably best to show how this works.  To make
  the key marked "Page Up" (on IBM Selectric-style keyboards) actually
  move the current buffer up a page (like M-v), do:

    (rebind-key "Prior" nil "\M-v")

  Note that "Prior" is the actual X keysym name for the "Page Up" key;
  to see the X keysym names, refer to /usr/include/X11/keysymdef.h (or
  $OPENWINHOME/include/X11/keysymdef.h on OpenWindows systems).
  (Disregard the leading XK_ in keysymdef.h's definitions for Epoch's
  purposes; thus, X11's "XK_Prior" becomes Epoch's "Prior".  To find out
  which keys are actually active for your keyboard and server, use the
  command "xmodmap -pk".)

  The standard function keys are named F1 through F12, the function keys
  on the left side of a Sun-style keyboard are named L1 through L10, and
  so on.  The keypad apparently cannot be addressed by KP_0 through KP_9
  but must be referenced by names like KP_Left, KP_Up, and so on.

  A simple two-step approach for binding function keys to commands
  involves binding a key to an arbitrary GNU Emacs key encoding (in the
  following example, C-^ k 1) and then binding that encoding to the
  command.  An example that binds the function key marked "End" to an
  arbitrary command (in this case, end-of-line) follows:

    (rebind-key "End" 0 "\C-^k1")
    (global-set-key "\C-^k1" 'end-of-line)

  Note that the above is only an example of the two-step method; if you
  really want "End" to do 'end-of-line, do the obvious instead:

    (rebind-key "End" 0 "\C-e")

  The rebind-key command allows modifiers (e.g. shift, control) to be
  specified; the following example binds Control-"End" to an arbitrary
  command (in this case, end-of-buffer):

    (rebind-key "End" 'control "\C-^Ck1")
    (global-set-key "\C-^Ck1" 'end-of-buffer)

  For an example of these principles in action, see the file
  'amc/keys.el' in the 3.2 contrib directory (which is still up for
  anonymous ftp at cs.uiuc.edu as a separate .tar.Z file) or at
  ftp.ncsa.uiuc.edu in /outgoing/marca/epoch.

  [Thanks to Alan Carroll ([e-mail]).]

F-5: I want Epoch to disregard accidental presses of function keys that
 insert spurious characters (e.g., "-1~") into the buffer.  Does Epoch
 perchance have some magical way to make this happen?

  Perchance, Epoch does.  The variable epoch::function-key-mapping, if
  set to nil, makes Epoch disregard such keys, unless they're explicitly
  rebound with rebind-key.  You can set this in your .emacs file like
  so:

    (setq epoch::function-key-mapping nil)

  [Thanks to Alan Carroll ([e-mail]).]

F-6: How do I turn the keyboard bell off?

  The easy answer is to put the following line in your .emacs file:

    (setq epoch::bell-volume -50)

  Another possibility, if you like visual bells (i.e., having the
  entire edit window flash reverse video instead of hearing an audible
  beep), is to put the following in your .emacs file:

    (epoch::set-bell t)

  The malicious answer, for those who, like myself, never want to hear
  another beep for the rest of time, is to modify src/x11term.c in the
  Epoch distribution; just change the line that reads:

    XBell (xs->display,volume);

  To:

    /* XBell (xs->display,volume); */

  Then recompile.

*                        === HIGHLIGHTING ===

G-1: How do I highlight regions of text in a buffer with different styles?

  While the current Epoch distribution contain plenty of support for
  zones and styles, the enabling mechanisms that make syntax-directed
  highlighting possible, no intrinsic support for such highlighting is
  provided.  This situation may change in subsequent releases of Epoch.

  Three packages that provide varying degrees of support for
  syntax-directed highlighting are:

  tek-highlight-2.0.tar.Z (available from archive.cis.ohio-state.edu
  or ftp.ncsa.uiuc.edu, see below), which supports comment highlighting
  in source code as well as support for the Info documentation browser,
  various mail and news packages, and manual pages.

  lightbrite.tar.Z (available from ftp.ncsa.uiuc.edu, see below),
  written by Marc Andreessen to allow per-mode regexp-based
  highlighting.  Thus, you can have all #define's/#endif's in red,
  setq's and defun's in green, int/float/double's in yellow, '-->'s in
  purple, and so on.  Here's something from its README:
   o Accurate comment highlighting.
   o Regexp touchup highlighting.
   o Easy specification of visual attributes of multiple
      highlighting styles.
   o Instant highlighting (as you type) with adjustable
      responsiveness.
   o Buffer size thresholds for both comment and touchup
      highlighting.
   o Use of minor mode and local keymaps.
   o Re-highlight visible screen, current paragraph, current
      function, immediate area, or entire buffer.
   o Large assortment of default mode-specific highlighting
      patterns.
   o Automatic highlight on find-file and/or write-file.
   o Special handling of mail and rmail modes.
   o Works with both Epoch and Lucid Emacs transparently.

  hilit.el.Z (most recent version was posted to gnu.emacs.souces and is
  available from ftp.ncsa.uiuc.edu, see below), which provides
  source-code comment and regexp highlighting.

*               === EPOCH-SPECIFIC ELISP PACKAGES ===

H-1: Where can I find Epoch-specific elisp packages?

  Try the following anonymous FTP sites for Epoch-specific elisp
  packages:

  aix370.rrz.uni-koeln.de (134.95.132.2)
    /gnu/emacs

  archive.cis.ohio-state.edu (128.146.8.52)
    /pub/gnu/emacs/elisp-archive/elisp
    [This is main elisp-archive site; it is mirrored at
     ftp.uu.net (137.39.1.9) in /languages/emacs-lisp, among other places.
     Not much Epoch code exists here; in particular, a much more
     recent version of hilit.el.Z is at ftp.ncsa.uiuc.edu, below.]

  ftp.cs.buffalo.edu (128.205.32.3)
    /pub
    [This is the distribution site for the new Dired, which will
     be included in Emacs v19; it includes support for Epoch.]

  ftp.ncsa.uiuc.edu (141.142.20.50)
    /outgoing/marca/epoch
    [This is the previous FAQ maintainer's archive of Epoch code; the
     README file gives an overview of what he considers to be
     'essential' Epoch packages, and all of those packages
     are available there.  If he gets out of date on any of
     these and you notice it, please let him know.]

  icsi-ftp.berkeley.edu (128.32.201.55)
    /pub/elisp

  ireq-robot.hydro.qc.ca (131.195.2.130)
    /pub/emacs/lisp
    [This is the distribution site for the IMOUSE package.]

  wilma.cs.brown.edu (128.148.31.66)
    /pub/hyperbole
    [This is the distribution site for the Hyperbole hypertext
     system, which includes support for Epoch.  Also available
     separately from here is the wrolo 'rolodex' package, one of the
     components of Hyperbole.]

  Also see the contrib tar file found at cs.uiuc.edu, in the same
  directory as the actual Epoch distribution.

  Also watch the gnu.emacs.sources Usenet newsgroup, as well as the
  epoch newsgroup/mailing list (see below).

  Please volunteer the names of any sites not on this list.

H-2: Where can I get a PostScript version of the Epoch manual?

  Use anonymous ftp to cs.uiuc.edu (128.174.252.1) in
  /pub/epoch-files/epoch; get epoch-4.0.epoch-man.ps.Z.

*                      === OTHER RESOURCES ===

I-1: What Epoch newsgroups/mailing lists are out there?

  The Usenet newsgroup gnu.epoch.misc and the mailing list
  [e-mail] are one and the same.  To join the mailing list,
  send a request to [e-mail].  (It is best to read the
  newsgroup if you have access to it, to save on network resources and
  the mailing list maintainer's time.)

  For more general information about Epoch and GNU Emacs, see the list
  of resources at the start of this file.

I-2: Where do I send bug reports?

  Either post to the newsgroup gnu.epoch.misc, or (equivalently) send
  mail to [e-mail] (which is the newsgroup).

*                     === ADVANCED QUESTIONS ===

  [NOTE: This section is at the bottom since the questions involve
  actual source-code hacking or problems with specific machine
  configurations that the FAQ moderator cannot personally verify and
  whose solutions will probably involve some sort of hacking.  If
  these answers helped you, please let me know.  If I don't hear of
  people finding these useful, I'm going to remove them.]

Z-1: Epoch 4.0b1 (or later) (as well as GNU Emacs 18.58) built under
 HP-UX 8.0 and 8.05 apparently don't recognize the Meta key as Alt.
 How can this be fixed?

  Bob Fisher ([e-mail]) suggests the following command,
  executed once per session, prior to starting Epoch:

          xmodmap -e "clear mod1"        \
                  -e "add mod1 = Meta_R" \
                  -e "add mod1 = Meta_L"

Z-2: Why do all of Epoch's colors go away when Epoch is run on an X11R5
 server with multiple screens?

  Dana Chee ([e-mail]) reports that X11R5 has a new
  SCREEN_RESOURCES property that allows/forces colors to only appear for
  color screens, but Epoch doesn't look at this property.  This bug
  will only bite you if you're running on a multi-screen system.  If it
  happens, there is a workaround; see the xrdb manpage and the xrdb
  option '-all'.

Z-3: Even though Epoch 4.0b1 includes fixes to keep the cursor from
 disappearing (as it does on occasion, especially in a shell, in
 Epoch 4.0b0), the cursor still disappears sometimes.  Is there a fix
 for this?

  First, Epoch 4.0p0 has additional fixes for this problem which
  presumably will supersede the fix given below.

  According to Michael Thome ([e-mail]), activating the XFlush
  code at the end of the CursorToggle routine in 4.0b1's x11term.c seems
  to fix the problem.  (In other words, '#if 0' on line 737 of x11term.c
  should be changed to '#if 1'.)

Z-4: I want Epoch to iconify itself immediately upon starting.  To this
 end, in my .emacs file I have (epoch::iconify-screen).  But most
 (~95%) of the time this doesn't work.  How can I make it work all the
 time?

  The technical explanation appears to be that the initial Epoch
  minibuffer and edit screen are unmapped after creation to set some
  properties for ICCCM purposes and then remapped, and this interferes
  with the iconification process.

  One workaround (that may or may not work for you) is to add a sit-for
  command to your .emacs file right before epoch::iconify-screen; for
  example:

    (sit-for 15)
    (epoch::iconify-screen)

  [Thanks to Bobby Bodenheimer ([e-mail]), Simon Kaplan
  ([e-mail]), and Chris Love ([e-mail]).]

*                        === CONTRIBUTORS ===

--> Thanks to the following people for contributing to this FAQ
    (whether knowingly or not :-) as well as anyone else I may have
    inadvertently forgotten to list:

  Bobby Bodenheimer ([e-mail])
  Philippe Bondono ([e-mail])
  Martin Boyer ([e-mail])
  Alan Carroll ([e-mail])
  Nhi Casey ([e-mail])
  Dana Chee ([e-mail])
  Alice Chen ([e-mail])
  Bob Fisher ([e-mail])
  Jerry Graves ([e-mail])
  Dev Joneja ([e-mail])
  Simon Kaplan ([e-mail])
  Tor Lillqvist ([e-mail])
  Chris Love ([e-mail])
  Simon Marshall ([e-mail])
  Rob McCool ([e-mail])
  Michael Thome ([e-mail])
  Bob Weiner ([e-mail])
  Joe Wells ([e-mail])

    Thanks particularly to Jerry Graves for much FAQ work.

    Thanks also to all the people who have spent time and effort
    developing Epoch and associated packages.

    And thanks most especially to Marc Andreessen [e-mail],
  the previous maintainer of this FAQ, who has gone on to greater
  glory, working directly with the epoch team.

----------------------------------------------------------------------


Brook Conner        | Klacktoveedsedstene
Brown Computer Graphics    | Fortune sez: Brook's Law -- Adding manpower to a late
[e-mail]         |      software project makes it later
uunet!brunix!dbc [e-mail]   Box 1910 Brown U Prov RI 02912