From e68e61b5e03208f59adc30e863a0b7a874c82e23 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 12 Jan 1998 05:48:48 +0000 Subject: [PATCH] Change "?\C-\ " to "?\C- " because "\ " is changed to standing for nothing in lread.c (read_escape). --- lisp/bindings.el | 4 ++-- lisp/calendar/calendar.el | 2 +- lisp/international/kkc.el | 2 +- lisp/international/quail.el | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index a4ef420b69f..e34f469aca8 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -372,10 +372,10 @@ for \\[find-tag] (which see)." (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 --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 63e5fc52c84..f8cab66ca67 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1893,7 +1893,7 @@ the inserted text. Value is always t." (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 --git a/lisp/international/kkc.el b/lisp/international/kkc.el index ab00b03f2fc..7d2baf80e02 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el @@ -96,7 +96,7 @@ This string is shown at mode line when users are in KKC mode.") (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 --git a/lisp/international/quail.el b/lisp/international/quail.el index 2b21defc083..69b968aed36 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -302,7 +302,7 @@ LEIM is available from the same ftp directory as Emacs.")) (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) -- 2.39.2