(isearch-printing-char): Change S-SPC to SPC.

(isearch-mode-map): Bind S-SPC like SPC.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index f5c495171f8dc3be3af53d7fb91086e90f8bb332..d253278fe2f2f05ef9b18e516734c60c62fa16f9 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -279,6 +279,7 @@ Default value, nil, means edit the string instead."
       (define-key map "\C-j" 'isearch-printing-char)
       (define-key map "\t" 'isearch-printing-char)
       (define-key map " " 'isearch-whitespace-chars)
+      (define-key map [?\S-\ ] 'isearch-whitespace-chars)
     
       (define-key map "\C-w" 'isearch-yank-word)
       (define-key map "\C-y" 'isearch-yank-line)
@@ -1180,6 +1181,8 @@ Obsolete."
   "Add this ordinary printing character to the search string and search."
   (interactive)
   (let ((char (isearch-last-command-char)))
+    (if (= char ?\S-\ )
+       (setq char ?\ ))
     (if (and enable-multibyte-characters
             (>= char ?\200)
             (<= char ?\377))