(isearch-dehighlight): Remove unused arg `totally'.

(isearch-update, isearch-done): Adjust calls accordingly.

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 730d199dc3b..f3a0a9aa31b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2005-01-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * isearch.el (isearch-dehighlight): Remove unused arg `totally'.
+        (isearch-update, isearch-done): Adjust calls accordingly.
+
 2005-01-05  Richard M. Stallman  <rms@gnu.org>
 
         * emacs-lisp/find-func.el (find-variable)
-        (find-variable-other-window, find-variable-other-frame): 
+        (find-variable-other-window, find-variable-other-frame):
         Fix the TYPE args to find-function-read and find-function-do-it.
         (find-function): Doc fix.
         (find-function-at-point): Replace function-at-point alias.
diff --git a/lisp/isearch.el b/lisp/isearch.el
index a87097f884e..8f2875d6726 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -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 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
             (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 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
   (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 @@ Can be changed via `isearch-search-fun-function' for special needs."
            (overlay-put isearch-overlay 'priority 1) ;higher than lazy overlays
            ))))
 
-(defun isearch-dehighlight (totally)
+(defun isearch-dehighlight ()
   (when isearch-overlay
     (delete-overlay isearch-overlay)))