Mercurial > emacs
changeset 2156:706a869e685d
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 12 Mar 1993 12:04:55 +0000 |
| parents | 3ec142562a65 |
| children | 0d77768bf3f2 |
| files | lisp/replace.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Fri Mar 12 12:04:04 1993 +0000 +++ b/lisp/replace.el Fri Mar 12 12:04:55 1993 +0000 @@ -463,7 +463,7 @@ (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)