Mercurial > emacs
changeset 107417:a24389e7f686
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 17 Mar 2010 23:44:36 -0700 |
| parents | 4e4e25c1fae4 |
| children | 8aeda91ab827 |
| files | lisp/ChangeLog lisp/replace.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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))