# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1268894676 25200
# Node ID a24389e7f686ee739467156f02d6120e74bb2914
# Parent  4e4e25c1fae4ac4ec3e232aaf46d6002d0b5c72f
Use query-replace-{from,to}-history-variable in more places.

* replace.el (query-replace-history): Give it a doc string.
(map-query-replace-regexp): Use query-replace-from-history-variable
and query-replace-to-history-variable.

diff -r 4e4e25c1fae4 -r a24389e7f686 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 17 23:37:26 2010 -0700
+++ b/lisp/ChangeLog	Wed Mar 17 23:44:36 2010 -0700
@@ -1,5 +1,9 @@
 2010-03-18  Glenn Morris  <rgm@gnu.org>
 
+	* replace.el (query-replace-history): Give it a doc string.
+	(map-query-replace-regexp): Use query-replace-from-history-variable
+	and query-replace-to-history-variable.
+
 	* mail/hashcash.el (declare-function): Remove duplicate definition.
 
 	* mail/emacsbug.el (report-emacs-bug-pretest-address):
diff -r 4e4e25c1fae4 -r a24389e7f686 lisp/replace.el
--- a/lisp/replace.el	Wed Mar 17 23:37:26 2010 -0700
+++ b/lisp/replace.el	Wed Mar 17 23:44:36 2010 -0700
@@ -33,7 +33,10 @@
   :type 'boolean
   :group 'matching)
 
-(defvar query-replace-history nil)
+(defvar query-replace-history nil
+  "Default history list for query-replace commands.
+See `query-replace-from-history-variable' and
+`query-replace-to-history-variable'.")
 
 (defvar query-replace-defaults nil
   "Default values of FROM-STRING and TO-STRING for `query-replace'.
@@ -394,12 +397,13 @@
 		    (car regexp-search-ring)
 		  (read-from-minibuffer "Map query replace (regexp): "
 					nil nil nil
-					'query-replace-history nil t)))
+					query-replace-from-history-variable
+					nil t)))
 	  (to (read-from-minibuffer
 	       (format "Query replace %s with (space-separated strings): "
 		       (query-replace-descr from))
 	       nil nil nil
-	       'query-replace-history from t)))
+	       query-replace-to-history-variable from t)))
      (list from to
 	   (and current-prefix-arg
 		(prefix-numeric-value current-prefix-arg))