Mercurial > emacs
changeset 71026:b5294b4387c4
Fix last change.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 28 May 2006 17:05:38 +0000 |
| parents | 82d1f472baee |
| children | ff93d411ef36 |
| files | lisp/replace.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Sun May 28 17:02:37 2006 +0000 +++ b/lisp/replace.el Sun May 28 17:05:38 2006 +0000 @@ -114,12 +114,9 @@ query-replace-from-history-variable nil t)))) (if (and (zerop (length from)) query-replace-defaults) - (progn - (set query-replace-from-history-variable - (cdr (symbol-value query-replace-from-history-variable))) - (cons (car query-replace-defaults) - (query-replace-compile-replacement - (cdr query-replace-defaults) regexp-flag))) + (cons (car query-replace-defaults) + (query-replace-compile-replacement + (cdr query-replace-defaults) regexp-flag)) ;; Warn if user types \n or \t, but don't reject the input. (and regexp-flag (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\[nt]\\)" from)