🚀 go-pugleaf

I'd like to setup epoch so when I create a new screen via C-z 4 C-f, I get
the same icon-pixmap a defined in my .emacs file by:

(epoch::icon-pixmap (expand-file-name "~/bitmaps/epoch.xbm"))

I got the following reply:

> From:	fcaic@wbst845e.xerox.com (Frank Caico)
> In-Reply-To: Timothy Williams's message of Thu, 3 Dec 1992 10:54:11 PST <m0mxLgh-0001aSC@belvoir-ispd2.army.mil>
> Subject: icon-pixmap on new screens
> 
> > From: williams@nvl.army.mil (Timothy Williams) Date: 	Thu, 3 Dec 1992
> > 10:54:11 PST X-Mailer: ELM [version 2.3 PL11]
> > 
> > > > if you just want to do what you stated, put this in your .emacs file: >
> > > (epoch::icon-pixmap >
> > (expand-file-name"/usr/local/X11R5/include/bitmaps/epoch.xbm))
> > 
> > I already have this in my .emacs file.  When I run epoch, the first screen
> > does have the X11 bitmap, but new screens don't.
> 
> OK thats right - do this.
> 
> (defun set-epoch-icon ()
>    (epoch::icon-pixmap 
>       (expand-file-name"/usr/local/X11R5/include/bitmaps/epoch.xbm)))
> 
> (push 'set-epoch-icon *create-screen-alist-hook*)
> 
I put this in my .emacs file and I got "Error in init" when I execute
epoch.  My .emacs file has the epoch specific stuff inside

;; Editor-specific code follows. First epoch, then emacs code.
(defvar running-epoch (boundp 'epoch::version))
(if running-epoch
      ;; epoch-only stuff
      (progn
. 
. 
. 
	   (epoch::icon-pixmap (expand-file-name "~/bitmaps/epoch.xbm"))
	   )

I tried doing 

(push '(epoch::icon-pixmap "/home/williams/bitmaps/epoch.xbm")
*create-screen-alist-hook*)

while in my initial epoch screen,
but when I created a new screen I got "Invalid funcion: (epoch::icon-pixmap
"/home/williams/bitmaps/epoch.xbm")

However, if I do
<ESC><ESC>(epoch::icon-pixmap "/home/williams/bitmaps/epoch.xbm")
in a new screen, when I iconify it I get my bitmap.

I know VERY little lisp, and the epoch manual doesn't mention the function
epoch::icon-pixmap.  Besides a lisp manual, does there exist an emacs/epoch
programmer's manual?

Thanks in advance for any help.
-- 
Tim Williams                                   COM: (703) 704-1685
Night Vision & Electro-Optics Directorate      DSN: 654-1685
AMSEL-RD-NV-ISP (Williams)                     FAX: (703) 704-1705
Ft. Belvoir, VA 22060-5677                  E-MAIL: williams@nvl.army.mil