diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-05-28 17:05:38 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-05-28 17:05:38 +0000 |
| commit | 5dae4b115603351a050276b940700de95ba7a28d (patch) | |
| tree | 0eba459ddd7ee57c49df85fd7ee176b0b06404d4 /lisp/replace.el | |
| parent | 6b59b13027349e4c32de9a42ee296de39c9820ab (diff) | |
| download | emacs-5dae4b115603351a050276b940700de95ba7a28d.tar.gz | |
Fix last change.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 53148be64c5..72236c298cd 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -114,12 +114,9 @@ wants to replace FROM with TO." 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) |