From 002c4306f09aa9a4a81903325c1fa072a0b25ebe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 May 1995 23:08:17 +0000 Subject: [PATCH] Add C-escape binding. --- lisp/emulation/pc-mode.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el index a6f05a3f9b8..3265fd3ba35 100644 --- a/lisp/emulation/pc-mode.el +++ b/lisp/emulation/pc-mode.el @@ -1,11 +1,12 @@ (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. - C-BACKSPACE kills backward a word (as C-DELETE normally would). - M-BACKSPACE does undo. - HOME and END move to beginning and end of line - C-HOME and C-END move to beginning and end of buffer." +Delete (and its variants) delete forward instead of backward. +C-Backspace kills backward a word (as C-Delete normally would). +M-Backspace does undo. +Home and End move to beginning and end of line +C-Home and C-End move to beginning and end of buffer. +C-Escape does list-buffers." (interactive) (define-key function-key-map [delete] "\C-d") @@ -15,6 +16,8 @@ The keys affected are: (global-set-key [C-backspace] 'backward-kill-word) (global-set-key [M-backspace] 'undo) + (global-set-key [C-escape] 'list-buffers) + (global-set-key [home] 'beginning-of-line) (global-set-key [end] 'end-of-line) (global-set-key [C-home] 'beginning-of-buffer) -- 2.39.2