diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-12 12:04:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-12 12:04:55 +0000 |
| commit | 43ab8ca40662f6cc981c39901ec563ef422a6a64 (patch) | |
| tree | f4cfa01b0eb9b4eb04d94ede88e614ed9040c8ad /lisp/replace.el | |
| parent | 623ed1b014e0c981330758f153edafe5ea216d9e (diff) | |
| download | emacs-43ab8ca40662f6cc981c39901ec563ef422a6a64.tar.gz | |
(query-replace-map): New keymap.
(perform-replace): Use query-replace-map.
(query-replace, query-replace-regexp, map-query-replace-regexp):
(replace-string, replace-regexp): Don't print `done' if unread chars.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 3f730ec3f2f..3c195224ad9 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -463,7 +463,7 @@ which will run faster and do exactly what you probably want." (replace-match next-replacement nocasify literal) (setq replace-count (1+ replace-count))) (undo-boundary) - (let (done replaced key) + (let (done replaced key def) ;; Loop reading commands until one of them sets done, ;; which means it has finished handling this occurrence. (while (not done) |