[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/replace.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/replace.el |
Date: |
Sun, 28 May 2006 17:05:38 +0000 |
Index: emacs/lisp/replace.el
diff -u emacs/lisp/replace.el:1.241 emacs/lisp/replace.el:1.242
--- emacs/lisp/replace.el:1.241 Sun May 28 17:02:37 2006
+++ emacs/lisp/replace.el Sun May 28 17:05:38 2006
@@ -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)