From xemacs-m  Thu May  1 18:08:45 1997
Received: from newman.aventail.com (root@newman.aventail.com [199.238.236.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA05200
	for <xemacs-beta@xemacs.org>; Thu, 1 May 1997 18:08:44 -0500 (CDT)
Received: from kramer.in.aventail.com.aventail.com (wmperry@[192.168.1.12])
	by newman.aventail.com (8.8.5/8.8.5) with SMTP id QAA05203;
	Thu, 1 May 1997 16:08:43 -0700 (PDT)
To: Hrvoje Niksic <hniksic@srce.hr>
Cc: XEmacs Developers <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> <kigzpueg5cg.fsf@jagor.srce.hr>
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;
From: wmperry@aventail.com (William M. Perry)
Date: 01 May 1997 16:08:43 -0700
In-Reply-To: Hrvoje Niksic's message of 02 May 1997 01:06:23 +0200
Message-ID: <86sp06vlhg.fsf@kramer.in.aventail.com>
Lines: 25
X-Mailer: Gnus v5.4.49/Emacs 19.34

Hrvoje Niksic <hniksic@srce.hr> writes:

> Steven L Baur <steve@miranova.com> writes:
> 
> > > I have no idea what `cperl-define-key' does, but I think it should be
> > > modified to use this mechanism rather than binding "raw" C-h.
> > 
> > It can't.  (Ugh!)
> > 
> > (defmacro cperl-define-key (fsf-key definition &optional xemacs-key)
> >   `(define-key cperl-mode-map
> >      ,(if xemacs-key
> >           `(if cperl-xemacs-p ,xemacs-key ,fsf-key)
> >         fsf-key)
> >      ,definition))
> 
> This has an additional degree of ugliness, as it seems to
> differentiate XEmacs keys from FSF keys (why?).
> 
> (defmacro cperl-define-key (key definition)
>   `(define-key cperl-mode-map ,key ,definition))

  Because sometimes they are different.  mouse-2 instead of button2, etc.

-Bill P.

