Mercurial > emacs

changeset 11344:6f5c3bb789a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Apr 1995 07:11:42 +0000
parents 34a2e8b9f4ba
children c4adea8f7543
files lisp/emulation/pc-mode.el
diffstat 1 files changed, 17 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/emulation/pc-mode.el	Mon Apr 10 07:11:42 1995 +0000
@@ -0,0 +1,17 @@
+(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.
+  HOME and END move to beginning and end of line
+  C-HOME and C-END move to beginning and end of buffer."
+
+  (interactive)
+  (define-key function-key-map [delete] "\C-d")
+  (define-key function-key-map [M-delete] [?\M-\C-d])
+  (global-set-key [C-M-delete] 'kill-sexp)
+
+  (global-set-key [home] 'beginning-of-line)
+  (global-set-key [end] 'end-of-line)
+  (global-set-key [C-home] 'beginning-of-buffer)
+  (global-set-key [C-end] 'end-of-buffer))
+