[Emacs-diffs] emacs/lisp ChangeLog bindings.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/10/19 15:03:27

Modified files:
        lisp           : ChangeLog bindings.el 

Log message:
        (function-key-map): Map C-@ to C-SPC if C-@ is unbound.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16462&r2=1.16463
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bindings.el?cvsroot=emacs&r1=1.226&r2=1.227

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16462
retrieving revision 1.16463
diff -u -b -r1.16462 -r1.16463
--- ChangeLog   19 Oct 2009 13:47:10 -0000      1.16462
+++ ChangeLog   19 Oct 2009 15:03:24 -0000      1.16463
@@ -1,5 +1,7 @@
 2009-10-19  Stefan Monnier  <address@hidden>
 
+       * bindings.el (function-key-map): Map C-@ to C-SPC if C-@ is unbound.
+
        * info.el (Info-complete-menu-item): Handle `boundaries' explicitly.
        (Info-menu): Remove unused vars `last' and `completions'.
        (Info-index-nodes): Remove unused var `node'.

Index: bindings.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.226
retrieving revision 1.227
diff -u -b -r1.226 -r1.227
--- bindings.el 15 Oct 2009 06:18:02 -0000      1.226
+++ bindings.el 19 Oct 2009 15:03:27 -0000      1.227
@@ -970,6 +970,9 @@
 
 ;; X11R6 distinguishes these keys from the non-kp keys.
 ;; Make them behave like the non-kp keys unless otherwise bound.
+;; FIXME: rather than list such mappings for every modifier-combination,
+;;   we should come up with a way to do it generically, something like
+;;   (define-key function-key-map [*-kp-home] [*-home])
 (define-key function-key-map [kp-home] [home])
 (define-key function-key-map [kp-left] [left])
 (define-key function-key-map [kp-up] [up])
@@ -1020,6 +1023,11 @@
 (define-key function-key-map [C-S-kp-8] [C-S-up])
 (define-key function-key-map [C-S-kp-9] [C-S-prior])
 
+;; Hitting C-SPC on text terminals, usually sends the ascii code 0 (aka C-@),
+;; so we can't distinguish those two keys, but usually we consider C-SPC
+;; (rather than C-@) as the "canonical" binding.
+(define-key function-key-map address@hidden [?\C-\s])
+
 (define-key global-map [mouse-movement] 'ignore)
 
 (define-key global-map "\C-t" 'transpose-chars)