From xemacs-m  Fri May  2 04:45:21 1997
Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228])
	by xemacs.org (8.8.5/8.8.5) with SMTP id EAA16735
	for <xemacs-beta@xemacs.org>; Fri, 2 May 1997 04:45:20 -0500 (CDT)
Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id LAA11080; Fri, 2 May 1997 11:44:42 +0200
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id LAA27555; Fri, 2 May 1997 11:45:20 +0200
To: xemacs-beta@xemacs.org
Subject: Re: Patch: cperl-mode.el {C-h} changed to {C-c}
References: <199705012215.PAA03547@bittersweet.inetarena.com> <kig7mhihlr6.fsf@jagor.srce.hr> <m2k9liyfu2.fsf@altair.xemacs.org>
Organization: The Church of Emacs
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: 02 May 1997 11:45:20 +0200
In-Reply-To: Steven L Baur's message of 01 May 1997 15:42:29 -0700
Message-ID: <rj911ygqbz.fsf@zuse.dina.kvl.dk>
Lines: 20
X-Mailer: Gnus v5.4.46/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit


Steven L Baur <steve@miranova.com> writes:

> Hrvoje Niksic <hniksic@srce.hr> writes:
> 
> > Both are wrong.  The right solution (at least in XEmacs) is something
> > like:
> 
> > (define-key help-map "f" 'blahblah)
> > (define-key help-map "v" 'blahblah)
> 
> This would define it permanently on that map, right?  I think you
> still need to do some magic to make the bindings only appear in cperl
> buffers.

(mapcar (lambda (key)
	  (define-key cperl-mode-map
	    (apply 'vector (append key '(?f)))
	    'blahblah))
	(where-is-internal 'help-command global-map))

