mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use defgroup and defcustom.

Browse source
This commit is contained in:
Richard M. Stallman 1997-05-05 15:00:53 +00:00
parent 69c1dd37e3
commit 9d325ebf0d
2 changed files with 44 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/replace.el
View file

@ -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)