From xemacs-m  Sat Jun  7 01:10:13 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id BAA21840
	for <xemacs-beta@xemacs.org>; Sat, 7 Jun 1997 01:10:12 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id IAA28710; Sat, 7 Jun 1997 08:10:11 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: What `backspace-or-delete' should look like
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 07 Jun 1997 08:10:11 +0200
Message-ID: <kigyb8nrlj0.fsf@jagor.srce.hr>
Lines: 47
X-Mailer: Gnus v5.4.52/XEmacs 20.3(beta4)

Here is a patch which, when applied, shows what I think
`backspace-or-delete' function should look like:

--- lisp/prim/simple.el.orig	Sat Jun  7 07:38:53 1997
+++ lisp/prim/simple.el	Sat Jun  7 07:53:39 1997
@@ -372,15 +372,26 @@
 BackSpace keysym even exists on your keyboard.  If you don't have a
 BackSpace keysym, the delete key should always delete one character
 backwards."
-  (interactive "*P")
+  (interactive "*p")
   (unless (run-hook-with-args 'backspace-or-delete-hook arg)
-    (if zmacs-region-active-p
-	(kill-region (point) (mark))
-      (if (and delete-erases-forward
-	       (or (eq 'tty (device-type))
-		   (x-keysym-on-keyboard-p "BackSpace")))
-	  (delete-char (prefix-numeric-value arg))
-	(delete-backward-char (prefix-numeric-value arg))))))
+    (cond
+;;     ((and zmacs-region-active-p
+;;	   (eq (zmacs-region-buffer) (current-buffer)))
+;;      (kill-region (point) (mark)))
+     (delete-erases-forward
+      (case (device-type)
+	(tty
+	 (if (eq tty-erase-char ?\C-h)
+	     (delete-char arg)
+	   (backward-delete-char arg)))
+	(x
+	 (if (x-keysym-on-keyboard-p "BackSpace")
+	     (delete-char arg)
+	   (backward-delete-char arg)))
+	(otherwise
+	 (delete-char arg))))
+     (t
+      (backward-delete-char arg)))))
 
 (defun zap-to-char (arg char)
   "Kill up to and including ARG'th occurrence of CHAR.


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Then...  his face does a complete change of expression.  It goes from
a "Vengeance is mine" expression, to a "What the fuck" blank look.

