diff options
| author | Juri Linkov <juri@jurta.org> | 2005-01-11 23:05:16 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2005-01-11 23:05:16 +0000 |
| commit | afd33362f4ba845bb6a80c1116a9a82fe32ebfff (patch) | |
| tree | 80aec505a5bbe257549589ba6ed40b548db3eff3 /lisp/replace.el | |
| parent | bca92193e42e31279529e2601a23bc7ad5523485 (diff) | |
| download | emacs-afd33362f4ba845bb6a80c1116a9a82fe32ebfff.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) |