how to bind C-H to rubout in lisp-listeners

[starnet!bass!lakin@apple.com (Fred Lakin)]

I now spend alot of my time on other keyboards and have lost
the rubout reflex -- replaced by C-H. 

Using the following forms, I have managed to make C-H do rubout in zmacs
buffers and mini-buffers:

  (login-eval
   (set-comtab-return-undo *zmacs-comtab* 	
    '(#\CONTROL-H COM-RUBOUT)))

  (login-eval
   (set-comtab-return-undo *standard-comtab* 
    '(#\CONTROL-H COM-RUBOUT)))

However, the all-important lisp-listener C-H is uneffected. How can
I get that too?

thanks,
-f

starnet!pgc!lakin@apple.com