(query-replace-read-args): Swallow space after 'foo,

not after (quote foo).  Match space only immediately after symbol,
not anywhere in the whole string.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 8e8b43d66c6..4c381c658e5 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -125,8 +125,9 @@ strings or patterns."
 					 ;; 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 @@ In interactive calls, the replacement text can contain `\\,'
 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).