From: Kenichi Handa <handa@m17n.org>
Date: Mon, 12 Jan 1998 05:48:48 +0000 (+0000)
Subject: Change "?\C-\ " to "?\C- " because "\ " is changed
X-Git-Tag: emacs-20.3~2436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e68e61b5e03208f59adc30e863a0b7a874c82e23;p=emacs.git

Change "?\C-\ " to "?\C- " because "\ " is changed
to standing for nothing in lread.c (read_escape).
---

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)