From xemacs-m  Mon Jun  9 19:36:22 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id TAA12844
	for <xemacs-beta@xemacs.org>; Mon, 9 Jun 1997 19:36:21 -0500 (CDT)
Received: from Corp.Sun.COM ([129.145.35.78]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id RAA14637 for <xemacs-beta@xemacs.org>; Mon, 9 Jun 1997 17:55:37 -0700
Received: from legba.Corp.Sun.COM by Corp.Sun.COM (SMI-8.6/SMI-5.3)
	id RAA18130; Mon, 9 Jun 1997 17:36:50 -0700
Received: by legba.Corp.Sun.COM (SMI-8.6/SMI-SVR4)
	id RAA27623; Mon, 9 Jun 1997 17:36:49 -0700
To: xemacs-beta@xemacs.org
Subject: Delete vs 177 [PATCH]
X-Attribution: GDF
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Jun__9_17:36:48_1997-1"
Content-Transfer-Encoding: 7bit
From: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Date: 09 Jun 1997 17:36:48 -0700
Message-ID: <bcilo4jmgyn.fsf@corp.Sun.COM>
Lines: 81
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta4)

--Multipart_Mon_Jun__9_17:36:48_1997-1
Content-Type: text/plain; charset=US-ASCII

This patch changes the \177 bindings to bind them to 'delete
instead, which is one more step that Hrvoje and I hashed out, jumped
up and down on, and generally beat to death with a stick.

It patches them in keydefs.el, cc-mode.el, cperl-mode.el, and
vm-vars.el.  If there's any I missed, please, as always, give me a
yell.

-- Gary F.


--Multipart_Mon_Jun__9_17:36:48_1997-1
Content-Type: text/plain; name="delete-177.patch"; charset=US-ASCII

--- lisp/prim/keydefs.el.orig	Sun Jun  8 10:30:24 1997
+++ lisp/prim/keydefs.el	Sun Jun  8 10:31:40 1997
@@ -95,7 +95,7 @@
 (define-key global-map "\C-e" 'end-of-line)
 (define-key global-map "\C-f" 'forward-char)
 (define-key global-map "\C-d" 'delete-char)
-(define-key global-map "\177" 'backspace-or-delete)
+(define-key global-map 'delete 'backspace-or-delete)
 
 ;; FSFmacs files.el
 
@@ -271,7 +271,7 @@
 (define-key global-map "\M-f" 'forward-word)
 (define-key global-map "\M-b" 'backward-word)
 (define-key global-map "\M-d" 'kill-word)
-(define-key global-map "\M-\177" 'backward-kill-word)
+;;(define-key global-map "\M-\177" 'backward-kill-word)
 
 (define-key global-map "\M-<" 'beginning-of-buffer)
 (define-key global-map "\M->" 'end-of-buffer)
@@ -337,7 +337,7 @@
 (define-key global-map "\M-a" 'backward-sentence)
 (define-key global-map "\M-e" 'forward-sentence)
 (define-key global-map "\M-k" 'kill-sentence)
-(define-key global-map "\C-x\177" 'backward-kill-sentence)
+;;(define-key global-map "\C-x\177" 'backward-kill-sentence)
 
 (define-key global-map "\C-x[" 'backward-page)
 (define-key global-map "\C-x]" 'forward-page)
--- lisp/modes/cc-mode.el.orig	Sun Jun  8 10:32:26 1997
+++ lisp/modes/cc-mode.el	Sun Jun  8 10:42:34 1997
@@ -1037,7 +1037,7 @@
   (define-key c-mode-map "\C-c\C-p"  'c-backward-conditional)
   (define-key c-mode-map "\C-c\C-u"  'c-up-conditional)
   (define-key c-mode-map "\t"        'c-indent-command)
-  (define-key c-mode-map "\177"      'c-electric-delete)
+  (define-key c-mode-map 'delete     'c-electric-delete)
   ;; these are new keybindings, with no counterpart to BOCM
   (define-key c-mode-map ","         'c-electric-semi&comma)
   (define-key c-mode-map "*"         'c-electric-star)
--- lisp/modes/cperl-mode.el.orig	Sun Jun  8 10:32:38 1997
+++ lisp/modes/cperl-mode.el	Sun Jun  8 10:44:25 1997
@@ -713,7 +713,7 @@
   (cperl-define-key "\e\C-q" 'cperl-indent-exp) ; Usually not bound
   ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
   ;;(cperl-define-key "\e;" 'cperl-indent-for-comment)
-  (cperl-define-key "\177" 'cperl-electric-backspace)
+  (cperl-define-key 'delete '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])
--- lisp/vm/vm-vars.el.orig	Mon Jun  9 17:28:39 1997
+++ lisp/vm/vm-vars.el	Mon Jun  9 17:29:12 1997
@@ -2347,7 +2347,7 @@
     (define-key map "t" 'vm-expose-hidden-headers)
     (define-key map " " 'vm-scroll-forward)
     (define-key map "b" 'vm-scroll-backward)
-    (define-key map "\177" 'vm-scroll-backward)
+    (define-key map 'delete 'vm-scroll-backward)
     (define-key map 'backspace 'vm-scroll-backward)
     (define-key map "D" 'vm-decode-mime-message)
     (define-key map "d" 'vm-delete-message)

--Multipart_Mon_Jun__9_17:36:48_1997-1--

