Mercurial > emacs

view lisp/emulation/pc-mode.el @ 11361:48baf159de5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#define SPECIAL_EMACS_INT Include alloca.h, string.h here. (malloc. realloc, xmalloc, xrealloc): Declarations moved from s/osf1.h.
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Apr 1995 18:11:41 +0000
parents 6f5c3bb789a5
children afc9c0b4fbb5
line wrap: on
line source

(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))