From xemacs-m  Wed Apr 30 05:58:09 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 FAA28921
	for <xemacs-beta@xemacs.org>; Wed, 30 Apr 1997 05:58:03 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id MAA03685; Wed, 30 Apr 1997 12:57:59 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: pc-mode.el: An Idiot's approach
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Save-Project-Gutenberg: <URL:http://www.promo.net/pg/nl/pgny_nov96.html>
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: 30 Apr 1997 12:57:59 +0200
Message-ID: <kigenbslqvc.fsf@jagor.srce.hr>
Lines: 28
X-Mailer: Gnus v5.4.45/XEmacs 19.15

I have tackled a bit with pc-mode.el, and "ported" it from the FSF.
That included nuking the stuff we use by default (home == C-a, C-home
== M-<, etc.)  I also nuked C-ESC for kill-buffers.

Can anyone answer why this simple brain-damage fails to
work?

;;;###autoload
(defun pc-bindings-mode ()
  "Set up certain key bindings for PC compatibility.
The keys affected are:
Delete (and its variants) delete forward instead of backward.
C-Backspace kills backward a word (as C-Delete normally would)."

  (interactive)
  (define-key function-key-map [delete] "\C-d")
  (define-key function-key-map [(meta delete)] [?\M-d])
  (define-key function-key-map [(control delete)] [?\M-d])
  (global-set-key [(control meta delete)] 'kill-sexp)
  (global-set-key [(control backspace)] 'backward-kill-word)
  (global-set-key [(meta backspace)] 'undo)

  (global-set-key [(control escape)] 'list-buffers))

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
I'm a Lisp variable -- bind me!

