Mercurial > emacs

changeset 20056:dd567e1fddd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-printing-char): Change S-SPC to SPC. (isearch-mode-map): Bind S-SPC like SPC.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Oct 1997 23:15:09 +0000
parents 684adb0dcfcc
children 612cd201aea5
files lisp/isearch.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))