From xemacs-m  Wed Apr 30 03:35:59 1997
Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228])
	by xemacs.org (8.8.5/8.8.5) with SMTP id DAA22390
	for <xemacs-beta@xemacs.org>; Wed, 30 Apr 1997 03:35:58 -0500 (CDT)
Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id KAA23626; Wed, 30 Apr 1997 10:35:22 +0200
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id KAA17003; Wed, 30 Apr 1997 10:35:57 +0200
To: Kyle Jones <kyle_jones@wonderworks.com>
Cc: xemacs-beta@xemacs.org
Subject: Re: Brain lossage
References: <bciwwpmohxl.fsf@corp.Sun.COM> 	<m2sp0azpbk.fsf@altair.xemacs.org> <QQcnhg04407.199704290003@crystal.WonderWorks.COM>
Organization: The Church of Emacs
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: 30 Apr 1997 10:35:56 +0200
In-Reply-To: Kyle Jones's message of Mon, 28 Apr 1997 20:03:41 -0400 (EDT)
Message-ID: <rjenbskivn.fsf@zuse.dina.kvl.dk>
Lines: 60
X-Mailer: Gnus v5.4.46/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit

Kyle Jones <kyle_jones@wonderworks.com> writes:

> There's a comment near the top that says something should go away
> when function-key-map is implemented.

There is another comment saying:

;;; #### should port FSF pc-bindings.el and nuke this.

so here it is.

I like the `enable-delete-forward' I posted another place in this
thread better though.

;;; pc-mode.el --- emulate certain key bindings used on PCs.

;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.

;; Keywords: emulations

;;; Synched up with: 19.34.

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:

;;;###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).
M-Backspace does undo.
C-Escape does list-buffers."
  (interactive)
  (define-key key-translation-map [ backspace ] "\C-?")
  (define-key key-translation-map [ delete ] "\C-d")
  (define-key key-translation-map [ (meta delete) ] [?\M-d])
  (define-key key-translation-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))

;; pc-mode.el ends here

