Mercurial > emacs
diff lisp/isearch.el @ 59379:b9bf38399e43
(isearch-dehighlight): Remove unused arg `totally'.
(isearch-update, isearch-done): Adjust calls accordingly.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 05 Jan 2005 20:49:11 +0000 |
| parents | eb4a4bdb4f0f |
| children | 89c73b450bcc |
line wrap: on
line diff
--- a/lisp/isearch.el Wed Jan 05 19:31:57 2005 +0000 +++ b/lisp/isearch.el Wed Jan 05 20:49:11 2005 +0000 @@ -1,7 +1,7 @@ ;;; isearch.el --- incremental search minor mode ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, -;; 2000, 2001, 2003, 2004 Free Software Foundation, Inc. +;; 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> ;; Maintainer: FSF @@ -705,7 +705,7 @@ (if (< isearch-other-end (point)) ; isearch-forward? (isearch-highlight isearch-other-end (point)) (isearch-highlight (point) isearch-other-end)) - (isearch-dehighlight nil)) + (isearch-dehighlight)) )) (setq ;; quit-flag nil not for isearch-mode isearch-adjusted nil @@ -733,7 +733,7 @@ (setq overriding-terminal-local-map nil) ;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs (setq minibuffer-message-timeout isearch-original-minibuffer-message-timeout) - (isearch-dehighlight t) + (isearch-dehighlight) (isearch-lazy-highlight-cleanup lazy-highlight-cleanup) (let ((found-start (window-start (selected-window))) (found-point (point))) @@ -2220,7 +2220,7 @@ (overlay-put isearch-overlay 'priority 1) ;higher than lazy overlays )))) -(defun isearch-dehighlight (totally) +(defun isearch-dehighlight () (when isearch-overlay (delete-overlay isearch-overlay)))