diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index d1acbc6309b..67c02026352 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -26,8 +26,10 @@ ;;; Code: -(defvar case-replace t "\ -*Non-nil means query-replace should preserve case in replacements.") +(defcustom case-replace t + "*Non-nil means query-replace should preserve case in replacements." + :type 'boolean + :group 'matching) (defvar query-replace-history nil) @@ -327,10 +329,12 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it. (pop-to-buffer occur-buffer) (goto-char (marker-position pos)))) -(defvar list-matching-lines-default-context-lines 0 +(defcustom list-matching-lines-default-context-lines 0 "*Default number of context lines to include around a `list-matching-lines' match. A negative number means to include that many lines before the match. -A positive number means to include that many lines both before and after.") +A positive number means to include that many lines both before and after." + :type 'integer + :group 'matching) (defalias 'list-matching-lines 'occur) @@ -740,8 +744,10 @@ which will run faster and probably do exactly what you want." (if (= replace-count 1) "" "s"))) (and keep-going stack))) -(defvar query-replace-highlight nil - "*Non-nil means to highlight words during query replacement.") +(defcustom query-replace-highlight nil + "*Non-nil means to highlight words during query replacement." + :type 'boolean + :group 'matching) (defvar replace-overlay nil) |