diff lisp/replace.el @ 56328:cc1deb864ed6

(query-replace-read-args): Swallow space after 'foo, not after (quote foo). Match space only immediately after symbol, not anywhere in the whole string.

--- a/lisp/replace.el	Sat Jul 03 05:18:06 2004 +0000
+++ b/lisp/replace.el	Sat Jul 03 05:18:38 2004 +0000
@@ -125,8 +125,9 @@
 					 ;; Swallow a space after 'foo
 					 ;; but not after (quote foo).
 					 (and (eq (car-safe (car pos)) 'quote)
-					      (= ?\( (aref to 0))))
-				     (string-match " " to (cdr pos)))
+					      (not (= ?\( (aref to 0)))))
+				     (eq (string-match " " to (cdr pos))
+					 (cdr pos)))
 				(1+ (cdr pos))
 			      (cdr pos))))
 		       (setq to (substring to end)))))
@@ -212,7 +213,7 @@
 followed by a Lisp expression.  Each
 replacement evaluates that expression to compute the replacement
 string.  Inside of that expression, `\\&' is a string denoting the
-whole match as a sting, `\\N' for a partial match, `\\#&' and `\\#N'
+whole match as a string, `\\N' for a partial match, `\\#&' and `\\#N'
 for the whole or a partial match converted to a number with
 `string-to-number', and `\\#' itself for the number of replacements
 done so far (starting with zero).