From xemacs-m  Tue Apr  8 09:41:20 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id JAA00355
	for <xemacs-beta@xemacs.org>; Tue, 8 Apr 1997 09:41:19 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id QAA17460; Tue, 8 Apr 1997 16:41:15 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: isearch-mode.el is customized
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nA
        EL1M(".[qvI#a2E6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/X
        vhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 08 Apr 1997 16:41:14 +0200
Message-ID: <kig208lh911.fsf@jagor.srce.hr>
Lines: 117
X-Mailer: Gnus v5.4.42/XEmacs 19.15

Hmm, I feel in the mood today.  I hope I won't make too many
mistakes.  I am trying to test things thoroughly, testing it
on-the-fly, and further, but please double-check it.

BTW, this kind of work (custom) is nothing compared to what awaits us
in case of a Lisp Engine Swap.

--- isearch-mode.el.orig	Tue Apr  8 16:39:33 1997
+++ isearch-mode.el	Tue Apr  8 16:38:21 1997
@@ -92,6 +92,11 @@
 ;;; 3/18/92 Fixed yanking in regexps.
 
 
+(defgroup isearch nil
+  "Incremental search"
+  :group 'matching)
+
+
 (defun isearch-char-to-string (c)
   (if (integerp c)
       (make-string 1 c)
@@ -119,26 +124,36 @@
 (defconst search-exit-option t
   "Non-nil means random control characters terminate incremental search.")
 
-(defvar search-slow-window-lines 1
+(defcustom search-slow-window-lines 1
   "*Number of lines in slow search display windows.
 These are the short windows used during incremental search on slow terminals.
 Negative means put the slow search window at the top (normally it's at bottom)
-and the value is minus the number of lines.")
+and the value is minus the number of lines."
+  :type 'integer
+  :group 'isearch)
 
-(defconst search-slow-speed 1200
+(defcustom search-slow-speed 1200
   "*Highest terminal speed at which to use \"slow\" style incremental search.
 This is the style where a one-line window is created to show the line
-that the search has reached.")
+that the search has reached."
+  :type 'integer
+  :group 'isearch)
 
-(defvar search-caps-disable-folding t
+(defcustom search-caps-disable-folding t
   "*If non-nil, upper case chars disable case fold searching.
-This does not apply to \"yanked\" strings.")
-
-(defvar search-nonincremental-instead t
-  "*If non-nil, do a nonincremental search instead if exiting immediately.")
+This does not apply to \"yanked\" strings."
+  :type 'boolean
+  :group 'isearch)
+
+(defcustom search-nonincremental-instead t
+  "*If non-nil, do a nonincremental search instead if exiting immediately."
+  :type 'boolean
+  :group 'isearch)
   
-(defconst search-whitespace-regexp "\\(\\s \\|[\n\r]\\)+"
-  "*If non-nil, regular expression to match a sequence of whitespace chars.")
+(defcustom search-whitespace-regexp "\\(\\s \\|[\n\r]\\)+"
+  "*If non-nil, regular expression to match a sequence of whitespace chars."
+  :type 'regexp
+  :group 'isearch)
 
 ;;;==================================================================
 ;;; Search ring.
@@ -148,10 +163,14 @@
 (defvar regexp-search-ring nil
   "List of regular expression search string sequences.")
 
-(defconst search-ring-max 16
-  "*Maximum length of search ring before oldest elements are thrown away.")
-(defconst regexp-search-ring-max 16
-  "*Maximum length of regexp search ring before oldest elements are thrown away.")
+(defcustom search-ring-max 16
+  "*Maximum length of search ring before oldest elements are thrown away."
+  :type 'integer
+  :group 'isearch)
+(defcustom regexp-search-ring-max 16
+  "*Maximum length of regexp search ring before oldest elements are thrown away."
+  :type 'integer
+  :group 'isearch)
 
 (defvar search-ring-yank-pointer nil
   "The tail of the search ring whose car is the last thing searched for.")
@@ -1012,9 +1031,11 @@
 ;;===========================================================
 ;; Search Ring
 
-(defvar search-ring-update nil
+(defcustom search-ring-update nil
   "*Non-nil if advancing or retreating in the search ring should cause search.
-Default nil means edit the string from the search ring first.")
+Default nil means edit the string from the search ring first."
+  :type 'boolean
+  :group 'isearch)
   
 (defun isearch-ring-adjust1 (advance)
   ;; Helper for isearch-ring-adjust
@@ -1388,7 +1409,7 @@
 ;;;========================================================
 ;;; Highlighting
 
-(defvar isearch-highlight t
+(defcustom isearch-highlight t
   "*Whether isearch and query-replace should highlight the text which 
 currently matches the search-string.")
 

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
`VI' - An editor used by those heretics that don't subscribe to
       the Emacs religion.

