Mercurial > emacs
changeset 60159:0527991ebdf0
(query-replace-read-from): Set the value of
query-replace-from-history-variable to handle the case of an empty
string entered to accept the suggested default.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 19 Feb 2005 13:09:37 +0000 |
| parents | 7c92649144ac |
| children | 1100781377df |
| files | lisp/replace.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Sat Feb 19 12:56:21 2005 +0000 +++ b/lisp/replace.el Sat Feb 19 13:09:37 2005 +0000 @@ -115,8 +115,11 @@ query-replace-from-history-variable nil t t)))) (if (and (zerop (length from)) lastto lastfrom) - (cons lastfrom - (query-replace-compile-replacement lastto regexp-flag)) + (progn + (cons lastfrom + (query-replace-compile-replacement lastto regexp-flag)) + (set query-replace-from-history-variable + (cdr (symbol-value query-replace-from-history-variable)))) ;; Warn if user types \n or \t, but don't reject the input. (and regexp-flag (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\[nt]\\)" from)