Mercurial > emacs
annotate lisp/emulation/pc-mode.el @ 13233:8b29f638af52
Initial revision
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 17 Oct 1995 18:10:37 +0000 |
parents | 91dc931a32c8 |
children | f225e4de23b4 |
rev | line source |
---|---|
12372
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
1 ;;; enriched.el -- read and save files in text/enriched format |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
2 ;; Copyright (c) 1995 Free Software Foundation, Inc. |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
3 |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
4 ;; Keywords: emulations |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
5 |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
6 ;; This file is part of GNU Emacs. |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
7 |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
8 ;; GNU Emacs is free software; you can redistribute it and/or modify |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
9 ;; it under the terms of the GNU General Public License as published by |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
10 ;; the Free Software Foundation; either version 2, or (at your option) |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
11 ;; any later version. |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
12 ;; |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
13 ;; GNU Emacs is distributed in the hope that it will be useful, |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
16 ;; GNU General Public License for more details. |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
17 ;; |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
18 ;; You should have received a copy of the GNU General Public License |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
19 ;; along with GNU Emacs; see the file COPYING. If not, write to |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
20 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
21 |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
22 |
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
23 ;;;###autoload |
11344 | 24 (defun pc-bindings-mode () |
25 "Set up certain key bindings for PC compatibility. | |
26 The keys affected are: | |
11748 | 27 Delete (and its variants) delete forward instead of backward. |
28 C-Backspace kills backward a word (as C-Delete normally would). | |
29 M-Backspace does undo. | |
30 Home and End move to beginning and end of line | |
31 C-Home and C-End move to beginning and end of buffer. | |
32 C-Escape does list-buffers." | |
11344 | 33 |
34 (interactive) | |
35 (define-key function-key-map [delete] "\C-d") | |
11747 | 36 (define-key function-key-map [M-delete] [?\M-d]) |
37 (define-key function-key-map [C-delete] [?\M-d]) | |
11344 | 38 (global-set-key [C-M-delete] 'kill-sexp) |
11747 | 39 (global-set-key [C-backspace] 'backward-kill-word) |
40 (global-set-key [M-backspace] 'undo) | |
11344 | 41 |
11748 | 42 (global-set-key [C-escape] 'list-buffers) |
43 | |
11344 | 44 (global-set-key [home] 'beginning-of-line) |
45 (global-set-key [end] 'end-of-line) | |
46 (global-set-key [C-home] 'beginning-of-buffer) | |
47 (global-set-key [C-end] 'end-of-buffer)) | |
48 | |
12372
91dc931a32c8
(pc-bindings-mode): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
11748
diff
changeset
|
49 ;; pc-mode.el ends here |