diff lisp/replace.el @ 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.

--- 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)