From xemacs-m  Thu May  1 17:14:47 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA04938
	for <xemacs-beta@xemacs.org>; Thu, 1 May 1997 17:14:44 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id PAA03547;
	Thu, 1 May 1997 15:15:39 -0700
Date: Thu, 1 May 1997 15:15:39 -0700
Message-Id: <199705012215.PAA03547@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
To: <xemacs-beta@xemacs.org>
Subject: Patch: cperl-mode.el {C-h} changed to {C-c}
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D


 I like to keep {C-h} bound to 'backward-delete-char.  Take this or
leave it, as you will.  :-)

*** cperl-mode.el~	Sun Apr 27 09:39:20 1997
--- cperl-mode.el	Thu May  1 15:12:42 1997
***************
*** 716,725 ****
    (cperl-define-key "\177" 'cperl-electric-backspace)
    (cperl-define-key "\t" 'cperl-indent-command)
    ;; don't clobber the backspace binding:
!   (cperl-define-key "\C-hf" 'cperl-info-on-command [(control h) f])
    (cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command
  		    [(control c) (control h) f])
!   (cperl-define-key "\C-hv" 'cperl-get-help [(control h) v])
    (if (and cperl-xemacs-p 
  	   (<= emacs-minor-version 11) (<= emacs-major-version 19))
        (progn
--- 716,725 ----
    (cperl-define-key "\177" 'cperl-electric-backspace)
    (cperl-define-key "\t" 'cperl-indent-command)
    ;; don't clobber the backspace binding:
!   (cperl-define-key "\C-cf" 'cperl-info-on-command [(control c) f])
    (cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command
  		    [(control c) (control h) f])
!   (cperl-define-key "\C-cv" 'cperl-get-help [(control c) v])
    (if (and cperl-xemacs-p 
  	   (<= emacs-minor-version 11) (<= emacs-major-version 19))
        (progn

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.2  Linux 2.0.30t

