Mercurial > hg > xemacs-beta

comparison lisp/isearch-mode.el @ 710:a00780ef853d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-22 07:20:57 by youngs] 2001-12-18 John Paul Wallington <jpw@shootybangbang.com> * gnuserv.el: (gnuserv-mode-line-string): new customizable variable (gnuserv-minor-mode): make variable buffer-local * isearch-mode.el: (isearch-mode-line-string): new customizable variable
author youngs
date Sat, 22 Dec 2001 07:20:58 +0000
parents 7039e6323819
children 943eaba38521
comparison
equal deleted inserted replaced
709:1df7a5cfb04a 710:a00780ef853d
223 "*Non-nil if advancing or retreating in the search ring should cause search. 223 "*Non-nil if advancing or retreating in the search ring should cause search.
224 Default nil means edit the string from the search ring first." 224 Default nil means edit the string from the search ring first."
225 :type 'boolean 225 :type 'boolean
226 :group 'isearch) 226 :group 'isearch)
227 227
228 (defcustom isearch-mode-line-string " Isearch"
229 "*String to display in the modeline when `isearch-mode' is active.
230 Set this to nil if you don't want a modeline indicator."
231 :type '(choice string
232 (const :tag "none" nil))
233 :group 'isearch)
234
228 ;;;==================================================== 235 ;;;====================================================
229 ;;; Define isearch-mode keymap. 236 ;;; Define isearch-mode keymap.
230 237
231 (defvar isearch-mode-map 238 (defvar isearch-mode-map
232 (let ((map (make-keymap))) 239 (let ((map (make-keymap)))
382 389
383 ;;;============================================================== 390 ;;;==============================================================
384 ;; Minor-mode-alist changes - kind of redundant with the 391 ;; Minor-mode-alist changes - kind of redundant with the
385 ;; echo area, but if isearching in multiple windows, it can be useful. 392 ;; echo area, but if isearching in multiple windows, it can be useful.
386 393
387 (add-minor-mode 'isearch-mode 'isearch-mode) 394 (add-minor-mode 'isearch-mode 'isearch-mode-line-string)
388 395
389 (defvar isearch-mode nil) ;; Name of the minor mode, if non-nil. 396 (defvar isearch-mode nil) ;; Name of the minor mode, if non-nil.
390 (make-variable-buffer-local 'isearch-mode) 397 (make-variable-buffer-local 'isearch-mode)
391 398
392 ;; We bind these in keydefs.el. 399 ;; We bind these in keydefs.el.