diff options
Diffstat (limited to 'lisp')
| -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) |