mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Initial revision

Browse source
This commit is contained in:
Richard M. Stallman 1995-04-10 07:11:42 +00:00
parent 65b6ac4f15
commit 601fa27a78
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emulation/pc-mode.el Normal file
View file

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