Mercurial > emacs
changeset 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.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 03 Jul 2004 05:18:38 +0000 |
| parents | a2e4dbfb3766 |
| children | df8813d5ceab |
| files | lisp/replace.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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).