1 |
;;; isearch.el --- incremental search minor mode |
;;; isearch.el --- incremental search minor mode |
2 |
|
|
3 |
;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, |
;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, |
4 |
;; 2000, 2001, 2003, 2004 Free Software Foundation, Inc. |
;; 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> |
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> |
7 |
;; Maintainer: FSF |
;; Maintainer: FSF |
705 |
(if (< isearch-other-end (point)) ; isearch-forward? |
(if (< isearch-other-end (point)) ; isearch-forward? |
706 |
(isearch-highlight isearch-other-end (point)) |
(isearch-highlight isearch-other-end (point)) |
707 |
(isearch-highlight (point) isearch-other-end)) |
(isearch-highlight (point) isearch-other-end)) |
708 |
(isearch-dehighlight nil)) |
(isearch-dehighlight)) |
709 |
)) |
)) |
710 |
(setq ;; quit-flag nil not for isearch-mode |
(setq ;; quit-flag nil not for isearch-mode |
711 |
isearch-adjusted nil |
isearch-adjusted nil |
733 |
(setq overriding-terminal-local-map nil) |
(setq overriding-terminal-local-map nil) |
734 |
;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs |
;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs |
735 |
(setq minibuffer-message-timeout isearch-original-minibuffer-message-timeout) |
(setq minibuffer-message-timeout isearch-original-minibuffer-message-timeout) |
736 |
(isearch-dehighlight t) |
(isearch-dehighlight) |
737 |
(isearch-lazy-highlight-cleanup lazy-highlight-cleanup) |
(isearch-lazy-highlight-cleanup lazy-highlight-cleanup) |
738 |
(let ((found-start (window-start (selected-window))) |
(let ((found-start (window-start (selected-window))) |
739 |
(found-point (point))) |
(found-point (point))) |
2220 |
(overlay-put isearch-overlay 'priority 1) ;higher than lazy overlays |
(overlay-put isearch-overlay 'priority 1) ;higher than lazy overlays |
2221 |
)))) |
)))) |
2222 |
|
|
2223 |
(defun isearch-dehighlight (totally) |
(defun isearch-dehighlight () |
2224 |
(when isearch-overlay |
(when isearch-overlay |
2225 |
(delete-overlay isearch-overlay))) |
(delete-overlay isearch-overlay))) |
2226 |
|
|