# HG changeset patch # User Kenichi Handa # Date 884584128 0 # Node ID c3360a392ae427e9d7b92fae2bc31d66a020962e # Parent 8a5bdbbc1d6a5655dc084deee1b53a1a83543c3c Change "?\C-\ " to "?\C- " because "\ " is changed to standing for nothing in lread.c (read_escape). diff -r 8a5bdbbc1d6a -r c3360a392ae4 lisp/bindings.el --- a/lisp/bindings.el Sun Jan 11 12:48:04 1998 +0000 +++ b/lisp/bindings.el Mon Jan 12 05:48:48 1998 +0000 @@ -372,10 +372,10 @@ (define-key global-map "\C-@" 'set-mark-command) ;; Many people are used to typing C-SPC and getting C-@. -(define-key global-map [?\C-\ ] 'set-mark-command) +(define-key global-map [?\C- ] 'set-mark-command) (define-key ctl-x-map "\C-x" 'exchange-point-and-mark) (define-key ctl-x-map "\C-@" 'pop-global-mark) -(define-key ctl-x-map [?\C-\ ] 'pop-global-mark) +(define-key ctl-x-map [?\C- ] 'pop-global-mark) (define-key global-map "\C-n" 'next-line) (define-key global-map "\C-p" 'previous-line) diff -r 8a5bdbbc1d6a -r c3360a392ae4 lisp/calendar/calendar.el --- a/lisp/calendar/calendar.el Sun Jan 11 12:48:04 1998 +0000 +++ b/lisp/calendar/calendar.el Mon Jan 12 05:48:48 1998 +0000 @@ -1893,7 +1893,7 @@ (define-key calendar-mode-map "\e>" 'calendar-end-of-year) (define-key calendar-mode-map "\C-@" 'calendar-set-mark) ;; Many people are used to typing C-SPC and getting C-@. - (define-key calendar-mode-map [?\C-\ ] 'calendar-set-mark) + (define-key calendar-mode-map [?\C- ] 'calendar-set-mark) (define-key calendar-mode-map "\C-x\C-x" 'calendar-exchange-point-and-mark) (define-key calendar-mode-map "\e=" 'calendar-count-days-region) (define-key calendar-mode-map "gd" 'calendar-goto-date) diff -r 8a5bdbbc1d6a -r c3360a392ae4 lisp/international/kkc.el --- a/lisp/international/kkc.el Sun Jan 11 12:48:04 1998 +0000 +++ b/lisp/international/kkc.el Mon Jan 12 05:48:48 1998 +0000 @@ -96,7 +96,7 @@ (define-key map "H" 'kkc-hiragana) (define-key map "l" 'kkc-show-conversion-list-or-next-group) (define-key map "L" 'kkc-show-conversion-list-or-prev-group) - (define-key map [?\C-\ ] 'kkc-first-char-only) + (define-key map [?\C- ] 'kkc-first-char-only) (define-key map [delete] 'kkc-cancel) (define-key map [return] 'kkc-terminate) (let ((meta-map (make-sparse-keymap))) diff -r 8a5bdbbc1d6a -r c3360a392ae4 lisp/international/quail.el --- a/lisp/international/quail.el Sun Jan 11 12:48:04 1998 +0000 +++ b/lisp/international/quail.el Mon Jan 12 05:48:48 1998 +0000 @@ -302,7 +302,7 @@ (define-key map "\C-h" 'quail-translation-help) ;;; This interferes with handling of escape sequences on non-X terminals. ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) - (define-key map [?\C-\ ] 'quail-select-current) + (define-key map [?\C- ] 'quail-select-current) (define-key map [tab] 'quail-completion) (define-key map [delete] 'quail-delete-last-char) (define-key map [backspace] 'quail-delete-last-char)