/[emacs]/emacs/lisp/isearch.el
ViewVC logotype

Diff of /emacs/lisp/isearch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.250 by rms, Tue Jan 4 02:21:55 2005 UTC revision 1.251 by monnier, Wed Jan 5 20:49:11 2005 UTC
# Line 1  Line 1 
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
# Line 705  is treated as a regexp.  See \\[isearch- Line 705  is treated as a regexp.  See \\[isearch-
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
# Line 733  is treated as a regexp.  See \\[isearch- Line 733  is treated as a regexp.  See \\[isearch-
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)))
# Line 2220  Can be changed via `isearch-search-fun-f Line 2220  Can be changed via `isearch-search-fun-f
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    

Legend:
Removed from v.1.250  
changed lines
  Added in v.1.251

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26