diff options
| -rw-r--r-- | lisp/isearch.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 279 | (define-key map "\C-j" 'isearch-printing-char) | 279 | (define-key map "\C-j" 'isearch-printing-char) |
| 280 | (define-key map "\t" 'isearch-printing-char) | 280 | (define-key map "\t" 'isearch-printing-char) |
| 281 | (define-key map " " 'isearch-whitespace-chars) | 281 | (define-key map " " 'isearch-whitespace-chars) |
| 282 | (define-key map [?\S-\ ] 'isearch-whitespace-chars) | ||
| 282 | 283 | ||
| 283 | (define-key map "\C-w" 'isearch-yank-word) | 284 | (define-key map "\C-w" 'isearch-yank-word) |
| 284 | (define-key map "\C-y" 'isearch-yank-line) | 285 | (define-key map "\C-y" 'isearch-yank-line) |
| @@ -1180,6 +1181,8 @@ Obsolete." | |||
| 1180 | "Add this ordinary printing character to the search string and search." | 1181 | "Add this ordinary printing character to the search string and search." |
| 1181 | (interactive) | 1182 | (interactive) |
| 1182 | (let ((char (isearch-last-command-char))) | 1183 | (let ((char (isearch-last-command-char))) |
| 1184 | (if (= char ?\S-\ ) | ||
| 1185 | (setq char ?\ )) | ||
| 1183 | (if (and enable-multibyte-characters | 1186 | (if (and enable-multibyte-characters |
| 1184 | (>= char ?\200) | 1187 | (>= char ?\200) |
| 1185 | (<= char ?\377)) | 1188 | (<= char ?\377)) |