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 | 6ac605586108dd2ff273bde0788cd37a8ca4d258 (patch) | |
| tree | 46c5076b79bacd6ec7545a49cc9385baaa8de1f2 /lisp/replace.el | |
| parent | 1ce13494f19557d9424ecedae23af29fa24e96b0 (diff) | |
| download | emacs-6ac605586108dd2ff273bde0788cd37a8ca4d258.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) |