From xemacs-m  Tue Dec 24 12:01:55 1996
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id MAA24213 for <xemacs-beta@xemacs.org>; Tue, 24 Dec 1996 12:01:54 -0600 (CST)
Received: (from steve@localhost)
          by altair.xemacs.org (8.8.4/8.8.4)
	  id KAA13807; Tue, 24 Dec 1996 10:11:32 -0800
Sender: steve@xemacs.org
To: xemacs-beta@xemacs.org
Subject: Re: 20.0-b32-latin2 HP-UX 9.05 success
References: <of0681ua9h4.fsf@pippin.ntc.nokia.com> 	<m24thdm43t.fsf@altair.xemacs.org> 	<199612232128.QAA00601@anthem.CNRI.Reston.Va.US> 	<m23ewwlrxj.fsf@altair.xemacs.org> <199612241735.MAA02856@anthem.CNRI.Reston.Va.US>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: "Barry A. Warsaw"'s message of Tue, 24 Dec 1996 12:35:14 -0500
Mime-Version: 1.0 (generated by tm-edit 7.97)
Content-Type: text/plain; charset=US-ASCII
Date: 24 Dec 1996 10:11:30 -0800
Message-ID: <m2n2v395il.fsf@altair.xemacs.org>
Lines: 90
X-Mailer: Red Gnus v0.72/XEmacs 19.15

>>>>> "BAW" == Barry A Warsaw <bwarsaw@anthem.cnri.reston.va.us> writes:

>>>>> "sb" == Steven L Baur <steve@miranova.com> writes:

sb> You mean something like this then in delbackspace.el:

BAW> I don't use delbackspace.el, but shouldn't this

BAW> (setq after-load-alist
BAW>       (append '(("cc-mode.elc" .
BAW> -----------------^^^^^^^^^^^^^

BAW> just be "cc-mode"?

I don't know, that's why I asked.  delbackspace trashes my keyboard so
completely I can't do much testing of it.

Here's the current patch:

Index: delbackspace.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/utils/delbackspace.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 delbackspace.el
--- delbackspace.el	1996/12/18 22:43:01	1.1.1.1
+++ delbackspace.el	1996/12/24 18:04:10
@@ -60,12 +60,31 @@
 (define-key key-translation-map [(alt backspace)]
   [intercepted_alt_backspace])
 (define-key global-map 'intercepted_alt_backspace 'backward-kill-sentence)
-(mapcar #'(lambda (map)
-	    (define-key map [(alt backspace)] 'backward-kill-sexp))
+
+(mapcar (lambda (map)
+	  (define-key map [(alt backspace)] 'backward-kill-sexp))
 	(list
-	 c-mode-map c++-mode-map objc-mode-map java-mode-map
 	 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
 
+(if (boundp 'c-mode-map)
+    (mapcar (lambda (map)
+	      (define-key map [(alt backspace)] 'backward-kill-sexp))
+	    (list
+	     c-mode-map c++-mode-map objc-mode-map java-mode-map))
+  (setq after-load-alist
+	(append '(("cc-mode"
+		   (mapcar (lambda (map)
+			     (define-key map
+			       [(alt backspace)]
+			       'backward-kill-sexp)
+			     (define-key map [(alt delete)] 'kill-sexp))
+			   (list
+			    c-mode-map
+			    c++-mode-map
+			    objc-mode-map
+			    java-mode-map))))
+		after-load-alist)))
+
 ;; (meta shift) backspace paragraph before cursor
 (global-set-key [(meta shift backspace)] 'backward-kill-paragraph)
 
@@ -82,11 +101,19 @@
 (define-key key-translation-map [(alt delete)]
   [intercepted_alt_delete])
 (define-key global-map 'intercepted_alt_delete 'kill-sentence)
-(mapcar #'(lambda (map)
-	    (define-key map [(alt delete)] 'kill-sexp))
+(mapcar (lambda (map)
+	  (define-key map [(alt delete)] 'kill-sexp))
 	(list
-	 c-mode-map c++-mode-map objc-mode-map java-mode-map
 	 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
+(when (boundp 'c-mode-map)
+  (mapcar (lambda (map)
+	      (define-key map [(alt delete)] 'kill-sexp))
+	  (list
+	   c-mode-map c++-mode-map objc-mode-map java-mode-map)))
 
 ;; (meta shift) delete next paragraph
 (global-set-key [(meta shift delete)] 'kill-paragraph)
+
+(provide 'delbackspace)
+
+;;; delbackspace.el ends here

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
"That Bill Clinton.  He probably doesn't know how to log on to the
Internet."  -- Rush Limbaugh, noted Computer Expert

