Mercurial > emacs
comparison lisp/emulation/pc-mode.el @ 12372:91dc931a32c8
(pc-bindings-mode): Add autoload.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 24 Jun 1995 04:23:05 +0000 |
parents | f09f5b29f524 |
children | f225e4de23b4 |
comparison
equal
deleted
inserted
replaced
12371:35fdc136d4b9 | 12372:91dc931a32c8 |
---|---|
1 ;;; enriched.el -- read and save files in text/enriched format | |
2 ;; Copyright (c) 1995 Free Software Foundation, Inc. | |
3 | |
4 ;; Keywords: emulations | |
5 | |
6 ;; This file is part of GNU Emacs. | |
7 | |
8 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
9 ;; it under the terms of the GNU General Public License as published by | |
10 ;; the Free Software Foundation; either version 2, or (at your option) | |
11 ;; any later version. | |
12 ;; | |
13 ;; GNU Emacs is distributed in the hope that it will be useful, | |
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 ;; GNU General Public License for more details. | |
17 ;; | |
18 ;; You should have received a copy of the GNU General Public License | |
19 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
20 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
21 | |
22 | |
23 ;;;###autoload | |
1 (defun pc-bindings-mode () | 24 (defun pc-bindings-mode () |
2 "Set up certain key bindings for PC compatibility. | 25 "Set up certain key bindings for PC compatibility. |
3 The keys affected are: | 26 The keys affected are: |
4 Delete (and its variants) delete forward instead of backward. | 27 Delete (and its variants) delete forward instead of backward. |
5 C-Backspace kills backward a word (as C-Delete normally would). | 28 C-Backspace kills backward a word (as C-Delete normally would). |
21 (global-set-key [home] 'beginning-of-line) | 44 (global-set-key [home] 'beginning-of-line) |
22 (global-set-key [end] 'end-of-line) | 45 (global-set-key [end] 'end-of-line) |
23 (global-set-key [C-home] 'beginning-of-buffer) | 46 (global-set-key [C-home] 'beginning-of-buffer) |
24 (global-set-key [C-end] 'end-of-buffer)) | 47 (global-set-key [C-end] 'end-of-buffer)) |
25 | 48 |
49 ;; pc-mode.el ends here |