# HG changeset patch # User Karl Heuer <kwzh@gnu.org> # Date 876957309 0 # Node ID dd567e1fddd5e294ed848f1e705905ba44cc603c # Parent 684adb0dcfcca3f7d5c72512e3c245c364e88933 (isearch-printing-char): Change S-SPC to SPC. (isearch-mode-map): Bind S-SPC like SPC. diff -r 684adb0dcfcc -r dd567e1fddd5 lisp/isearch.el --- a/lisp/isearch.el Wed Oct 15 23:12:54 1997 +0000 +++ b/lisp/isearch.el Wed Oct 15 23:15:09 1997 +0000 @@ -279,6 +279,7 @@ (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 @@ "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))