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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 730d199dc3b2a0c8e8c774d1236d21673006f87f..f3a0a9aa31b655b50898b15b684c8914fd05e3ca 100644 (file)
--- 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 a87097f884e2b8d864a80cdf50375340c0f0824a..8f2875d6726ed9359ca5d5c9acd557bdd1c9b02c 100644 (file)
--- 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)))