From 4dbbcb46d91862a16b21651e0b95e5959ffdbfb8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 5 Jan 2005 20:49:11 +0000 Subject: [PATCH] (isearch-dehighlight): Remove unused arg `totally'. (isearch-update, isearch-done): Adjust calls accordingly. --- lisp/ChangeLog | 7 ++++++- lisp/isearch.el | 8 ++++---- 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 + + * isearch.el (isearch-dehighlight): Remove unused arg `totally'. + (isearch-update, isearch-done): Adjust calls accordingly. + 2005-01-05 Richard M. Stallman * 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 ;; 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))) -- 2.39.5