From 45b94eb2e9e5b87f352e620880b79e71e3104a64 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 15 Oct 1997 23:15:09 +0000 Subject: [PATCH] (isearch-printing-char): Change S-SPC to SPC. (isearch-mode-map): Bind S-SPC like SPC. --- lisp/isearch.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/isearch.el b/lisp/isearch.el index f5c495171f8..d253278fe2f 100644 --- 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)) -- 2.39.2