diff options
author | Juri Linkov <juri@jurta.org> | 2005-01-11 23:04:16 +0000 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2005-01-11 23:04:16 +0000 |
commit | ec38e08f537026488f3df71c03446a771ef7cb96 (patch) | |
tree | 7698aad334f7ee9764199dee26f0b2b415f10104 /lisp/replace.el | |
parent | 17f4863dcbc3857c56be5f5b2ad9d4ad230e7cb1 (diff) | |
download | emacs-ec38e08f537026488f3df71c03446a771ef7cb96.tar.gz |
(query-replace-lazy-highlight): Add lazy-highlight group.
(query-replace-highlight, query-replace-lazy-highlight)
(query-replace): Move definitions to the beginning of the file.
Diffstat (limited to 'lisp/replace.el')
-rw-r--r-- | lisp/replace.el | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 33a30aa92d9..3520f3e2268 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -64,6 +64,27 @@ strings or patterns." :group 'matching :version "21.4") +(defcustom query-replace-highlight t + "*Non-nil means to highlight matches during query replacement." + :type 'boolean + :group 'matching) + +(defcustom query-replace-lazy-highlight t + "*Controls the lazy-highlighting during query replacements. +When non-nil, all text in the buffer matching the current match +is highlighted lazily using isearch lazy highlighting (see +`lazy-highlight-initial-delay' and `lazy-highlight-interval')." + :type 'boolean + :group 'lazy-highlight + :group 'matching + :version "21.4") + +(defface query-replace + '((t (:inherit isearch))) + "Face for highlighting query replacement matches." + :group 'matching + :version "21.4") + (defun query-replace-descr (string) (mapconcat 'isearch-text-char-description string "")) @@ -1258,27 +1279,6 @@ passed in. If LITERAL is set, no checking is done, anyway." (replace-match newtext fixedcase literal) noedit) -(defcustom query-replace-highlight t - "*Non-nil means to highlight matches during query replacement." - :type 'boolean - :group 'matching) - -(defcustom query-replace-lazy-highlight t - "*Controls the lazy-highlighting during query replacements. -When non-nil, all text in the buffer matching the current match -is highlighted lazily using isearch lazy highlighting (see -`lazy-highlight-initial-delay' and -`lazy-highlight-interval')." - :type 'boolean - :group 'matching - :version "21.4") - -(defface query-replace - '((t (:inherit isearch))) - "Face for highlighting query replacement matches." - :group 'matching - :version "21.4") - (defun perform-replace (from-string replacements query-flag regexp-flag delimited-flag &optional repeat-count map start end) |