Add C-escape binding.

1 files 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)