From xemacs-m  Wed Jun 11 12:15:10 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 MAA18304
	for <xemacs-beta@xemacs.org>; Wed, 11 Jun 1997 12:15:08 -0500 (CDT)
Received: from Corp.Sun.COM ([129.145.35.78]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id KAA10049 for <xemacs-beta@xemacs.org>; Wed, 11 Jun 1997 10:34:47 -0700
Received: from legba.Corp.Sun.COM by Corp.Sun.COM (SMI-8.6/SMI-5.3)
	id KAA24387; Wed, 11 Jun 1997 10:15:37 -0700
Received: by legba.Corp.Sun.COM (SMI-8.6/SMI-SVR4)
	id KAA14857; Wed, 11 Jun 1997 10:15:35 -0700
To: Hrvoje Niksic <hniksic@srce.hr>
Cc: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: Zagreb: Delete fails in help-mode [PATCH]
References: <kigk9k1v1jm.fsf@jagor.srce.hr>
X-Attribution: GDF
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Jun_11_10:15:35_1997-1"
Content-Transfer-Encoding: 7bit
From: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Date: 11 Jun 1997 10:15:35 -0700
In-Reply-To: Hrvoje Niksic's message of "11 Jun 1997 13:09:33 +0200"
Message-ID: <bcihgf5f4co.fsf@corp.Sun.COM>
Lines: 48
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta4)

--Multipart_Wed_Jun_11_10:15:35_1997-1
Content-Type: text/plain; charset=US-ASCII

Hrvoje Niksic <hniksic@srce.hr> writes:

> Delete (the key above enter for me) fails in help-mode and all of the
> temporary buffers.  For some reason, it works correctly in Info.

Patch attached.  Seems there are a LOT of things that rebind \177 that 
I missed.  This should fix your help problem, and I'll sweep through
every damn thing tonight and try and get the last of the cruft shaken
out.

Thanks for finding this!  When I looked at this, I found a bunch of
other ones that need fixed too!

-- Gary F.


--Multipart_Wed_Jun_11_10:15:35_1997-1
Content-Type: text/plain; name="help.patch"; charset=US-ASCII

--- lisp/prim/help.el.orig	Wed Jun 11 10:12:00 1997
+++ lisp/prim/help.el	Wed Jun 11 10:07:26 1997
@@ -181,6 +181,7 @@
   )
 
 (define-key help-mode-map "q" 'help-mode-quit)
+(define-key help-mode-map 'delete 'scroll-down)
 
 (defun help-mode-quit ()
   "Exits from help mode, possibly restoring the previous window configuration."
--- lisp/modes/view-less.el.orig	Wed Jun 11 09:57:33 1997
+++ lisp/modes/view-less.el	Wed Jun 11 09:58:14 1997
@@ -59,10 +59,9 @@
     (define-key map "-" 'negative-argument)
     (define-key map " " 'scroll-up)
     (define-key map "f" 'scroll-up)
-;; GDF - Don't rebind the DEL key
-;;    (define-key map "\177" 'scroll-down)
     (define-key map "b" 'scroll-down)
     (define-key map 'backspace 'scroll-down)
+    (define-key map 'delete 'scroll-down)
     (define-key map "\r" 'view-scroll-lines-up)
     (define-key map "\n" 'view-scroll-lines-up)
     (define-key map "e" 'view-scroll-lines-up)

--Multipart_Wed_Jun_11_10:15:35_1997-1--

